Mouse Basılı Tutunca Userform Açmak

[Ömer2134]

Herkese merhaba

Yapmak istediğim sol mouse 2 yada 3 saniye basılı tutunca bir userform açılması. Forumlarda çift tıklamayla ilgili konular gördüm ama basılı tutmayla ilgili birşey bulamadım.

Teşekkürler.

 

[Seyit Tiken]

Sol'da olacağını sanmıyorum, sağ'da isterseniz bu kodu deneyebilirsiniz.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
UserForm1.Show 0
End Sub

 

[Ömer2134]

Seyit hocam

Dönüşünüz için teşekkürler. Ama yapamadım. Sağ tuşu basılı tuttuğumda seçenekler çıkıyor. kes, kopyala yapştır gibi..
Ben yapamamış olabilirm. O yüzden örnek dosya ekliyorum.

Teşekkürler.

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$C$7" Then
Cancel = True
UserForm1.Show 0
End If
End Sub

 

[Ömer2134]

Evet gayet iyi olmuş teşekkürler.