boş satırları silme

[sevensuleyman]

merhaba ; aşağıda bulunan vba koldarı ile excell sayafamı kopyalıyorum. bu excell sayfasında formüllerim mevcut formülleri boş olarka göstermekteyim. b sütunu boş ise tüm satırı silmesini istiyorum. kopyalama yaparken boş satırları silmesi için kodu nasıl düzenlemem gerekir. yardımcı olursanız sevinirim.



Range("B1").Select
Application.CutCopyMode = False

Sheets("ürünler").Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & "N11 güncelleme_FİYAT_" & Format(Now, "( dd.mm.yyyy )") & ".xlsx", 51
ActiveWorkbook.Close
Application.DisplayAlerts = True

MsgBox "Aktarım Bitti.", vbInformation

 

[Korhan Ayhan]

Bağlantılar;

İnceleyiniz...

 

[sevensuleyman]

Bağlantılar;

İnceleyiniz...

google da ben arattırdım ama uyarlayamadığım için yardım istedim.