Kodlar bunlar ama daha geniş istersen.
Buraya Kod:
Sub txt()
MsgBox "HAZIRLANIYOR"
Dim LastRowA As Integer
Dim veri1 As String
Dim i As Integer
Open "C:\Adana.txt" For Output As #1
LastRowA = Cells(65536, 1).End(xlUp).Row
For i = 1 To LastRowA
veri1 = Cells(i, 1).Text
veri2 = Cells(i, 2).Text
veri3 = Cells(i, 3).Text
veri4 = Cells(i, 4).Text
veri5 = Cells(i, 5).Text
veri6 = Cells(i, 6).Text
Print #1, veri1; veri2; veri3; veri4; veri5; veri6
Next i
Close #1
End Sub