Çalışma Sayfalarını Txt Olarak

[yakup1890]

Merhaba arkadaşlar yardımınıza ihtiyacım var
A ve B sutunlarındaki bilgileri Txt olarak kayıt ediyorum fakat kayıt şekli şöyle olması gerekiyor bir türlü beceremedim.
A sutununu TXT de satır başından; B de ki bilgileri ise TAB tuşuna basıp yani boşluk oluşturup kayıt etmek istiyorum
mesela

Sub TxtAktar()
Dim i, sat As Integer
sat = ActiveSheet.UsedRange.Rows.Count
isim = ActiveSheet.Name & ".txt"
Open ThisWorkbook.Path & "\" & isim For Output As #1
    For i = 1 To sat
        Print #1, Cells(i, "a")
        Print #1, Cells(i, "B")
    Next i
Close

End Sub

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Print #1, Cells(i, "a") & vbTab & Cells(i, "B")

.

 

[yakup1890]

Merhaba,

Bu şekilde deneyin.

Print #1, Cells(i, "a") & vbTab & Cells(i, "B")

.

çok teşekkür ederim istediğim gibi oldu