hata yaptım çalışan kodu bozdum galiba

[ismailayan]

kod bu önceden çalışıyordu ne oldu buna yaaaa

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bul As Range, Adres
On Error GoTo HATA
If Target.Column = 1 And Not Target = "" Then
Set Bul = Range("C:C").Find(Target, LookAt:=xlWhole)
Adres = Bul.Address
Set Bul = Range("C:C").FindNext(Bul)
If Not Bul.Address = Adres Then
MsgBox Target & " değeri daha önce girilmiş"
Target.Select
End If
End If
HATA:
End Sub


ben inceledim hata bulamadım sizce nerde olabilir...

 

[zafer]

Merhaba

Çalışmayan nedir anlayamadım.

Koda göre
A sütununa girdiğiniz değer , C sütununda 2. defa varsa mesaj veriyor.

 

[zafer]

Merhaba