kombinasyon

[gencoglu27]

Merhaba,
"A" sütununda 15 isim "B" sütununda 15 isim ve "C" sütununda 15 isim var..
Şimdi bunlardan 15x15x15 =3375 satır olacak şekilde D-E-F ye kombinasyon oluşturmak /yazdırmak istiyorum..
1.satır..elma-Pazar-ali
2.satır..elma-Pazar-ayşe..
3.satır elma-Pazar-oya..
.şeklinde...Örnek dosyam ektedir.

Teşekkürler.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub Kombinasyon()
    Dim X1, X2, X3, Satır
    
    Satır = 1
    Range("D:F").ClearContents
    
    For X1 = 1 To 15
        For X2 = 1 To 15
            For X3 = 1 To 15
                Cells(Satır, "D") = Cells(X1, 1)
                Cells(Satır, "E") = Cells(X2, 2)
                Cells(Satır, "F") = Cells(X3, 3)
                Satır = Satır + 1
            Next
        Next
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[gencoglu27]

Teşekkür ettim.. güzel çalişmakta..

 

[EK220602]

lütfen acil yardııımmmm

slm ,
3 gündür uğraşıyorum.
benim istediğimde buna benzer bişey ama olmuyor,çalışmıyor.
0,1,2,3,4,5,6,7,8,9 rakamlarını kullanarak oluşturabileceğim 6 basamaklı sayıları listelemek istiyorum.
yardım edermisiniz lütfen,
şimdiden tşk.ederim..

Merhaba,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub Kombinasyon()
    Dim X1, X2, X3, Satır
    
    Satır = 1
    Range("D:F").ClearContents
    
    For X1 = 1 To 15
        For X2 = 1 To 15
            For X3 = 1 To 15
                Cells(Satır, "D") = Cells(X1, 1)
                Cells(Satır, "E") = Cells(X2, 2)
                Cells(Satır, "F") = Cells(X3, 3)
                Satır = Satır + 1
            Next
        Next
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub