şarta bağlı satır silme

[maliex]

merhaba,

eğer "g" sutununda satırda eğer "0" a eşitse "0" olan satırı silmek istiyorum yardımınızı rica ederim..aşağıdaki kodu deniyorum ama olmadı

ss = Sheets("sayfa1").Cells(Rows.Count, "A").End(3).Row
For i = 2 To ss

    If Cells(i, 7) = 0 Then Rows(i).Delete

Next i

 

[muratboz06]

G sütununda A sütunundan fazla veri yok değil mi?

ss = Sheets("sayfa1").Cells(Rows.Count, "A").End(3).Row
For i = ss to 2 Step -1

    If Cells(i, 7) = 0 Then Rows(i).Delete 'veya
    ' If Cells(i, 7) = 0 Then Cells(i, 7).EntireRow.Delete

Next i

 

[maliex]

harikasınız çok teşekkür ederim