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
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
Podrska 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.