Bosna i Hercegovina



Warning: filesize(): stat failed for uploads/topics/PRIMJER.zip in /home2/icentarb/public_html/showtopic.php on line 399

#1 17.12.2012-22:08
Dado Offline
Clan
Registrovan/a od: 27.10.2011-19:26
Komentari: 255


Subject: Dupli unos?
U excel tabeli u jednoj koloni želim da napravim da mi se ne ponavljaju dupli unosi ili pak da dobijem upozorenje kada upišem podatak koji je već u toj koloni u nekoj ćeliji već upisan. Pokušao sam sa uvjetnim oblikovanjem ćelija kao i sa vrijednovanjem ćelija ali nisam uspio. Da li neko može pomoći. Hvala unaprijed.
Pozdrav!
↑  ↓

#2 19.12.2012-13:01
zxz Online
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,794


Subject: Re: Dupli unos?
Evo ovako.
Otvoris taj dokument.
Ides u meni bar:
Tools-->Macro-->VisualBasic editor
na lijevoj strani odaberes Sheet u kome ti ovo treba te uradis dupli klik na njemu.
Otvorit ce ti se prozor za kucanje koda i u taj prozor ovo kopiras ispod.
DownloadIzvorni kod (Visual Basic):
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. Dim Celija As Object
  3. Dim I As Integer
  4. Dim Red As Integer, Kolona As Integer
  5. Dim Vrijednost
  6.  
  7. Set Celija = Application.ActiveCell
  8.  
  9. Kolona = Celija.Column
  10. Red = Celija.Row
  11. For I = 1 To Red - 1
  12. Set Celija = Application.Cells(I, Kolona)
  13. Vrijednost = Celija.Value
  14. If Target = Vrijednost Then
  15. MsgBox "Vrijednost " & Target & " ve postoji"
  16. Celija.Select
  17. End If
  18. Next I
  19. End Sub

Upozorenje.
Kada sve istestiras ipak cemo morati nesto doraditi.
Naime kontrolisat ce ti bilo koju kolonu pa te nekad moze zezati ako mi javis o kojoj koloni se radi mozemo vezati kod samo za tu kolonu.
Pozdrav
↑  ↓

#3 20.12.2012-10:02
Dado Offline
Clan
Registrovan/a od: 27.10.2011-19:26
Komentari: 255


Subject: Re: Dupli unos?
Evo probao sam i radi ali isto tako kada unesem nekakav podatak za koji znam da ne postoji salje mi poruku da ga vec imama. Sto se tice kolone ona je u mom slucaju kolona "K" ali imam ja vise obrazaca na koje trebam primjeniti ovaj kod. To cu ja izmjeniti ako su kolone razlicite.
Pozdrav!
↑  ↓

#4 20.12.2012-10:27
zxz Online
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,794


Subject: Re: Dupli unos?
samo ovo popravi
For I = 1 To Red - 2
Pozdrav
↑  ↓

#5 20.12.2012-14:23
Dado Offline
Clan
Registrovan/a od: 27.10.2011-19:26
Komentari: 255


Subject: Re: Dupli unos?
Hvala, sad radi baš onako kao sam trebao. Ukoliko bude kakvih problema biću slobodan da opet pitam Grinning
Pozdrav!
↑  ↓

#6 20.12.2012-16:45
Dado Offline
Clan
Registrovan/a od: 27.10.2011-19:26
Komentari: 255


Subject: Re: Dupli unos?
Imam još jedno pitanje. Ukoliko imam kojim slučajem u jednoj koloni više istih podataka, onda mi se pojavi upozaravajuća poruka koju moram uklanjati sa tipkom ESC i koliko imam unosa toliko puta moram stisnuti tu tipku. Može li se to na jednostavniji način riješiti. Naglašavam da imam već unešene podatke u tabele pa je moguće da imam podosta duplih unosa i ovo sa ESC tipkom bi mi bilo jako sporo. Evo u prilogu kako to izgleda.

Prilozi:
Informacije o fajlu: zip  PRIMJER.zip
Preuzimanja: 3
Veličina: Byte


Pozdrav!
↑  ↓

#7 20.12.2012-16:46
Dado Offline
Clan
Registrovan/a od: 27.10.2011-19:26
Komentari: 255


Subject: Re: Dupli unos?
Primjer u excelu

Prilozi:
Informacije o fajlu: zip  Book1.zip
Preuzimanja: 90
Veličina: 4.98 KB


Pozdrav!
↑  ↓

#8 20.12.2012-21:36
zxz Online
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,794


Subject: Re: Dupli unos?
DownloadIzvorni kod (Visual Basic):
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. Dim Celija As Object
  3. Dim I As Integer
  4. Dim Red As Integer, Kolona As Integer
  5. Dim Vrijednost
  6.  
  7. Set Celija = Application.ActiveCell
  8.  
  9. Kolona = Celija.Column
  10. Red = Celija.Row
  11. For I = 1 To Red - 2
  12. Set Celija = Application.Cells(I, Kolona)
  13. Vrijednost = Celija.Value
  14. If Target = Vrijednost Then
  15. MsgBox "Vrijednost " & Target & " ve postoji"
  16. Celija.Select
  17. Exit For
  18. End If
  19. Next I
  20. End Sub

Pozdrav
↑  ↓

#9 20.12.2012-21:49
Dado Offline
Clan
Registrovan/a od: 27.10.2011-19:26
Komentari: 255


Subject: Re: Dupli unos?
Hvala na trudu, samo gdje još da ubacim da mi se ovaj kod odnosi za određenu kolonu u listu.
Pozdrav!
↑  ↓

#10 20.12.2012-22:31
zxz Online
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,794


Subject: Re: Dupli unos?
DownloadIzvorni kod (Visual Basic):
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. Dim Celija As Object
  3. Dim I As Integer
  4. Dim Red As Integer, Kolona As Integer
  5. Dim Vrijednost
  6.  
  7. Set Celija = Application.ActiveCell
  8.  
  9. Kolona = Celija.Column
  10. If Kolona <> 3 Then GoTo kraj ' 3 je broj kolone
  11. Red = Celija.Row
  12. For I = 1 To Red - 2
  13. Set Celija = Application.Cells(I, Kolona)
  14. Vrijednost = Celija.Value
  15. If Target = Vrijednost Then
  16. MsgBox "Vrijednost " & Target & " ve postoji"
  17. Celija.Select
  18. Exit For
  19. End If
  20. Next I
  21. Kraj:
  22. End Sub

Pozdrav
Ovaj komentar je mijenjan 1 puta. zadnja izmjena 20.12.2012-22:32 od strane zxz. ↑  ↓

#11 21.12.2012-08:01
Dado Offline
Clan
Registrovan/a od: 27.10.2011-19:26
Komentari: 255


Subject: Re: Dupli unos?
Hvaaala. Happy
Pozdrav!
↑  ↓

Stranice (1): 1


All times are GMT +01:00. Current time: 21.11.2018-17:20.