İçinde Veri Bulunan Aktif Hücrenin Sağındakilerini Silm

[Seyit Tiken]

Ýçinde Veri Bulunan Aktif Hücrenin Sağındakilerini Silm

Herkese Merhabalar,
Hem içinde veri bulunan seçili hücreleri silme, hemde seçili hücrelerin sağında bulunan ne kadar veri varsa silen bir makro kodu yapılabilir mi?
Teşekkür ediyorum.

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfanın kod sayfasına kopyalayarak deneyin. Sayfa üzerindeki hücreyi çift tıkladığınızda çalışacaktır.

[vb:1:55ce04b735]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
sat = ActiveCell.Row
sut = ActiveCell.Column
If ActiveCell <> 0 Then Range(Cells(sat, sut), Cells(sat, 256)).ClearContents
End Sub
[/vb:1:55ce04b735]