- Katılım
- 17 Ocak 2006
- Mesajlar
- 241
- Excel Vers. ve Dili
- excel xp türkçe
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...
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...