• FORUMU MOBİL UYGULAMADAN TAKİP EDİN

    Forumu isteyen üyelerimiz Tapatalk (Harici bir hizmet) üzerinden mobil uygulamadan takip edebilirler.
    iOS için : https://itunes.apple.com/app/id307880732?mt=8
    Android için : https://play.google.com/store/apps/details?id=com.quoord.tapatalkpro.activity
    adreslerinden indirebilirsiniz.

    Bir iki haftaya da foruma özel kendi uygulamamız yayında olacak.
ALTIN ÜYELİK Hakkında Bilgi
-----------------------

Varyasyonlu liste oluşturma

bkrylmz@gmail.com

Altın Üye
Altın Üye
Katılım
26 Mayıs 2017
Mesajlar
21
Beğeniler
0
Excel Vers. ve Dili
Türkçe 2016
#1
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

Katılım
9 Mart 2005
Mesajlar
2,327
Beğeniler
27
Excel Vers. ve Dili
Excel 2003-tr
#2
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
 
Üst