Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 16
Default insert date timestamp to end of spreadsheet

I am trying to insert a date timestamp as the last column of a
spredsheet before exporting it to csv. The column will vary between the
different files loaded.

The macro currently determines which is the last column and adds a
numbered row (for export purposes), code is:

If sId 5 Then
LastCol = ActiveSheet.UsedRange.Columns.Count +
ActiveSheet.UsedRange.Column - 1
Rows("1:1").Insert shift:=xlDown
Range("A1").Select
ActiveCell.Value = 1
Selection.AutoFill Destination:=Range(Cells(1, 1), Cells(1,
LastCol)), Type:=xlFillSeries

Is there something I can add to the end of this which will basically
add a column to the end of the file and populate it with the date and
time?

Thanks
Steve

Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
create a spreadsheet that would insert a current date() when opene Testudo Excel Worksheet Functions 2 May 16th 08 04:10 PM
How do I insert a Timestamp when a cell changes? jgupte Excel Worksheet Functions 1 February 8th 08 03:06 AM
How do I insert the date modified in a spreadsheet footer? cnadwodny Excel Discussion (Misc queries) 6 May 25th 06 06:25 PM
Need to insert file modified date of Excel spreadsheet in a cell dj in Mass. Excel Discussion (Misc queries) 0 March 23rd 06 09:41 PM
How do I insert 'date modified' for a whole spreadsheet in the foo nicycle Excel Programming 1 March 13th 06 11:09 PM


All times are GMT +1. The time now is 09:50 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"