hücreleri txt dosyasina matrix biciminde kaydetme??

[berat01]

Merhaba arkadaslar,
excel hücresinde kayitli sayi degerlerini txt dosyasina matrix olarak kaydetmek istiyorum.

Örnegin A1 hücresinde 1 , A2 hücresindede 2, A3te 3, B1 de 4, B2 de 5 ve B3te 6 degerleri kayitli olsun.

1,2,3
4,5,6

Seklinde bir matrixi txt dosyasi olarak elde eden bir makro nasil yazabilirim??

bu txt dosyasini C:\Dosya isimli hedefe kaydetmek istiyorum.

Tesekkürler

 

[berat01]

Birde if komut ile
eger bir hücre bossa nasil diyebilirim.

bir hücre bos ise txt dosyasinda o hücrenin degerine 0 yaz demek istiyorum.
normalde txt yede hic bir sey yazmiyor yoksa

 

[berat01]

Sub txtMartix()
Open "C:\Veri\Test5.TXT" For Output As #1
For i = 2 To 51
For a = 5 To 105
Print #1, Cells(a, i)//sorun burada!!!
Next a
Next i
Close
End Sub

Arkadaslar böyle komut yazdim ama (2,5) hücresinden (51,105) hücresine kadar her sey alt alta cikiyor?? nasil hepsini alt alta degil de bir tabela gibi yazdirabilirim??

Acil yardim!!

 

[hamitcan]

Const yol = "C:\Test.TXT"

Sub Veriler()
    Dim i As Integer
    Open yol For Output As #1
    For i = 1 To 2
        s = ""
    For j = 1 To 3
        s = s & Cells(i, j) & vbTab
    Next
        Print #1, s
    Next
    Close
End Sub

şeklinde deneyin.

 

[berat01]

Biraz gec oldu ama Tesekkürler