I need to export to text file a column

M

mark

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
 
T

Tom Ogilvy

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
 
M

mark

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
 
Top