Aktif Sayfa Çift Tıklama

[bulentkars]

Arkadaşlar Merhaba

Aktif sayfada M8:M45 satırlarında örneğin M10' a çift tıkladığımda "EVET "Üç kez tıkladığımda "HAYIR" sonucunu verebilirmi acaba şimdiden yardımlarınız için teşekkür ederim

 

[Orion1]

DoubleClick olayı olduğunu biliyorumda Threeclick olayının olup olmadığını bilmiyorum.

 

[bulentkars]

evren bey anlamadım mümkün değilmi

 

[ozgretmen]

Aşağıdaki kodaları ilgili sayfanın kod bölümüne ekleyiniz.Ancak 1 defa tıkladığınızda EVET , ikidefa tıkladığınızda HAYIR yazıyor.İşinize umarım yarar.İyi çalışmalar.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [M8:M45]) Is Nothing Then Exit Sub
ActiveCell.Value = "HAYIR"
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [M8:M45]) Is Nothing Then Exit Sub
ActiveCell.Value = "EVET"
End Sub