Belirtilen Hücrede İşlem Yapmak

[Tarikkk_]

Merhabalar. kaç gündür uğraşıp bir türlü çözüm bulamadığım bir sorunum var.

D2 Hücresinde bir change olduğunda ve D2 Hücresindeki değer D73000" Aralığında 0 ise HESAP BULUNAMADI..! uyarısı almak istiyorum ama bunu sadece D2 de işlem yaparken kontrol etmesini istiyorum

If ActiveCell.Address = "$D$2" gibi birşeyler denedim ama D2 hücresinde bir değişiklik yaptığımda klavye ile entere tıkladığımda yada mause ile başka yere tıkladığımda farklı hücreye gittiği için işlemi gerçekleştiremiyor. konuyla ilgili yardımlarınızı bekliyorum şimdiden çok teşekkür ederim



If WorksheetFunction.CountIf(Worksheets("ÜRETİCİLER").Range("D73000"), [D2]) = 0 Then
HataMesajı "HESAP BULUNAMADI..!"
Range("D2") = ""
End If

 

[ÖmerFaruk]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("D2")) Is Nothing Then Exit Sub
    Application.EnableEvents = True
    '
    'Sadece D2 değiştiğinde çalışacak kodlarınızı buraya yazın
    '
    Application.EnableEvents = False
End Sub