text dosyaya çevirme hk.

[ugurakin]

merhaba arkadaşlar, ekte bir dosyam mevcut. bu dosyadaki bilgileri text formatında bir dosyaya aynen aktarmak istiyorum. tam anlamıyla çözemedim. neden derseniz ikinci kolondaki mevcut bilgileri aynen aktaramadım) yardımcı olursanız sevinirim.
kolay gelsin.

 

[mraltin]

İstediginiz boyle birsey mi?
C:\altina .txt olarak atiyor.

 

[ugurakin]

sn.mraltin,
text dosyaya aktarırken sütundaki veriler birbirine bitişik olacak.
örneğinizden tam olarak birşey anlayamadım.

 

[mraltin]

Prd.size yanlis dosyayi gondermisim.
Txt.olarak aktarim tamam.
txt dosyasinda sutunlar arasinda bosluk cikiyor.Bu bosluk olmasin diyosun degil mi?

 

[ugurakin]

sn.mraltin
biraz uğraştım ve aşağıdaki kodlamayı yaptım
sağlıklı çalışıyor, ilginiz için teşekkür ederim.

Dim tutar As Integer

Sub aktar()
Open "c:\dizayn.txt" For Append As #1
For i = 1 To Sheets("Sayfa1").[a65536].End(xlUp).Row
Print #1, Cells(i, 1) & Format(Cells(i, 2), "000000000000.00") & Cells(i, 3) & Cells(i, 4)
tutar = tutar + Cells(i, 2)
Next
MsgBox "Tutar : " & Format(tutar, "##0,00")
End Sub