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

Katılım
7 Nisan 2020
Mesajlar
5
Excel Vers. ve Dili
Excel 2016 - Türkçe
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

Altın Üye
Katılım
26 Ocak 2006
Mesajlar
755
Excel Vers. ve Dili
Office 365 İngilizce 64 Bit
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.

Kod:
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
 
Katılım
7 Nisan 2020
Mesajlar
5
Excel Vers. ve Dili
Excel 2016 - Türkçe
Ç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
 
Üst