Eğer sütunda tekse ve diğer sütunda A varsa sil

[turkanet]

Merhaba,
İhtiyacım olan makronun aşağıdakini yapmasını istiyorum;
1- D sütununda birçok veri var. Ancak bazı veriler birkaç kez tekrarlıyor. Eğer D sütunundaki veri o sütunda tekrarlanmıyorsa ve ilgili G satırında A harfi varsa, satırın silinmesini istiyorum.
Şimdiden teşekkür ederim.

 

[mersilen]

Merhaba
deneyin.

Sub KOŞULLU_SİL()
For X = [G65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range(Cells(1, "d"), Cells(X, "d")), Cells(X, "d")) = 1 And Cells(X, "g") = "a" Then Rows(X).Delete
Next
MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[turkanet]

birden fazla olanları da siliyor. güncellemenizi rica ederim

 

[mersilen]

Merhaba, sonradan gördüm, bunu deneyin.

Sub KOŞULLU_SİL()
For X = [G65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range(Cells(1, "d"), Cells([G65536].End(3).Row, "d")), Cells(X, "d")) = 1 And Cells(X, "g") = "a" Then Rows(X).Delete
Next
MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub