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
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.