Hücre Adresine Göre Farede Sağ Klik

[1Al2Ver]

Merhaba,

Aşağıda kod ile "KAYIT" isimli sayfada, sağ klik yaptığımda UserForm1'i açıyorum,

İstediğim bu özelliğin C6'da iken çalışması,

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

İlave olarak,

Enter ile ;

C5'e geçtiğimde, sağ klikle UserForm3'ü,

C7'ye geçtiğimde, sağ klikle de UserForm2'yi

açmak istiyorum.

Teşekkür ederim.

 

[Asri]

Enter konusunu anlamadım.

Aşağıdaki kod sayfanın kod bölümüne eklenecek.
Sadece C5 ve C7 de sağ tuş yapıldığında çalışır.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("C5:C5")) Is Nothing Then
        If Intersect(Target, Range("C7:C7")) Is Nothing Then
          Exit Sub
        Else
          UserForm2.Show
        End If
    Else
        UserForm3.Show
    End If
    
End Sub

 

[Ömer BARAN]

Merhaba. Alternatif olsun.

Sanırım istediğiniz bu (umarım yanlış anlamadım).
.

[FONT="Arial Narrow"]Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 3 Or Target.Row < 5 Or Target.Row > 7 Then Exit Sub
If Target.Address(0, 0) = "C5" Then UserForm3.Show
If Target.Address(0, 0) = "C6" Then UserForm1.Show
If Target.Address(0, 0) = "C7" Then UserForm2.Show
Cancel = True
End Sub[/FONT]

 

[1Al2Ver]

Sayın asri merhaba,

Mantığını anladım, ilaveler de yaptım, çok teşekkür ederim.

Saygılarımla.

 

[1Al2Ver]

Merhaba. Alternatif olsun.

Sanırım istediğiniz bu (umarım yanlış anlamadım).
.

[FONT="Arial Narrow"]Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 3 Or Target.Row < 5 Or Target.Row > 7 Then Exit Sub
If Target.Address(0, 0) = "C5" Then UserForm3.Show
If Target.Address(0, 0) = "C6" Then UserForm1.Show
If Target.Address(0, 0) = "C7" Then UserForm2.Show
Cancel = True
End Sub[/FONT]

Merhaba Sayın Ömer BARAN,

Kod gayet güzel çalışıyor, güzel bir alternatif oldu, teşekkür ederim.

Saygılarımla.