Citat:
I non stop mi javlja poruku da tu rijec vec imam i ne mogu da zatvorim Excel osim da idem na task menager i da ga ukinem.
Izvini, ja sam napravio manji previd.Naime onim Target.Value = "" se pokreće beskonačna petlja koja stalno poziva Change event.Evo malo prepravljenog koda koji radi kako treba.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim celija As Range
If Target.Row = 1 Or Target.Text = "" Then Exit Sub
For Each celija In Range("A1", "A" & Target.Row - 1)
If celija.Value = Target.Value Then
MsgBox "Ovu rec ste vec uneli u redu " & celija.Row
Target.Value = vbNullString
Cells(Target.Row, Target.Column).Activate
Exit For
End If
Next celija
End Sub
-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti