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

N

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,428
Excel Vers. ve Dili
Ofis 365 Türkçe
Merhaba,

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


Kod: 
Sub Macro1()
Range("B2:B" & [A65536].End(3).Row).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst