Hücre değişkenine bağlı çalışan makro neden devreye girmiyor?

[irfancantr]

İyi günler;

Belirlenen iki hücredeki değerler değiştikçe makronun neden çalışmadığını anlamadım;

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [d2,e2]) Is Nothing Then Exit Sub
Select Case Target.Address
Case Is = "$d$2"
Call ilktarih
Case Is = "$e$2"
Call ikincitarih
End Select
End Sub

Burada hatalı olan nedir ? Makronun uzun olması mı?

Teşekkürler, iyi çalışmalar.

 

[uzmanamele]

merhaba
bu şekilde deneyiniz

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [d2,e2]) Is Nothing Then Exit Sub
    Select Case Target.Address
    Case Is = "$[COLOR="Red"]D[/COLOR]$2"
    Call ilktarih
    Case Is = "$[COLOR="red"]E[/COLOR]$2"
    Call ikincitarih
    End Select
End Sub

 

[irfancantr]

merhaba
bu şekilde deneyiniz

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [d2,e2]) Is Nothing Then Exit Sub
    Select Case Target.Address
    Case Is = "$[COLOR=Red]D[/COLOR]$2"
    Call ilktarih
    Case Is = "$[COLOR=red]E[/COLOR]$2"
    Call ikincitarih
    End Select
End Sub

Teşekkürler sayın uzmanamele