I need to export to text file a column

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I need to export to text file a column starting in C5, BUT I don't know how
many entry in the column.
How can it be done?
Many Thanks
M
 
activesheet.copy
With Activesheet
set rng = .Range(.Range("C5"),.Range("C5").End(xldown))
.rows(rng.rows(rng.rows.count).row & ":65536").Delete
rng.copy .Range("A1")
.Range("B:IV").EntireColumn.Delete
End with
Activeworkbook.SaveAs "C:\Files\MyText.csv, FileFormat:=xlCSV
 
Hi,
I actually need to add the word Check before the entry of the column and
the word Done after.
For example: 77777
98988
98881

Will need to be exported as:
Check 77777 Done
Check 98988 Done
Check 98881 Done

How can I amend your code to do that.

Many thanks
M
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

How to Export Gmail Emails to PST Format? 5
SUM - IF - AND 7
VBA for Exporting to Text file 3
How to Convert EML to PST? 2
Last Modified By in a cell by user 3
Word to Excel: Export comments with text and line number 0
delimited text export 3
export data between spreadsheets 2

Back
Top