Mouse ile satır silme

[ASLAN7410]

Merhaba hayırlı akşamlar.

Excel dosyamın 1.sayfasındaki sol tarafta aşağıya doğru devam eden rakamlardan
bir tanesine mouse sol tuş ile tıkladığımda o satırı silebilir miyiz?
Yardımcı olur musunuz?
.

 

[Orion1]

Buyurun.
Dosyanız ektedir.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [A1:A29]) Is Nothing Then Exit Sub
Rows(Target.Row & ":" & Target.Row).Delete
Cancel = True


End Sub

 

[ASLAN7410]

Sayın Evren Bey, ilginiz için çok teşekkür ediyorum.

Her halde tek tıklama ile çalışmıyor galiba. Bu kodu A sütunun tümüne nasıl uygularız?

 

[Orion1]

Sayın Evren Bey, ilginiz için çok teşekkür ediyorum.

Her halde tek tıklama ile çalışmıyor galiba. Bu kodu A sütunun tümüne nasıl uygularız?

Çift tıklama ile çalışıyor.Buyurun.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [[B][COLOR="Red"]A:A[/COLOR][/B]]) Is Nothing Then Exit Sub
Rows(Target.Row & ":" & Target.Row).Delete
Cancel = True


End Sub

 

[ASLAN7410]

Sayın Evren Bey, çok teşekkür ediyorum. Ellerinize sağlık.

Hayırlı akşamlar, hayırlı çalışmalar diliyorum.

 

[Orion1]

Sayın Evren Bey, çok teşekkür ediyorum. Ellerinize sağlık.

Hayırlı akşamlar, hayırlı çalışmalar diliyorum.

Rica ederim.
İyi akşamlar.

 

[Seyit Tiken]

Mouse Sağ TUŞU ile yapabilirsiniz.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
'Kodlarınız
End Sub

 

[ASLAN7410]

Sayın Seyit Bey, çok teşekkür ediyorum, kodlar gayet istediğim gibi çalışıyor ancak, mouse sağ tıklamadaki diğer menüler açılmıyor.

 

[Seyit Tiken]

Bu şekilde deneyin.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
Cancel = True
'Kodlarınız
End Sub

 

[ASLAN7410]

Sayın Seyit Bey, çok teşekkür ediyorum, kod gayet güzel çalışıyor.

Hayırlı geceler, hayırlı çalışmalar diliyorum.