Save as a date

[neills]

Hi All

Ive been looking everywhere to try and find out how to save my Spreadsheet to a directory with a date from a cell as a file name, the closest I came was with the macro below


Public Sub SaveAsA1()
ThisFile = Range("A1").Value
ActiveWorkbook.SaveAs Filename:=ThisFile
End Sub

Thanks Neill

 

[plettieri]

Hi:

You might try this ....


code:
--------------------------------------------------------------------------------
ActiveWorkbook.SaveAs Filename:=Format(date
,"MMDDYY") & ".xls"


--------------------------------------------------------------------------------


found here

http://www.mrexcel.com/board2/viewtopic.php?t=59117&highlight=save+file+date

plettieri

 

[neills]

Hi plettieri

I have tried this, and tried to adapt it, so that the date from the cell can be used because it may not always be the current date so I need it to do the same but with reference to the cell.

Or can I insert a function to B20 to change the date from B19 to a format similar to the one you mentioned (MMDDYY) ??????


Thanks Neill

 

[plettieri]

Hi neills:


Have a look at this one..it might fit your needs...

http://www.mrexcel.com/board2/viewtopic.php?t=9499&highlight=save+file+today

plettieri

 

[neills]

Thanks again

but this still will not work with various dates that can only be determined from cell B19

I am still trying everything I can think of but still I am unable to fathom it.

Neill

 

[Chitosunday]

just reference cell like this:

ActiveWorkbook.SaveAs FileName:=Format([b19] _
, "MMDDYY") & ".xls"

 

[plettieri]

Chitosunday..

That did it....tested....good job

plettieri

 

[neills]

Works Very well

Thank you very much

but now how can I specify where to save it

Neill

 

[SIXTH SENSE]

Hi!
use this
Filename:="c:\your diriectory"& Format(date
,"MMDDYY") & ".xls"

 

[neills]

Thanks Again

I always find the hard way just adapted some past posts with these to end up with

Dim TheName
TheName = Format([b19] _
, "MMDDYY")
ActiveWorkbook.SaveAs _
Filename:="H:\2004\Work In Progress\Delta Tracking\Tester\" & TheName, _
FileFormat:=xlNormal, _


But Yours is a whole lot better

Thanks Again

Learning is a long journey