koşullu satır silme

[ruonour]

Merhaba,

aşağıdaki komut ile mükerrer kayıtları siliyorum. istediğim komuta bir de şunu eklemek
"eğer e sütunu 0'a eşitse"



Sub sil()
For a = [a65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("a1:a" & a), Cells(a, "a")) > 1 Then Rows(a).Delete
Next
End Sub



yardımınız için teşekkürler.

 

[dEdE]

Merhaba,
Aşağıdaki kodu dener misiniz?

Sub sil()
For a = [a65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("a1:a" & a), Cells(a, "a")) > 1 And _
Cells(a, 5).Value = 0 Then Rows(a).Delete
Next
End Sub