Varyasyonlu liste oluşturma

bkr-ylmz

Altın Üye
Katılım
26 Mayıs 2017
Mesajlar
45
Excel Vers. ve Dili
Türkçe 2021
Merhabalar, iyi yıllar herkese;
Ekteki örnekte göstermeye çalıştığım gibi bir malzeme listesi oluşturmaya çalışıyorum. 6 farklı özellik var ve her varyasyonda malzeme ismi bulunuyor, bu listeyi oluşturabileceğim bir formül var mıdır, ya da böyle bir sorun makro ile mi çözülebilir, yardımcı olabilir misiniz. Teşekkürler.
 

Ekli dosyalar

veyselemre

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,553
Excel Vers. ve Dili
Pro Plus 2021
Kod:
Sub listeOlustur()
    sat = 2
    For i = 2 To Cells(Rows.Count, 1).End(3).Row
        For ii = 2 To Cells(Rows.Count, 2).End(3).Row
            For iii = 2 To Cells(Rows.Count, 3).End(3).Row
                For iv = 2 To Cells(Rows.Count, 4).End(3).Row
                    For v = 2 To Cells(Rows.Count, 5).End(3).Row
                        For vi = 2 To Cells(Rows.Count, 6).End(3).Row

                            Cells(sat, 8) = Cells(i, 1) & " " & Cells(ii, 2) & " " & _
                                            Cells(iii, 3) & " " & Cells(iv, 4) & " " & _
                                            Cells(v, 5) & " " & Cells(vi, 6)
                            sat = sat + 1
                            
    Next vi, v, iv, iii, ii, i
End Sub
 

bkr-ylmz

Altın Üye
Katılım
26 Mayıs 2017
Mesajlar
45
Excel Vers. ve Dili
Türkçe 2021
Teşekkürler, işimi çok kolaylaştırdı.
 
Üst