kritere göre kayıt sildirme

[yakupoca]

Herkese kolay gelsin,

Arkadaşlar bir sorum olacak.
örnek:sayfa 1 de a1 hücresinde a yazıyor.
sayfa2 de a1,a2,a3 hücresinde a yazıyor .sayfa1 deki arama kriterine göre sayfa 2 deki kritere uyan kayıtların hepsini sildiren bir kodlamaya ihtiyacım var.

şimdiden yardımlarınız için teşekkürler.

 

[Ömer]

Merhaba,

Bu şekilde deneyin..

Option Explicit
 
Sub Sil()
Application.ScreenUpdating = False
Dim i As Long, son As Long, S1 As Worksheet, S2 As Worksheet
Set S1 = Sheets("Sayfa1")
Set S2 = Sheets("Sayfa2")
son = S2.[A65536].End(3).Row
    For i = son To 1 Step -1
        If S2.Cells(i, "a") = S1.Range("A1") Then
            S2.Rows(i).Delete Shift:=xlUp
        End If
    Next i
Application.ScreenUpdating = True
End Sub

.

 

[yakupoca]

Ömer bey yardımınız için çok teşekkür ediyorum.

 

[yakupoca]

Ömer bey,
Yardımlarınız için çok teşekkür ederim.