Worksheet_Change makrosunda hata !

[Tevfik_Kursun]

Merhaba Arkadaşlar,

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Range("D1") = "" Then
        Exit Sub
      Else
        Call Deneme
    End If
End Sub

Bu kod, D1 boş değilse her değiştiğinde Deneme makrosunu çalıştır demek değil mi, yoksa yanlış mı düşünüyorum? D1 değiştiğinde excel kısır döngüye düşüp kapanıyor. Yanlışı nasıl düzeltebilirim?.
Saygılarımla

 

[askm]

Kodun başına

If Intersect(Target, Range("D1:D10")) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
Rem D1:D10 satırları arasında çalışır.

ekleyip deneyin.

 

[Necdet]

Merhaba,
Deneme makrosu da D1 hücresini değiştiriyorsa döngüye girmesi normal.

Aşağıdaki kodları dener misiniz.

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, [D1]) Is Nothing Then Exit Sub

If Target.Value <> "" Then
    Application.EnableEvents = False
    deneme
    Application.EnableEvents = True
End If

End Sub

 

[Tevfik_Kursun]

Sayın Askm,
İlginize teşekkür ederim, ama makroyu tetiklemedi.
Saygılarımla

 

[Tevfik_Kursun]

Sayın Necdet Hocam,
İlginize çok teşekkür ederim. Makro D1 i değiştirmiyor, ama istediğim oldu. Makro çalıştı.
Saygılarımla