Hücrede Before Double Click

[neo]

Arkadaşlar Merhaba,

sayfada :E11:E3210 aralığında ki hücrelerden birine çift tıkladığımda UserForm1 in

sayfada : D11: D3210 aralığında ki hücrelerden birine çift tıkladığımda ShowAtCell makrosunun Çalışmasını istiyorum ama aşağıdaki kodda hata veriyor acaba nerde hata yapıyorum yardımcı olursanız sevinirim

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Intersect(Target, [E11:E3210]) Is Nothing Then Exit Sub
UserForm1.Show
End
If Intersect(Target, [d11:d3210]) Is Nothing Then Exit Sub
ShowAtCell
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not Intersect(Target, [E11:E3210]) Is Nothing Then UserForm1.Show
If Not Intersect(Target, [d11:d3210]) Is Nothing Then ShowAtCell
End Sub

 

[neo]

Sayın, Leventm çok teşekurederim

saygı ve sevgilerim