belirli yazılar eklenerek .txt olarak kaydetme

[snf124]

örnekte açıklamaya çalıştım. yardımlarınızı bekliyorum

[Orion1]

dosyanız ektedir.

Kod: [Seç]

Sub txtkaydet59()
Dim sat As Long, yol As String, dosya As String
Dim i As Long
yol = ThisWorkbook.Path
dosya = Format(Now, "dd_mm_yyyy_hh_mm_ss") & ".txt"
sat = Cells(Rows.Count, "A").End(xlUp).Row
Open (yol & "\" & dosya) For Output As #1
For i = 2 To sat
    For k = 1 To 22
        deg = deg & "," & Cells(i, k).Value
    Next k
    deg = Right(deg, Len(deg) - 1)
    Write #1, deg
    deg = ""
Next i
Close #1
MsgBox "Dosya Hazırlandı." & vbLf & "evrengizlen@hotmail.com", vbOKOnly

End Sub


[snf124]

İlginize tşkler.

ancak sayfa4 deki verileri txt olarak kaydetmek değilde sayfa2 deki verileri sayfa4 teki gibi liste haline getirip kaydetmek istiyorum.

yardımlarınız için şimdiden tşkler