Belirli alanda çift tıklayınca form açılsın

[EKREM1661]

Arkadaşlar..! B1:N1 aralığına çift tıklamakla UserForm1 açılsın istersek nasıl yaparız..

 

[Mahir64]

Arkadaşlar..! B1:N1 aralığına çift tıklamakla UserForm1 açılsın istersek nasıl yaparız..

Merhaba
Sayfanın kod bölümüne

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("B1:N1")) Is Nothing Then Exit Sub
Cancel = True
UserForm1.Show
End Sub

 

[EKREM1661]

Sayın Black Lord..! Çok çok teşekkür ediyorum.. Hayırlı çalışmalar..

 

[Mahir64]

Sayın Black Lord..! Çok çok teşekkür ediyorum.. Hayırlı çalışmalar..

Sizede hayırlı çalışmalar
Kolay gelsin :hey: