satıra çift tıklayarak işlem yapmak

[fealdown]

merhaba,
7. satırdan 15 . satıra kadar tıklandığında ayrı 16.satırdan 25 . satıra kadar olan tıklamada farklı bi işlem yaptırmak istiyorum nasıl yapabilirim?

 

[Seyit Tiken]

Bu şekilde çalışmanıza uyarlayınız.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not Intersect(Target, [a7:a15]) Is Nothing Then
MsgBox "1.Makro": End If
If Not Intersect(Target, [a16:a25]) Is Nothing Then
MsgBox "2.Makro": End If
End Sub

 

[fealdown]

merhaba seyit bey ,
yaptığınız çalışmada sadece a7:a15 arasındaki hücreleerde çalışmaktadır.Benim istediğim ise 7 ve 15. arasındaki bütün komple satırda çalışmas.

 

[YUSUF44]

Şöyle olabilir:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Target.Row >= 7 And Target.Row <= 15 Then
    MsgBox "1.Makro": End If
ElseIf Target.Row >= 16 And Target.Row <= 25 Then
    MsgBox "2.Makro": End If
End If
End Sub

 

[fealdown]

teşekkür ederim yusuf bey @YUSUF44