Excelde Belli Satırdaki hücreleri seçip txt dosyası olarak dışarı yazdırma

[cengoups]

Merhaba Arkadaşlar

Aşağıda belirtmiş olduğum konuda yardımcı olursanız sevinirim

Birtane Excel dosyam var belli ücreleri makro ile txt dosyası olarak aktarmak istiyorum. C2 Satırından N2 satırına kadar (12sütun) hücrelerin içindeki bilgileri A2 satırında ismiyle dışarı masa üstü veya D hard disket txt dosyası olarak kaydetmek istiyorum ve böyle 25 satır ve her satırı ayrı olarak txt dosyası dışarı aktarmak istiyorum
örn : C2satırdan başlayıp N2 satırına kadara A2 satırındaki ismiyle kaydetmek
C3satırdan başlayıp N3 satırına kadara A3 satırındaki ismiyle kaydetmek
C4satırdan başlayıp N4 satırına kadara A4 satırındaki ismiyle kaydetmek böyle 25 satır var yanlamasına sütun uzayıp gidebilir R4 olur S4 olur. Şimdiden emekleriniz için teşekkürler.

https://www.hizliresim.com/hwxgj3z

 

[veyselemre]

Sub test()
    For i = 2 To Cells(Rows.Count, 1).End(3).Row
        son = Cells(i, Columns.Count).End(xlToLeft).Column
        metin = Join(Application.Index(Cells(i, 3).Resize(, son - 2).Value, 0), "")
        fName = "C:\users\" & Environ("username") & "\Desktop\" & Cells(i, "A").Value & ".txt"
        Open fName For Output As #1
        Print #1, metin
        Close #1
    Next i
End Sub

 

[cengoups]

Hocam Çalıştıramadım.
Örnek Dosyamı lınke koydum txt dosyasınıda koydum
Burada 25 satır var her satır C2 başlıyor N2 'ye kadar yan yana hücreler dolu C2 hücresinden başlayıp N2 hücresine kadar kopyalayıp daha sonra bu koyaladığım hücreleri A2 yazan dosya ismiyle Bilgisayarımdaki masa üstü veya sürücüye kaydetmek istiyorum. Böyle 25 satır var ve c2, c3,c4 gidiyor böylelikle 25 tane ayrı txt dosyası oluşturmak istiyorum. Hocam ilginiz için şimdiden teşekkür ederim.

https://drive.google.com/drive/folders/1OyztaPJU9zvcD8CKRbnFPknwMyWsgnXw?usp=sharing

 

[veyselemre]

Satırı değiştirin, txt formatında arada tab varmış.

metin = Join(Application.Index(Cells(i, 3).Resize(, son - 2).Value, 0), vbTab)

 

[cengoups]

Hocam Çok Sağolun emeğinize sağlık Çok işime yaradı. 25 Satırı da ayrı ayrı txt dosyasına çıkardı