Sub dene()
On Error Resume Next
Application.Workbooks("ilgili çalışma adını yazın").Sheets("Silinecek sayfa adını yazın").Range("A5:A85").SpecialCells(xlCellTypeConstants).EntireRow.ClearContents
End Sub
sayfada bir commandbutton oluşturun ve yukarıdaki kodu butona atayın
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.