Sayfa 2 deki verilere göre sayfa 1 de satır silme

[26Sinan]

Merhaba
Problemim şu. Excel 1. sayfada işyerinde kullandığım parça listem mevcut. yüzlerce model, farklı stoklar mevcut. Ve ben bunları her defasında sadeleştirmek için uğraşıyorum.Şartlı sil ile sadeleştiriyorum ama çok fazla değişkenli stok olduğu için aklıma bişey geldi olur mu olmaz mı bilemedim size danışayım dedim.

Sayfa2 de A sütununda aşağıya doğru stokları yazdım ben.Burada alt alta yazdığım stoklar Sayfa1 de A sütününda varsa olduğu satırı (a,b,c,d) komple silmesi için makro oluşturmak mümkün müdür?

Yardımlarınız için teşekkür ederim

 

[bmutlu966]

Bu kodlar Sayfa2 A sütunundaki veriyi Sayfa1 A sütununda gördüğünde Sayfa1 deki o satırı siler.
Eğer verileriniz çoksa bu kodlarla işlemin bitmesi uzun sürecektir.

Sub satir_sil()

Application.ScreenUpdating = False

Set s1 = Sheets("Sayfa1")
Set S2 = Sheets("Sayfa2")

son1 = s1.[A65000].End(3).Row
son2 = S2.[A65000].End(3).Row

For t = son2 To 1 Step -1
    For s = son1 To 1 Step -1
    If S2.Cells(t, "A") = s1.Cells(s, "A") Then
    Rows(s).Delete
    End If
    Next

Next
Application.ScreenUpdating = True

End Sub

 

[26Sinan]

Çok teşekkür ederim. İlk uygulamamda başarılı oldu. Dosyada detaylı çalışıp eksiklikleri varsa tekrardan rahatsız ederim sizi. İyi Çalışmalar