sağ düğmeye tıkladığında o hücreyinin içini silme

[sirkülasyon]

Abi
a sütununda A9:A59 arasında fareye sağ düğmesine tıkladığım zaman o hücreyi silecek
sağolasınız

 

[Murat OSMA]

Sayfanın kod kısmına yazıp deneyiniz;

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("A9:A59")) Is Nothing Then Exit Sub
    ActiveCell.EntireRow.Delete
    Cancel = True
End Sub

Not: İlk silmede dikkat edin.

 

[sirkülasyon]

Murat Abi sağolasın Sağ tıkladıkça satırı götürüyor olduğu gibi
vallaha Ellerine sağlık

 

[sirkülasyon]

Murat abi
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A9:A59")) Is Nothing Then Exit Sub
ActiveCell.EntireRow.Delete
Cancel = True
End Sub

kodunu yazarken kafadan mı yazdın

bu kodu hazırlarken sil baştan ilk hazırlar gibi anlatman mümkünmüdür bana
aynı kodu bende yazmak istiyorum. nasıl yazacağım anlattıklarınızı yaparak kendim denemek istiyorum

 

[Murat OSMA]

Kodların anlamı:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Sayfanın mouse sağ click olayı. Sağ click ile bir işlem yapılmak istendiğinde seçilir.

If Intersect(Target, Range("A9:A59")) Is Nothing Then Exit Sub
Eğer sağ click yapılan satır (hücre) , A9 ile A59 arasında değilse; prosedürden (makrodan) çık.

Altaki satır, üstteki satıra yazdığım olayın tersi gerçekleşirse çalışır. Yani; sağ click yapılan satır (hücre) A9 ile A59 arasında ise;
ActiveCell.EntireRow.Delete
Aktif satırı sil.

Cancel = True
Sağ click ile açılan menünün görünmesini iptal et.

End Sub
Prosedürün (makronun) sonu.

[FLASH]http://s7.directupload.net/images/120712/98s2s9d4.swf width=735 height=505[/FLASH]

 

[sirkülasyon]

MUrat Abi
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Sayfanın mouse sağ click olayı. Sağ click ile bir işlem yapılmak istendiğinde seçilir

BU kodu excelin kendisinden buldunuz getirdiniz.O tamam
If Intersect(Target, Range("A9:A59")) Is Nothing Then Exit Sub
Eğer sağ click yapılan satır (hücre) , A9 ile A59 arasında değilse; prosedürden (makrodan) çık.
bu kodu kendiniz yazdınız.

Abi bu aradada film gibi anlattınız vallaha. Özellikle teşekkür ederim.

 

[sirkülasyon]

Murat abi
Google hazretlerine intersect nedir dedim excelvba sitesinde açıklama yapılmış azbuçuk.
"hedefteki hücrelerin kesiştiği yerler anlamında" Matematik kümeler işleminde kesişme ile denk imiş

 

[Murat OSMA]

Kitabın ve Sayfaların olayları vardır. Onların neler olduğunu ve hangi olayın ne işe yaradığını öğrenmeniz gerek.

Vakitle ilgili sıkıntım olduğu için, size birkaç bağlantı adresi önereceğim.
http://www.ozgrid.com/Excel/free-training/ExcelVBA1/excelvba1lesson15.htm
http://www.ozgrid.com/Excel/free-training/ExcelVBA1/excelvba1lesson16.htm

http://www.wiseowl.co.uk/blog/s194/workbook-events.htm
http://www.wiseowl.co.uk/blog/s194/worksheet-events.htm

İyi günler...

 

[Murat OSMA]

Google'a "excelvba intersect" yazarsanız; yerli, yabancı birçok örnek ve anlatım bulabilirsiniz...

Verdiğim kodda Intersect yerine şu şekilde de yazabilirsiniz;
If Target.Row >= 9 And Target.Row <= 59 Then

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Row >= 9 And Target.Row <= 59 Then
        ActiveCell.EntireRow.Delete
    End If
    Cancel = True
End Sub