boş satır sil makrosu

[steppe]

Aşağıdaki boş satır sil makrosu çalışma kitabındaki tüm sayfalara uygulanıyor.Bunu sadece bir sayfa için nasıl uyarlayabiliriz.

Sub bossatirsil()
For a = 1 To Sheets.Count
sat = Sheets(a).Cells.SpecialCells(xlCellTypeLastCell).Row
sut = Sheets(a).Cells.SpecialCells(xlCellTypeLastCell).Column
For b = sat To 1 Step -1
If WorksheetFunction.CountA(Sheets(a).Rows(b)) = 0 Then Sheets(a).Rows(b).Delete
Next
For c = sut To 1 Step -1
If WorksheetFunction.CountA(Sheets(a).Columns(c)) = 0 Then Sheets(a).Columns(c).Delete
Next
Next
End Sub

 

[Murat OSMA]

Bu konuda sitede birçok mesaj vardır...

Aşağıdaki kodu deneyiniz;

Sub BosSatirlariSil()
Range(Range("A65536").End(xlUp), Range("A2")).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub