Dolu hücre sayısı kadar For-Next

[Berke77]

Merhaba , ABC yazan hücrenin satırını silmek istiyorum. Bunun için aşağıda yazdığım makro uygun mu ve bunun dolu hücre sayısı kadar olmasını istiyorum

For hucre = 1 To "Dolu hücre sayısı"
If Cells(hucre, 13).Value = "ABC" Then
Cells(hucre, 13).EntireRow.Delete
End If
Next

 

[Ömer]

Merhaba,

Satır silme işlemlerinde döngüyü tersten kurmak gerekir.
Son dolu satırı bulan kodu kırmızı ile işaretledim.

Sub Satir_Sil()
    
    Dim i As Long
    
    Application.ScreenUpdating = False
    
    For i = [COLOR="Red"]Cells(Rows.Count, 13).End(xlUp).Row[/COLOR] To 1 Step -1
        If Cells(i, 13) = "ABC" Then
            Rows(i).Delete
        End If
    Next i
    
    Application.ScreenUpdating = True

End Sub

.

 

[Berke77]

Teşekkürler