Txt Dosyasının Formatını yanlış oluşturuyor

[yorum.halil]

Arkadaşlar ekte örnek dosyadanda göreceğiniz gibi bir makro aracılığı ile txt dosyası oluşturuyor. Fakat txt dosyasının verilerini aldığı iki hücre arasında "ara tuşu"na basılmış gibi boşluk oluyor. Nasıl anlatacağımı bilemiyorum. Ekteki dosyaya bakarsanız sanırım anlarsınız. Dosyanın doğru oluşması için ne yapmam gerekir..

Yalnış Olan Dosya Şekli
Adı: xxxxxxxxxxHACI SATILMIŞ
(x İşareti = ara tuşu)

Doğru Olan Dosya Şekli
Adı: HACI SATILMIŞ

 

[Ayhan Ercan]

Merhaba sn yorum.halil

Kodlarınızı aşağıdaki gibi revize ederek deneyiniz...

Open ThisWorkbook.Path & "\CepRehber.txt" For Output As #1
For i = 1 To sat
[COLOR=blue][B]Print #1, Cells(i, 1) [COLOR=black]&[/COLOR] Cells(i, 2)
[/B][/COLOR]Next i

 

[yorum.halil]

Üstad teşekkürler