Private Sub Worksheet_Change(ByVal Target As Range) Dim Celija As Object Dim I As Integer Dim Red As Integer, Kolona As Integer Dim Vrijednost Set Celija = Application.ActiveCell Kolona = Celija.Column If Kolona <> 3 Then GoTo kraj ' 3 je broj kolone Red = Celija.Row For I = 1 To Red - 2 Set Celija = Application.Cells(I, Kolona) Vrijednost = Celija.Value If Target = Vrijednost Then MsgBox "Vrijednost " & Target & " ve postoji" Celija.Select Exit For End If Next I Kraj: End Sub