Komut butonuyla activcelin satırını sildirme

[endüstrici1992]

Merhaba arkadaşlar,
Ben bir komut butonuyla seçtiğim activecell hücresini ve onun yanındaki hücreleri sildirmek istiyorum. Hücreyi seçeyim, komut butonuna tıkladığım zaman o hücre ve yanındaki iki hücreyi sildirecek bir koda ihtiyacım var. Yardımcı olabilirseniz çok sevinirim.

 

[Huseyinkis]

Ekteki kodları incelermisiniz

Sub SilYukarıTaşı()
    Range(Cells(ActiveCell.Row, ActiveCell.Column), Cells(ActiveCell.Row, ActiveCell.Column + 2)).Select
    Selection.Delete Shift:=xlUp
End Sub

Sub Temizle()
    Range(Cells(ActiveCell.Row, ActiveCell.Column), Cells(ActiveCell.Row, ActiveCell.Column + 2)).ClearContents
End Sub

Sub Tümsatırsil()
    Rows(ActiveCell.Row).Delete
End Sub