Boş satır silme

[opossum]

Merhaba arkadaşlar aşağıdaki makro ile sayfadaki boş satırları silebiliyorum fakat çalışma kitabında 15 adet sayfam var tüm sayfaların aynı anda boş satırlarını silecek makroya ihtiyacım var.
teşekkür ederim.

Sub Bossatirsil()
LastRow = ActiveSheet.UsedRange.Row - 1 + _
ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For k = LastRow To 1 Step -1
If Cells(k, 1) = "" Then Rows(k).Delete
Next k
End Sub

 

[veyselemre]

Sub tumBosSatirlariSil()
    For Each syf In ThisWorkbook.Sheets
        Set rng = syf.Columns("A:A").SpecialCells(xlCellTypeBlanks)
        rng.EntireRow.Delete shift:=xlUp
    Next
End Sub

 

[opossum]

Sub tumBosSatirlariSil()
    For Each syf In ThisWorkbook.Sheets
        Set rng = syf.Columns("A:A").SpecialCells(xlCellTypeBlanks)
        rng.EntireRow.Delete shift:=xlUp
    Next
End Sub

Üstat hiçbir hücre bulunamadı diye hata alıyorum saygılar

 

[Necdet]

Merhaba,

Kodların başına

On Error Resume Next

satırını ekleyin, öyle deneyin.

 

[Korhan Ayhan]

Necdet Bey,

Silme işlemlerinde bahsettiğiniz komutu eklemek sakıncalı olabilir. Bunun yerine ilgili alandaki boş hücreler saydırılıp koşula eklenebilir.

 

[veyselemre]

Üstat hiçbir hücre bulunamadı diye hata alıyorum saygılar

Sub tumSayfalardakiBosSatirlariSil()
    On Error Resume Next
    For Each syf In ThisWorkbook.Sheets
        syf.Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete shift:=xlUp
    Next
    On Error GoTo 0
End Sub

 

[veyselemre]

On error resume next kullanmamak için, şöyle zorlama bir çözüm olabilir.

Sub tumSayfalardakiAsutunuBossaSil()
    For Each syf In ThisWorkbook.Sheets
        If syf.UsedRange.Address <> "$A$1"  Then
            syf.Cells(syf.UsedRange.Rows.Count + 1, 1) = Null
            syf.Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete shift:=xlUp
        End If
    Next
End Sub

 

[Necdet]

Necdet Bey,

Silme işlemlerinde bahsettiğiniz komutu eklemek sakıncalı olabilir. Bunun yerine ilgili alandaki boş hücreler saydırılıp koşula eklenebilir.

Merhaba,

Makro tek bir iş yaptığı için önerdim. Bir çok işlem olsa o zaman haklısınız tabi Korhan bey.