Boş satırları isteğe göre seçmek ve silmek

[cigahagi]

Sorum ektedir,teşekkürler...

 

[Necdet]

Merhaba,

Aşağıdaki kodu bir butona bağlayabilirsiniz.

Sub Macro1()
Range("B2:B" & [A65536].End(3).Row).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub