3x6 formatındaki veriyi tek satıra yazdırma

[fatihilek]

Merhaba değerli arkdaşlar,

3x6 formatındaki veri dizimi tek bir satırda yazdırmak istiyorum.

0 1 1 1 1 1
1 1 1 1 1 0
0 0 0 0 0 0

0 1 1 1 1 1 1 1 1 1 1 0 0 0 0 0 0 0

3x6 formatında binlerce veri setim olduğu için bunu bütün satırlara uygulamam gerekiyor.

Örnek dosya ektedir, yardımlarınız için teşekkürler.

 

[YUSUF44]

aşağıdaki kodları bir modüle kopyalayıp deneyiniz:

Sub dönüştür()
Application.ScreenUpdating = False
For i = 6 To Cells(Rows.Count, 2).End(3).Row Step 7
Cells(i - 1, 12) = Cells(i, 2)
Cells(i - 1, 13) = Cells(i, 3)
Cells(i - 1, 14) = Cells(i, 4)
Cells(i - 1, 15) = Cells(i, 5)
Cells(i - 1, 16) = Cells(i, 6)
Cells(i - 1, 17) = Cells(i, 7)
Cells(i - 1, 18) = Cells(i + 1, 2)
Cells(i - 1, 19) = Cells(i + 1, 3)
Cells(i - 1, 20) = Cells(i + 1, 4)
Cells(i - 1, 21) = Cells(i + 1, 5)
Cells(i - 1, 22) = Cells(i + 1, 6)
Cells(i - 1, 23) = Cells(i + 1, 7)
Cells(i - 1, 24) = Cells(i + 2, 2)
Cells(i - 1, 25) = Cells(i + 2, 3)
Cells(i - 1, 26) = Cells(i + 2, 4)
Cells(i - 1, 27) = Cells(i + 2, 5)
Cells(i - 1, 28) = Cells(i + 2, 6)
Cells(i - 1, 29) = Cells(i + 2, 7)
Next
End Sub

 

[Korhan Ayhan]

Merhaba,

Kullandığınız formülü aynı şekilde alt satırlara kopyaladığınızda çıkan sonuç işinize yaramıyor mu?

 

[hamitcan]

Bir tane de benden.

Sub SutunlaraDagit()
    l = 11
    b = 1
    s = [a65536].End(3).Row
    For i = 1 To s
        If Cells(i, 1) = "!END!" Then
        a = i - 3
        d = i - 4
            For j = 1 To 18
               b = b + 1
               l = l + 1
               Cells(d, l) = Cells(a, b)
               If j Mod 6 = 0 Then a = a + 1: b = 1
            Next
        End If
        l = 11
    Next
    MsgBox "Bitti"
End Sub

 

[fatihilek]

Değerli arkadaşlar cevaplarınız için çok teşekkür ederim.