Koşula Göre Mükerrer kayıtları silme

[snmaybkehr]

Merhabalar,

Mükerrer olan kayıtlarda en büyük tarihi bırakıp, diğer kayıtları silmek istiyorum.

Dosya:

İndir KVK Bayi İletişim Platformu (6) (version

Dosyayı indir KVK Bayi İletişim Platformu (6) (version

dosya.co

Yardımlarınıza.

 

[Ömer]

Merhaba,

Deneyiniz.

Sub mukerrer_sil()

    Dim son As Long
   
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
   
    son = Cells(Rows.Count, "A").End(xlUp).Row
    Range("A1:F" & son).Sort Key1:=Range("C1"), Order1:=xlDescending
    Range("A1:F" & son).RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes

    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
   
End Sub

.