Centar za edukaciju-BiH



Warning: filesize(): stat failed for uploads/topics/PRIMJER.zip in /home2/icentarb/public_html/icentar/showtopic.php on line 406
Stranice (2):1,2

#1 17.12.2012 22:08
Dado Van mreze
Clan
Registrovan od:27.10.2011
Postovi:276


Predmet: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 Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet: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.
PreuzmiIzvorni kôd (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.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#3 20.12.2012 10:02
Dado Van mreze
Clan
Registrovan od:27.10.2011
Postovi:276


Predmet: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 Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Dupli unos?
samo ovo popravi
For I = 1 To Red - 2
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#5 20.12.2012 14:23
Dado Van mreze
Clan
Registrovan od:27.10.2011
Postovi:276


Predmet: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 Van mreze
Clan
Registrovan od:27.10.2011
Postovi:276


Predmet: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 tipu datoteke za:zip  PRIMJER.zip
Preuzimanja:3
Velicina datoteke: Bajt


Pozdrav!
↑  ↓

#7 20.12.2012 16:46
Dado Van mreze
Clan
Registrovan od:27.10.2011
Postovi:276


Predmet:Re: Dupli unos?
Primjer u excelu

Prilozi:
Informacije o tipu datoteke za:zip  Book1.zip
Preuzimanja:353
Velicina datoteke:4.98 KB


Pozdrav!
↑  ↓

#8 20.12.2012 21:36
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Dupli unos?
PreuzmiIzvorni kôd (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

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#9 20.12.2012 21:49
Dado Van mreze
Clan
Registrovan od:27.10.2011
Postovi:276


Predmet: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 Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Dupli unos?
PreuzmiIzvorni kôd (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

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden 1 puta. Posljednja izmjena 20.12.2012 22:32 od strane zxz. ↑  ↓

Stranice (2):1,2


Sva vremena su GMT +01:00. Trenutno vrijeme: 7: 26 pm.