Mouse ile Seçili Hücre Silme

[MaliMuavin]

Merhabalar,
Mouse ile seçili hücre sil makrosunu kullanıyorum
Lakin tablomda kullandığım kod komple satırı siliyor. Bu denli Gizlediğim satır a satır ekleniyor.
Fakat ben Sadece mouse ile seçtiğim hücrelerin içini silmek istiyorum.
Örneğin "C1" satırında takip eden "D1" ve "E1" hücrelerin içini temizlesin istiyorum.
Özetle Makronun mouse ile satırın sadece yanyana olan 3 hücrenin içini temizlesin istiyorum.
Kullandığım kod budur

Sub YuvarlatılmışDikdörtgen1_Tıklat()
Selection.EntireRow.Delete

End Sub

 

[MaliMuavin]

yardım edebilecek biri yokmudur acaba

 

[zehirlee]

Tekil olarak silmek istersen alttaki kod işine yarayabilir

Sub YuvarlatılmışDikdörtgen1_Tıklat()
Selection.ClearContents

End Sub

 

[MaliMuavin]

Öncelikle ilginize teşekkür ederim
Bu verdiğiniz koda 3 tane hücre içini silmesi olayını nasıl entegre ederiz.
Örneğin C5 hücresini seçtim ve butona basınca C5 - D5 - E5 hücre içini temizlesin.

 

[zehirlee]

Sub YuvarlatılmışDikdörtgen1_Tıklat()
Range("c5,d5,e5").ClearContents

End Sub

 

[Seyit Tiken]

Range(Cells(ActiveCell.Row, "C"), Cells(ActiveCell.Row, "E")) = ""

 

[halit3]

kod:

Sub YuvarlatılmışDikdörtgen1_Tıklat()

sat = ActiveWindow.RangeSelection.Row
sut = ActiveWindow.RangeSelection.Column
Range(Cells(sat, sut), Cells(sat, sut + 2)).ClearContents

End Sub

kodun yaptığı işlem imlecin bulunduğu satır ve sutün ile iki sutun sağ tarafdaki veriyi siler

 

[halit3]

Aralıkdaki verileri siler

Sub YuvarlatılmışDikdörtgen1_Tıklat()

Range("c1:e1").ClearContents

End Sub

 

[MaliMuavin]

Hepinize çok çok teşekkür ederim sayenizde problem çözüldü