İkinci kritere göre silme

[sefer seferoğlu]

Forumdan daha önce edindiğim aşağıdaki kodla mükerer kayıtları temizliyordum.Ancak yeni oluşturduğum listede A sütununda aynı değer olmasına rağmen o satırın B sütununa denk gelen değerler farklı ise silmesini istemiyorum uygun kod varmı acaba.Yardımlarınıza teşekkürler.
Örnek:
A SÜTUNU B SÜTUNU
ahmet pijama
ahmet gömlek
ahmet pantolon
ahmet pijama
Yukarıdaki listede sadece ahmet pijama satırını silmeli.

Sub MÜKERRER_KAYITLARI_TEMİZLE()
For x = [A6000].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("A1:A" & x), Cells(x, "A")) > 1 Then _
Rows(x).Delete
Next
End Sub

 

[Kemal Demir]

Selam,

Aşagıdaki Koduda Kullanabilirsiniz.

Sub mukerrersil()
For x= [a65536].End(3).Row to 2 step-1

if Cells(x,1).value=Cells(x+1,1).value and  Cells(x,2).value=Cells(x+1,2).value Then
Rows(x).delete
End if
Next
End Sub

 

[sefer seferoğlu]

İlginize teşekkür ediyorum, Sağolun.