Prikazi cijelu temu 20.12.2012 22:36
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. 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.