bul sil makrosu

[MES_ELE]

arkadaşlar ekteki dosyayı inceleyip yardımcı olurmusunuz. hat veriyor , ana sayfadan işlemleri yürütmek istiyorum
teşekkürler

 

[danersin]

range kullanımındaki hatanızı görmeniz için sizin gittiğiniz yoldan çözdüm.

Private Sub CommandButton1_Click()
On Error Resume Next
sat = Sheets("Sayfa1").Columns(1).Find(ComboBox1.Value).Row
Sheets("Sayfa1").Range(Sheets("Sayfa1").Cells(sat, 1), Sheets("Sayfa1").Cells(sat, 5)).ClearContents
[sayfa1!A2:E65536].Sort Key1:=[sayfa1!a2]
End Sub