Predmet:Re: Dupli unos?
PreuzmiIzvorni kôd (Visual Basic):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
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
End Sub
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.