Sayfalarda boş satırları sil

[nadirornek]

Merhaba,

Ara1,Ara2,Ara3,Ara4,Ara5,Ara6,Ara7,Ara8,Ara9,Ara10,Ara11,Ara12,Ara13,Ara14,Ara15,Ara16,Ara17 sayfalara veri çektiğim zaman boş satırlar oluşmaktadır.
Bu sayfalardaki boş satırları silmek için bir makro koduna ihtiyacım var.

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz.

Sub Makro1()

    Dim Syf As Worksheet
    
    On Error Resume Next
    
    For Each Syf In Worksheets
        If Syf.Name Like "Ara*" Then Syf.Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    Next Syf
    
    MsgBox "Bitti....."
    
End Sub

 

[nadirornek]

Necdet Bey, kod için sağ ol güzel ve hızlı çalışıyor.