Tüm Sheetslerde boşları b10:b65536 sil

[Ercan_ÇELİKOĞLU]

çalıştığım excel kitabında tüm sheetslerdeki B10:B65536 arasındaki boşolan makro kodu ile boş olan tüm satırları silsin.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Sub BOŞ_SATIRLARI_SİL()
    On Error Resume Next
    For Each SAYFA In Worksheets
    SAYFA.[B10:B65536].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    Next
    MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
End Sub

 

[Ercan_ÇELİKOĞLU]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Sub BOŞ_SATIRLARI_SİL()
    On Error Resume Next
    For Each SAYFA In Worksheets
    SAYFA.[B10:B65536].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    Next
    MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
End Sub

Hızır gibisin üstad günlerdir isim eleyecem diye canım çıktı bugün ankara ile görüşme yaptım isim elemeye ve farklı satırlara yazmaya gerek yokmuş sadece isimlerin doğruluğu önemliymiş ben hatalı isimleri nasıl bulcam da düzeltecem.