kombinasyon yazdırma

[somon1]

Kolay gelsin,

Ekte daha önce yayınlanmış bir sayısal kombinasyon çalışması var.Sizden ricam olasılıkları hesaplarken her hücreye aralarına - koyarak yazması ve sütun bitince yeni sayfa yerine yeni sütuna geçmesi.
Örnek dosyada bunuda belirttim.

 

[somon1]

ilgilinecek biri varsa bakarsa çok sevinirim.tekrar teşekkürler..

 

[Necdet]

Hiç bulaşmayın derim.

 

[somon1]

üstad,
yorumunuz için teşekkür ederimBoş zamanlarımda parça parça uğraşıyorum zaten yardım eden çıkmaz ise makroyu çalıştırıcam ardından istediğim şekle formülle yapıcam yani biraz uğraştırıcak anlıyacağınız.

 

[veyselemre]

Kodlarınızda sadece bu kısmı kullanın, diğerlerini silin.

Sub MyCombination()
    Sheets("data").Select
    Dim Choice_Array
    TotalNum = 34
    ReDim Choice_Array(1 To TotalNum)
    For x = 1 To TotalNum
        Choice_Array(x) = Cells(1, x)
    Next
    j = 2
    k = 1
    Set NewSh = Sheets.Add(After:=Sheets(Sheets.Count))

    NewSh.Range("A1") = "Kombinasyon sonuçları ..."
    NewSh.Range("A1").Font.Color = vbRed
    For t1 = 1 To TotalNum - 1
        For t2 = t1 + 1 To TotalNum - (j - 2)
            If i >= 65535 Then
                k = k + 1
                i = 0
                Set NewSh = Sheets.Add(After:=Sheets(Sheets.Count))
                NewSh.Name = "Kombinasyonlar-" & k
                NewSh.Range("A1") = "Kombinasyon sonuçları ..."
                NewSh.Range("A1").Font.Color = vbRed
            End If
            NewSh.Cells(i + 2, 1) = ("'" & Choice_Array(t1) & " - " & Choice_Array(t2))
            i = i + 1
        Next
    Next
End Sub

 

[somon1]

yardımınız için teşekkür ederim.
fakat makroları değiştirmiş olmama rağmen aynı şekilde yazıyor.
makro harici başka bir değişiklik yapmam gerekiyor mu?