- Katılım
- 12 Eyl 2019
- Mesajlar
- 469
Hayırlı Cumalar
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, [D3:D150]) Is Nothing Then
UserForm1.Show
ElseIf Not Intersect(Target, [E3:E150]) Is Nothing Then
UserForm2.Show
End If
End Sub
UserForm2.Show kısmı hata veriyor.
Ayrıca da E sütununda çalışmıyor.
Bir yerde hatam var ama bulamadım. Yardımcı olabilir misiniz?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, [D3:D150]) Is Nothing Then
UserForm1.Show
ElseIf Not Intersect(Target, [E3:E150]) Is Nothing Then
UserForm2.Show
End If
End Sub
UserForm2.Show kısmı hata veriyor.
Ayrıca da E sütununda çalışmıyor.
Bir yerde hatam var ama bulamadım. Yardımcı olabilir misiniz?
