Varyasyonlu liste oluşturma

[bkr-ylmz]

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.

 

[veyselemre]

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

 

[Merhum İdris SERDAR]

.

Dosyanız ekte.

Pivot Table kullanarak, kartezyen çarpımla olasılıklar bulunmuş ve sonra bunlar birleştirilmiş.

Kartezyen çarpım için bakınız.

http://www.excelgurusu.com/kartezyen-carpimi/


.

 

[bkr-ylmz]

Teşekkürler, işimi çok kolaylaştırdı.