Satır silerken atlayarak siliyor

[winstoncash]

Herkese merhaba,

Proforma fatura taslağımda 50 tane boş ürün satırı var, ekleyeceğim ürünleri ekledikten sonra kalan boş satırları silmek için aşağıdaki kodu uyguladım ama çalıştırdığımda bir satır silip sonrakini bırakıyor. Yani sıra numarası verdiğim satırlardan 2,4,6,8,10.... nolu satırları siliyor ama 1,3,5,7.... nolu satırlar kalıyor. Kodun neresinde hata var, yardımcı olabilir misiniz

*Ürünleri eklediğim salan 21. satırdan 70. satıra kadar
**Ürün ismini eklediğim sütun C sütunu ve boş olup olmadığını bu sütuna bakarak tespit etmesini istiyorum.

Sub sil()

Application.ScreenUpdating = False

For t = 21 To 70
    For i = 3 To 3
        If Cells(t, i) = "" Then
            Rows(t).Delete
            i = 3
           End If
           Next
         
Next

Application.ScreenUpdating = True

End Sub

 

[EmrExcel16]

Merhaba , bu şekilde deneyiniz..

For t = 70 To 21 Step -1

 

[winstoncash]

Merhaba , bu şekilde deneyiniz..

For t = 70 To 21 Step -1

Çözüldü, çok teşekkür ederim.

 

[EmrExcel16]

Rica ederim, iyi çalışmalar..