A1 hücresine çift tıklandığında makro tetikleme

[Tevfik_Kursun]

Merhaba Arkadaşlar,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
End Sub

Bu kalıp sayfada çift tıklama yapıldığında makro tetikliyor. Sadece A1 hücresi çift tıklanırsa şu makroyu çalıştır nasıl denir?
Saygılarımla

 

[AdemCan]

If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub

Bu satır ile sadece A1 hücresi çift tıklanırsa kodlar çalışır. A1 yerine hücre aralığı da yazabilirsiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub

' Diğer kodlar

End Sub

 

[Tevfik_Kursun]

Sayın Faye_Efsane Hocam,
İlginize çok teşekkür ederim.
Saygılarımla

 

[AdemCan]

Rica ederim Sayın Tevfik Bey,
Saygılar.