Mükerrer kayıt

[talatcd]

Sub mükerer ()
For X = [E65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("E8:E" & X), Cells(X, "E")) > 1 Then Rows(X).Delete
Next
End Sub

 

[talatcd]

Selam Arkadaşlar açıklamasını yazmayı unuttum, bu makro ile mükerrer kayıtların üsttekini bırakıp alttakilerin isiliyor. Benim isteğim üstten silsin en alttaki kalsın. Bunun için makroyu nasıl değiştirebilirim. Saygılarımla

 

[veyselemre]

Sub MukerrerSil()
basla:
son = [E65536].End(3).Row
For X = 8 To son
    If WorksheetFunction.CountIf(Range("E8:E" & son), Cells(X, "E")) > 1 Then
        Rows(X).Delete
        GoTo basla
    End If
Next
End Sub

 

[talatcd]

Teşekkürler veyselemre tam istediğim gibi olmuş ellerine sağlık