tek sayfada iki farklı double click

[thugangel]

Merhabalar. Aşağıdaki iki doubleclick makrosu aynı sayfanın kod bölümüne nasıl yazılır.çok uğraştım ama beceremedim.örneklerde işe yaramadı.Yardımcı olursanız çok sevinirim.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error GoTo Son
If Intersect(Target, [r9:r1000]) Is Nothing Then Exit Sub
UserForm3.Show
Son:
End Sub


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error GoTo Son
If Intersect(Target, [b91000]) Is Nothing Then Exit Sub
UserForm2.Show
Son:
End Sub

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [r9:r1000]) Is Nothing Then GoTo 0
UserForm3.Show
Exit Sub
0
If Intersect(Target, [b9:b1000]) Is Nothing Then Exit Sub
UserForm2.Show
End Sub

 

[thugangel]

ellerinze sağlık