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.
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.