Tekrarlayan Veriler son Tarih Kalacak Şekilde Silinsin, Yardım!

[Kekoli]

arkadaşlar merhaba,
elimde a sütunu unique olan, b sutununda isimler yazan, c sutununda görevler yazan ve d sütununda bu görevlerin geçerlilik tarihleri olan bir data var.

fakat belli sebeplerden dolayı isimler farklı tarihlerde birbirlerini tekrar ediyorlar.

tekrar edenleri sil dediğimde tarih bazlı silemiyorum.

ilgili kişinin, ilgili görevde en son geçerlilik tarihi olan satır kalsın istiyorum.

içerikte de açıklama yaptım.
yardımlarınızı bekliyorum.

 

[ÖmerBey]

Merhaba,
Sayfanızın yedeğini aldıktan sonra aşağıdaki kodu deneyiniz.

Sub kod()
x = 2 'Verilerin başlangıç satırı
Do
    If WorksheetFunction.CountIfs(Range("A:A"), Cells(x, "A"), Range("C:C"), Cells(x, "C"), Range("D:D"), Cells(x, "D")) > 1 Then
        Rows(x).Delete
    Else
        x = x + 1
    End If
Loop Until Cells(x, "A") = ""
End Sub

 

[Kekoli]

çok teşekkür ederim, uğraştığım için cevabı biraz geç attım,
başarılı. ellerinize sağlık.

 

[ÖmerBey]

Rica ederim, iyi çalışmalar...