VBA Boş Satırları Sil


VBA ile fazlalık yaratan tamamı bos olan satıları sılmek ıcın bır kod paylasacagım, yanlis bisey silmemek yahut macrolarinizda bosluklar olusuyorsa yada elinizde olan dosyalarda zaten fazladan bos satirlar bulunuyorsa faydali olabilir;

VBA Kodlari

Sub Bos_Satirlari_Sil()
Dim i As Long
With ActiveSheet
For i = .Cells.SpecialCells(xlCellTypeLastCell).Row _
To 1 Step -1
If WorksheetFunction.CountA(.Rows(i)) = 0 Then
ActiveSheet.Rows(i).Delete
End If
Next
End With
End Sub

Yazar: mmustafaaslan

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

“VBA Boş Satırları Sil” için 1 yorum

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


8 + 7 =