Eşleştirme ve Listeleme

[hsny88]

Merhaba,
Elimde ekte paylaşmış olduğum gibi bir malzeme kodu ve bu malzemelerin hangi ekipmanda kaç adet kullanıldığını gösteren bir liste mevcut. Fakat bu listeyi başka bir liste ile birleştirmem gerekiyor ve formatı ana listeme uygun değil.,

Bu Listede 1. Satırda Ekipman Kodları, BVI Sütununda Malzeme Kodları ve A3 ile BVH103 arasındaki hücrelerde hangi malzemenin hangi ekipmanda kullanıldığı yazmakta. Bu tabloyu; aynı dosyada ihtiyaç duyulan liste sekmesinde belirttiğim gibi iki sütun halinde mlz ve ekipman kodu olacak şekilde listelemek istiyorum

Konu Hakkında yardımınızı rica ederim;

 

[YUSUF44]

Aşağıdaki makro verilerinizin çokluğuna göre uzun sürebilir:

Sub toparla()
Set s1 = Sheets("Çalışma Dosyası")
Set s2 = Sheets("İhtiyaç Duyulan Liste")
sonsut = s1.Cells(2, Columns.Count).End(xlToLeft).Column - 1
Application.ScreenUpdating = False
For ekipman = 1 To 10
    sonsat = s1.Cells(Rows.Count, ekipman).End(3).Row
    For malzeme = 3 To sonsat
        If s1.Cells(malzeme, ekipman) <> "" Then
            yeni = s2.Cells(Rows.Count, "A").End(3).Row + 1
            s2.Cells(yeni, "A") = s1.Cells(2, ekipman)
            s2.Cells(yeni, "B") = s1.Cells(malzeme, sonsut + 1)
        End If
    Next
Next
Application.ScreenUpdating = True
s2.Activate
MsgBox "İşlem Tamamlandı :)"

End Sub