VBA ile Excel Sayfa1 den belirli bir hücreden boş hücreye kadar olan satırları seçip sildirmek

[ormancı421]

Arkadaşlar Excelde bir sayfadaki Bir Cetvelin sabit bir hücresindan başlayarak boş satıra kadar olan satırları seçip bir buton ile dolu satırları sildirmek istiyorum yardımcı olabilir misiniz

 

[BAZGİRET]

Şöyle olabilir

Sub sil()
           sondolu = Worksheets("Sayfa1").Cells(Rows.Count, "A").End(xlUp).Row
  For Each silinsin In Range("A1:E" & sondolu) 'sonsütünu kendinize uyarlayın.'
       silinsin.ClearContents
    Next silinsin
End Sub

 

[ormancı421]

Bir Butona yazmamız gerekiyor. Bir buton içine kodu yazdım ancak "silinsin.ClearContents" kısmında hata veriyor.

 

[BAZGİRET]

Dosyanızı ekleyebilir misiniz? Özel değilse

 

[Saban Sertkaya]

Döngüye almanıza gerek yok. Aşağıdaki şekilde deneyin.

Sub Düğme1_Tıklat()
Range("A1:K" & [K1048576].End(xlUp).Row).ClearContents
End Sub

A1'den K sütunun son dolu hücresine kadar olan alanı siler.
Siz, A1 ile Kırmızı renk ile gösterilmiş olan K harfini değiştirerek deneyiniz.