Listeye göre satırdaki verileri temizleme

[meleklerim]

9 bin satırlık bir belgede listesi verilen satırlara denk gelen B sütunundaki verilerin silinmesini istiyorum.
Örnek olarak 2 adet elle yaptım ama 2 binden fazla olduğu için makroya ihtiyacım var.
İlgilenen arkadaşlara şimdiden teşekkürler

Örnek dosya ektedir, kolay gelsin

http://s2.dosya.tc/server2/5kjyca/listeyisil.xlsx.html

 

[Ömer BARAN]

Merhaba.
.

[FONT="Arial Narrow"]Sub SİL()
For sat = 2 To Sheets("Sayfa1").[D65536].End(3).Row
    Sheets("Sayfa1").Range("B" & Sheets("Sayfa1").Cells(sat, "D") + 1).ClearContents
Next: MsgBox "SİLME İŞLEMİ TAMAMLANDI"
End Sub[/FONT]

 

[Orion1]

Dosyanız ektedir.

Sub sil59()
Dim sonsat As Long, i As Long, sonsat2 As Long
sonsat = Cells(Rows.Count, "D").End(xlUp).Row
sonsat2 = Cells(Rows.Count, "A").End(xlUp).Row
Application.ScreenUpdating = False
For i = sonsat2 To 2 Step -1
    If WorksheetFunction.CountIf(Range("D2:D" & sonsat), Cells(i, "A").Value) > 0 Then
        Range("A" & i & ":B" & i).Delete xlUp
    End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem tamamdır." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[meleklerim]

teşekkürler, sorun çözüldü