Excel verisini Txt ye aktarma

[DeliBalta58]

Herkese merhabalar;

Ekli Dosyamdaki L sütunundaki verileri txt dosyasına makro ile aktarmak istiyorum.

A sütunundaki dolu hücreler sayılarak L sütununda A sütunundaki sayılan veriler kadarı aktarılaracak. Çünkü L sütununda formül girilmiş durumda. L2 den L5000 e kadar formül var.
Aktarılması gereken veri A2 sütunundan başlayarak A sütununu sayacak sadece saydığı kadar veriyi C sürücüsünün içine "Rapor" ismi ile txt olarak kaydecek.

Teşekkürler. İyi çalışmalar.

 

[Orion1]

Dosyanız ektedir.
önceki txtxyi siler onu tekrra yazar.
doısyanız ektedir.

Sub txt_aktar_59()
Dim sat As Long, hcr As Range
Sheets("Sayfa1").Select
sat = Cells(65536, "A").End(xlUp).Row
If sat < 2 Then Exit Sub
Open (ThisWorkbook.Path & "\EvrenTxt.txt") For Output As #1
For Each hcr In Range("A2:A" & sat)
    If hcr.Value <> "" Then Write #1, hcr.Offset(0, 11)
Next
Close #1
MsgBox "İşlem tamamdır." & vbLf & "EvrenTxt.txt Dosyası  " & _
ThisWorkbook.Path & "   Klasörüne çıkarılmıştır." & vbLf & _
"evrengizlen@hotmail.com" & vbLf & "05.05.2011", _
vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[DeliBalta58]

Ellerine bilginize sağlık. Teşekkürler.

 

[m_sok]

elinize sağlık teşekkürler