boş satırların silinmesi

[osmandemir]

merhaba herkese kolay gelsin ekli dosyadaki boş satırları silmek ancak F5 -özel - boşluk diyorum ancak dolu satırda boş hücre varsa onuda siliyor.sadece bo satırları sile bilirmiyiz

 

[Muhammet Okumuş]

Merhaba

Sub Boşluk_Sil()
sonsat = Range("A100").End(3).Row
For i = sonsat To 1 Step -1
If Cells(i, 1) = "" Then Rows(i).Delete
Next
End Sub

kodu deneyiniz.

 

[osmandemir]

teşekkür ediyorum

 

[evrenarslan]

Merhaba

kodu deneyiniz.

Bu makro tam olarak ne yapıyor?

Açıklar mısınız?