Boş olan satırları silme

[fdisk]

Arkadaşlar excel rapor oluşturuyorum.
yaptığım raporda a45 ve sonrası satırlara veri aktarıyorum
benim istediğim a45 den sonraki boş olan ve (boş) yazan satırları komple silmesini istiyorum.

yardımlarınız için şimdiden Teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz. Umarım faydası olur.

Sub BOŞ_SATIRLARI_SİL()
    On Error Resume Next
    [A45:A65536].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    For X = 45 To [A65536].End(3).Row
    If Cells(X, 1) = "(boş)" Then Rows(X).Delete
    Next
End Sub

 

[fdisk]

Selamlar,

Aşağıdaki kodu denermisiniz. Umarım faydası olur.

Sub BOŞ_SATIRLARI_SİL()
    On Error Resume Next
    [A45:A65536].SpecialCells(xlCellTypeBlanks).Delete
    For X = 45 To [A65536].End(3).Row
    If UCase(Cells(X, 1)) = "BOŞ" Then Rows(X).Delete
    Next
End Sub

Hoçam sağol
örnek dosyayı bi incelerseniz. sevinirim

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki kodu güncelledim. Denermisiniz. Umarım faydası olur.

 

[fdisk]

Hoçam çok sağol istediğim gibi olmuş