Hem sol hem de sağ tık yapmak

[rapstar_kagan_96]

Arkadaşlar merhaba.
İlginç bir şey geldi aklıma. Olup olmayacağını bilmiyorum.
Sadece Sayfa1'de D3:O18 hücreleri arasında mouse ile herhangi bir hücreye sol tık yapınca R1 hücresine yazdığım rakamı yazsın,sağ tık yapınca "X" (BÜYÜK ÇARPI)işareti yazsın. Mümkün mü?
Şimdiden teşekkürler.

 

[snx111]

değil değil değil

 

[rapstar_kagan_96]

Bir kez söyleyeydin anlardım ben arkadaşım.

 

[snx111]

İMKANSIZ DEĞİL

BUYRUN KODLAR
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
ActiveCell.Value = "X"
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If ActiveCell.Value = "" Then ActiveCell.Value = "1"
End Sub

 

[rapstar_kagan_96]

Arkadaşım ilgine teşekkür ediyorum ama kodlar işe yaramadı.
Sol tık yapınca Sayfa1 deki R1 hücresine yazılan rakamı yazacak,sağ tık yapınca X işareti koyacak.Sizin kodlarda sol tık yapınca 1 rakamı ekliyor,sağ tık yapınca yine 1 rakamı ekliyor ve düzeh menüsü açılıyor

 

[snx111]

buyrun yeni kodlarınız ;

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("d3:o15")) Is Nothing Then Exit Sub
ActiveCell.Value = "X"
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, Sayfa1.Range("d3:o15")) Is Nothing Then Exit Sub
If ActiveCell.Value = "" Then ActiveCell.Value = Sayfa1.Range("r1")

End Sub

 

[rapstar_kagan_96]

Sol tık yine iş görmedi. Ben onu şöyle değiştirince çalıştı.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [D3:O18]) Is Nothing Then Exit Sub
Cancel = True
Target = [R1]
End Sub

Sağ tık çok güzel olmuş ama ufacık bir hata var. Sağ tık yapınca X işereti ile birlikte düzen menüsü de açılıyor. Bunu engellemenin yolu var mı?

 

[snx111]

sence varmıdır ?

 

[rapstar_kagan_96]

Bence vardır diye tahmin ediyorum. Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) satırından sonra cancel=True yaptım sorun halloldu. Bu uyarıyı beni buna düşünmeye sevk etmek için yazdığınızı biliyorum. İlginize ve emeğinize teşekkür ederim.

 

[snx111]

aynen öyle yazılıcak