Sütun larda bulunan değerler ile Kombinasyon. Nasıl?

[woyzeck]

merhaba Arkadaşlar,

kombinasyonla ilgili bütün konuları incelememe rağmen bir çıkar yol bulamadım.

Sorunum, elimde 7 adet sütun bulunmakta. her sütunda farklı değişkenler bulunmakta. sütunlara istinaden kombinasyonlarını çıkarmak isterim. fakat bunu nasıl yapacağımı bulmadım.

ekteki kombinasyon 55.296 adet kombinasyon çıkması gerek. bu da bilgisayarı bayaa bi kasıcak bi olay sanırım.

ekte örneğimi sunarım. eğer yardımcı olursanız çok sevinirim.

teşekkürler

 

[woyzeck]

arkadaşlar sanırım sorunumu yanlış aktarıyorum.
Yapmaya çalıştığım kombinasyon hakkında ekteki örneğe istinaden küçük bir kod yazabilir iseniz ben onu kendime uyarlarım.
kombinasyon macrolarına bakmama rağmen malesef işin içinden çıkamadım.
yeni dosyayı ekliyorum. bir bakar iseniz sevinirim.

iyi çalışmalar dilerim.

 

[Zeki Gürsoy]

Sıralama şeklini belirtmemişsiniz. Aşağıdaki kodun sonucunu ineceleyiniz.

Sub Komb()
Dim i As Integer, j As Integer, k As Integer, sat As Long
 
For i = 2 To [a65000].End(3).Row
 
    For j = 2 To [b65000].End(3).Row
 
        For k = 2 To [c65000].End(3).Row
 
            sat = [e65000].End(3).Row + 1
            Cells(sat, "e") = _
            Cells(i, "a") & "-" & Cells(j, "b") & "-" & Cells(k, "c")
 
        Next k
 
    Next j
 
Next i
 
End Sub

 

[woyzeck]

@anemos, ilgilendiğin için çok teşekkürler,

Sıralama (A sütunu)-(B sütünu)-(C Sütunu)

ekteki dosyaya istinaden örnek;

A-1-AVATAR
B-1-AVATAR
C-1-AVATAR

ve böyle devam etmekte.

vermiş olduğunuz kodu denedim benim el ile yapmış olduğum kombinasyonun devamında yeni kombinasyon yaratıyor.
ama benim önceen el ile yaptığım kombinasyonu silince kod tekrar çalışmıyor. neden olduğunu anlıyamadım.

benim manuel yapmış olduğum kodu silsem bile kodun çalışmasını nası becerebilirim?

 

[woyzeck]

@anemos, çok teşekkürler,
biraz geç düştü ama anladım ellerine sağlık, kombinasyonu bilgisayarı fazla kasmadan yapıyor.
offf offf ben ne zaman bööle yaratıcı şeyler yapabilecem...
tekarar teşekkürler.

 

[Zeki Gürsoy]

Ekli dosyayı inceleyiniz.

Sub Komb2()
Dim i As Integer, j As Integer, k As Integer, sat As Long
 
[e:e].ClearContents
 
For i = 2 To [c65000].End(3).Row
    For j = 2 To [b65000].End(3).Row
    
        For k = 2 To [a65000].End(3).Row
        
            sat = [e65000].End(3).Row + 1
            Cells(sat, "e") = _
            Cells(k, "a") & "-" & Cells(j, "b") & "-" & Cells(i, "c")
            
        Next k
        
    Next j
    
Next i
 
End Sub

 

[woyzeck]

@anemos, tekrar tekrar teşekkürler,
tam istediğim gibi oldu, ellerine sağlık
ayrıca güzel bi çalışma oldu site için...