ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   Datestamping a file created by a macro (https://www.excelbanter.com/excel-discussion-misc-queries/91532-datestamping-file-created-macro.html)

michaelberrier

Datestamping a file created by a macro
 
I have a great macro that puts a worksheet from an open workbook, does
some editing and saves with a specific file name.

And, I found this code he

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Sheets("yourworksheet").Range("desiredrange") = Now
End Sub

to change a cell value from NOW() to the date it was saved.

Now, the problem.

The above code belongs in the ThisWorkbook part of the book's code, and
I don't know where to put that in the macro that creates the workbook
to put it in that part of the new workbook.

Thanks to all.


michaelberrier

Datestamping a file created by a macro
 
I'm stupid. Here is the code that makes the worksheet. I guess I just
need to know where to put the code above into this so that it ends up
in the ThisWorkbook part.

..SaveAs Filename:="C:\Manifest\Manifest Archive\" &
Worksheets("MANIFEST").Range("C12").Value & " " &
Worksheets("MANIFEST").Range("C13").Value & " " &
Worksheets("MANIFEST").Range("G14").Value & " " &
Worksheets("MANIFEST").Range("D10").Value & " " & Format(Now,
"mm-dd-yyyy hh-mm-ss")
.Close savechanges:=False 'if you're done with it.
ActiveWorkbook.Saved = True
ActiveWorkbook.Close

Thanks.


michaelberrier

Datestamping a file created by a macro
 

Disregard. This has been solved.



All times are GMT +1. The time now is 02:39 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com