TXT oluşturma

[ozuberk]

Merhaba Arkadaşlar,

Sayfa1 de A2 hücresinden başlayan dolu hücreleri 10 adet veri olacak şekilde makro ile nasıl TXT oluştura bilirim? Örneğin; 105 adet veri içeriyorsa 11 tane TXT dosyası oluşmalı. TXT isimleri TXT_1, TXT_2 adında olabilir.

Teşekkürler, kolay gelsin.

 

[alicimri]

Sub makro1()
satir = 10
sayfa = WorksheetFunction.Ceiling((Range("A65536").End(3).Row - 1) / satir, 1)
ilk = 2
son = satir + 1
For i = 1 To sayfa
    Open ThisWorkbook.Path & "/TXT_" & i & ".txt" For Output As #1
For e = ilk To son
   Print #1, Range("A" & e)
   Next
   Close #1
   ilk = son + 1
   son = son + satir
  Next
End Sub

 

[ozuberk]

Ali bey cevap için çok teşekkürler kolay gelsin.