Veriler geldikten sonraki verisi olmayan satıları silme

[ThEeNCi]

Selamlar

Fatura sayfasında irsaliye numarası girilince data sayfasındaki verileri Çekiyorum çektikten sonra verileri gelen satırlar dışındaki boş satırlardaki Formülleri silmem gerekiyor nasıl yapabilirim.

Teşekkürler

 

[YUSUF44]

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz:

Sub formülsil()
son = Cells(Rows.Count, "A").End(3).Row
For i = 5 To son
    If Cells(i, "A") = "" Then Range(Cells(i, "A"), Cells(i, "E")).ClearContents
Next
End Sub

 

[ThEeNCi]

Yusuf bey teşekkür ederim

 

[YUSUF44]

Kolay gelsin.