txt ye çevirme

[spacebar]

üstadlarım merhaba. aynı sayfada A4:C126 ve E4:G126 aralığını ayrı ayrı txt formatına çevirmek istiyorum. forumdaki kodlardan iki ayrı makro oluşturdum. "Only comments may appear after End sub, End funcstion or End Property" uyarısı veriyor. ayrıca D dizininde Şablon diye bir klasör açıp içine kaydedebilirse daha süper olur.
yardımcı olursanız sevinirim. teşekkürler...


Const yol = "D:\abc aktif.txt"
Sub abcaktiftxt()
Dim i As Integer
Open yol For Output As #1
For i = 4 To 126
'60 dan 113 satıra kadar
s = ""
For j = 1 To 3
'2-3-4.sutunlar
s = s & Cells(i, j) & vbTab
Next
Print #1, s
Next
Close
End Sub


Const yol = "D:\xyzaktif.txt"
Sub xyzaktiftxt()
Dim i As Integer
Open yol For Output As #1
For i = 4 To 126
'60 dan 113 satıra kadar
s = ""
For j = 5 To 7
'2-3-4.sutunlar
s = s & Cells(i, j) & vbTab
Next
Print #1, s
Next
Close
End Sub

 

[spacebar]

fikri olan yok mu.

 

[halit3]

Kodlar yerine örnek dosyanızı eklerseniz belki bir fikri olan çıkabilir.

 

[Tevfik_Kursun]

Merhaba,
Bu işinizi görür mü?
İyi çalışmalar

 

[spacebar]

tevfik hocam teşekkür ederim. tam istediğim gibi. ellerinize sağlık.

 

[Tevfik_Kursun]

Rica ederim, iyi çalışmalar