Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Writing to a text file some data
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 set rng = .Range("A1").Resize(rng.count) for each cell in rng cell.Value = "Check " & cell.value " & done" Next End with Activeworkbook.SaveAs "C:\Files\MyText.csv, FileFormat:=xlCSV -- Regards, Tom Ogilvy "mark" wrote in message ... I need to export to text file a column starting in C5, BUT I don't know how many entries in the column. I actually need to add the word Check before the entry of the column and the word Done after. For example if I have 3 entries: 77777 98988 98881 Will need to be exported as: Check 77777 Done Check 98988 Done Check 98881 Done Can it be done? Many Thanks M |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
eliminating quotation marks when writing to a text file | Excel Programming | |||
eliminating quotation marks when writing to a text file | Excel Programming | |||
WRITING TO A TEXT FILE WITH SPECIFIC FORMAT | Excel Programming | |||
Writing a text file from Excel using VBA ... a small issue | Excel Programming | |||
Writing multilines to a text file without closing | Excel Programming |