Kritere uyan satırı silme hk.

[kemal turan]

merhaba,
Aşağıdaki kod ile satır silme işlemi yapmak istiyorum.
Gelişmiş fitre ile verileri SİL adlı sayfaya alıyorum.
SİL sayfasında B5:B30 aralığındaki verilere karşılık gelen
HAREKETLER sayfasının A sutunundaki satırları komple silmek istiyorum. karşılık gelen sutunun

Sub sil()
    Dim X As Long, Son As Long
    Set s1 = ThisWorkbook.Worksheets("SİL")
    Set s2 = ThisWorkbook.Worksheets("HAREKETLER")'satır silinecek sayfa

    For i = 5 To s1.Range("B30").End(xlUp).Row 'silinecek verilerin olduğu alan
   ' KOD DESTEĞİ İSTEDİĞİM ALAN=eğer hareketler sayfasının a sutunundaki değer döngü değeri ile eşit ise hareketler sayfasınıdaki satır komple silinecek.
    Next i
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[PLİNT]

Merhaba
Şöyle deneyin.

Sub sil()
    Set s1 = ThisWorkbook.Worksheets("SİL")
    Set s2 = ThisWorkbook.Worksheets("HAREKETLER") 'satır silinecek sayfa
    For i = 5 To 30 'silinecek verilerin olduğu alan
 Set a = s2.Range("A1:A" & s2.Cells(s2.Rows.Count, 1).End(xlUp).Row).Find(s1.Cells(i, 2).Value, LookAt:=xlWhole)
 If Not a Is Nothing Then
s2.Rows(a.Row).Delete Shift:=xlUp
End If
Set a = Nothing
    Next i
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[kemal turan]

Sn.Pilint merhaba,
Çok teşekkür ederim.
Selametle kalınız.

 

[PLİNT]

Sn.Plint merhaba,
Çok teşekkür ederim.
Selametle kalınız.

Rica ederim. Kolay gelsin, sağolun.