Prikazi cijelu temu 20.12.2012 23:31
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


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 23:32 od strane zxz.