Version Identification

[ExecEd]

With minute variations and edits from version to version, keeping soft and hard copies of generations of spreadsheets can be challenging.

I already name the files as FILE20020429 but are their other ways to track versions?

Thanks for any brainstorming you can provide!

[Chris Davison]

include the time in the filename ?

thusly YYYYMMDDHHMM.xls

I'm sure the VBA guys could ship up somethign that does this at the touch of a button




edit........ typo : I meant "whip up something"

[ This Message was edited by: Chris Davison on 2002-04-29 13:42 ]

[Jay Petrulis]

Following Chris' suggestion, use the following as the Filename in your SaveAs code.

Format(Now, "YYYYMMDDHHMM") & ".xls"

The .xls may not be necessary, so give this a try with and without that part.

Bye,
Jay

[ExecEd]

I must profess ignorance:

What do you mean by the "SaveAs code?"

Thanks for the help!

[Jay Petrulis]

Hi,

1. Copy the routine posted below

2. Right click on the Excel icon at the top of the window, next to the File option in the worksheet menu bar

3. Choose View Code

4. Paste the copied routine

'----------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim StrNameFile As String
StrNameFile = "FILE" & Format(Now, "YYYYMMDDHHMM") & ".xls"
ThisWorkbook.SaveAs FileName:=StrNameFile

End Sub
'---------------

Whenever you click the save button, this will save the workbook with the file name/date/time.

Bye,
Jay

[ExecEd]

By the way, this worked and I've incorporated the code in several macros I've created since.

Thanks.