Listeden Seçilen değere göre dinamik liste oluşturmak

[Alperen25]

Arkadaşlar merhaba,

Elimde ürünlere ait malzeme listeleri var.
Listeler parça adı ve parça sayısından oluşuyor.
Bu listeler solidden alınıyor.
Listede yazan parçalardan bazıları kesilecek bazıları kesilmeyecek.
Kesilmeyecek olanlar etikette görünmeyecek.
Bunun için bir sütun ekledim ve etikette görünmesi gerekenlere 1 diğerlerine 0 yazdım.
Daha sonra pivot table ile istediğime çok yakın bir neticeye ulaştım.
Ama pivot table ile hareketlerim biraz kısıtlı oluyor.
Bu yüzden makro ile yapmak istiyorum.
İlgilenmek isteyen arkadaşlar için çalışma dosyasını ekledim.

 

[Orion1]

Dosyanız ektedir.

Sub parca59()
Dim sh As Worksheet, z As Object, liste(), i As Long
Dim sonsat As Long
Sheets("ETİKET").Select
Range("A3:B" & Rows.Count).ClearContents
Set sh = Sheets("ÜRÜNLER")
sonsat = sh.Cells(Rows.Count, "B").End(xlUp).Row
liste = sh.Range("B2:D" & sonsat).Value
Set z = CreateObject("Scripting.dictionary")
For i = 1 To UBound(liste)
    If liste(i, 3) <> 0 Then
        If Not z.exists(liste(i, 1)) Then
            z.Add (liste(i, 1)), liste(i, 2)
        Else
            z.Item(liste(i, 1)) = z.Item(liste(i, 1)) + liste(i, 2)
        End If
    End If
Next
Erase liste
Range("A3").Resize(z.Count, 2) = Application.Transpose(Array(z.keys, z.items))
MsgBox "İşlem tamamlandı." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[Alperen25]

İlgilendiğiniz için teşekkür ederim lakin ürün adını listeden seçince değişiklik olmuyor.
Tıkla tuşuna basınca da işlem tamamlandı diyor. Başka değişiklik olmuyor.
Seçtiğim ürün adına göre aşağıdaki listeye, o ürüne ait parçaların isim ve miktarlarının gelmesi lazım.

Böyle olacak şekilde revize yapabilir miyiz?

 

[çıtır]

Alternatif çözüm.Makro ile çözüm yenilendi.Formülle çözüm eklendi.Kolay gelsin.

 

[Orion1]

İlgilendiğiniz için teşekkür ederim lakin ürün adını listeden seçince değişiklik olmuyor.
Tıkla tuşuna basınca da işlem tamamlandı diyor. Başka değişiklik olmuyor.
Seçtiğim ürün adına göre aşağıdaki listeye, o ürüne ait parçaların isim ve miktarlarının gelmesi lazım.

Böyle olacak şekilde revize yapabilir miyiz?

Ürün seçilince değil tüm ürünler için gösteriyor.

 

[Alperen25]

teşekkür ederim fakat listemiz dinamik değil yine. Mesela Cihaz 1 için 8 parça varken cihaz 2 için 6 çeşit parça var. Parça sayısı sabit olmadığı için listemiz de dinamik olmalı.

 

[Alperen25]

Arkadaşlar makro şart değil formül ile oluyorsa o da olabilir.

 

[Alperen25]

İlginiz için teşekkür ederim. Ben de biraz uğraştım bir netice aldım ama dosya boyutu çok fazla oldu. 20 mb gibi bir boyuta ulaştı. Nedenini anlayamadım. 2 satır kod var sadece. Niye bu kadar yüksek oldu anlayamadım. Dosyanın linkini ekledim.

http://dosya.co/t96grffn7p3q/ETİKET_HAZIRLA.rar.html