Hello.
I wish to save a new copy of my workbook as a .xls file into a particular folder using a new filename using current day logic.
My current file is a .xlsm file.
The filename I wish to save as:
101 My P&L 28 May 2019
The underlined parts of my filename need to update everyday.
The 101 is based of a workday formula I currently have on a sheet called 'Control' Cell I8.
The date is also based of a formula i have on the same sheet cell I4
I want to keep my original file open and the filename to remain the same as before.
The path I wish to save down to is...
N:\My Documents\
Any ideas as my code doesn't seem to work....
ub Saveworkbookset()
Dim Thiswb As Workbook
Set Thiswb = ActiveWorkbook
Workbooks.Add
myfilename = mypath & wrkday & " Daily Revenue " & Format(Date, "dd mm yyyy") & "_KM.xlsm"
Debug.Print myfilename
ActiveWorkbook.SaveCopyAs
End Sub
I wish to save a new copy of my workbook as a .xls file into a particular folder using a new filename using current day logic.
My current file is a .xlsm file.
The filename I wish to save as:
101 My P&L 28 May 2019
The underlined parts of my filename need to update everyday.
The 101 is based of a workday formula I currently have on a sheet called 'Control' Cell I8.
The date is also based of a formula i have on the same sheet cell I4
I want to keep my original file open and the filename to remain the same as before.
The path I wish to save down to is...
N:\My Documents\
Any ideas as my code doesn't seem to work....
ub Saveworkbookset()
Dim Thiswb As Workbook
Set Thiswb = ActiveWorkbook
Workbooks.Add
myfilename = mypath & wrkday & " Daily Revenue " & Format(Date, "dd mm yyyy") & "_KM.xlsm"
Debug.Print myfilename
ActiveWorkbook.SaveCopyAs
End Sub
