Koşullu satır silme

[manisali451]

Merhabalar,
Bu konuda yardımcı olabilirseniz çok memnun olurum

İş yerimde her gün çektiğim bir rapor var listemde aşağıdaki macroyu kullanıp boş olan satırları siliyorum fakat farklı yerlerde kod,tanım,miktar başlıkları kalıyor en üstteki hariç diğerlerinide macro ile silebilme imkanı varmıdır.

Sub sil()
[a1:a65536].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub GEREKSİZ_SATIRLARI_SİL()
    Dim X As Long
    
    Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    For X = Range("A65536").End(3).Row To 2 Step -1
        If Cells(X, 1) = "Kod" Then Rows(X).Delete
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[manisali451]

Harika olmuş
Teşekkürler

 

[baydeniro]

Sayın Korhan Ayhan. çok teşekkürler, çok yararlı bir kod oldu.