Eşleşmeyen Değerleri Silme

[Luckyfran]

Arkadaşlar şimdi resimdeki gibi çalışmamız var.D sütunuda olan değerleri A sütunu ile eşleştirip D sütununda olmayanlar değerlerin bulunduğu satırı komple silmek istiyorum.

 

[Ömer BARAN]

Merhaba.

Belgeniz açıkken alt taraftan sayfa adına fareyle sağ tıklayın ve KOD GÖRÜNTÜLEyi seçin.
Açılan ekranın sağ tarafındaki boş alana aşağıdaki kod'u yapıştırın ve çalıştırın.
.

[FONT="Arial Narrow"]Sub OLMAYANLARI_SIL_BRN()
For brn = [A65536].End(3).Row To 1 Step -1
    If WorksheetFunction.CountIf(Range("D:D"), Cells(brn, 1)) = 0 Then _
        Range("A" & brn & ":B" & brn).Delete Shift:=xlUp
Next
End Sub[/FONT]