K0st4din
Well-known Member
- Joined
- Feb 8, 2012
- Messages
- 501
- Office Version
- 2016
- 2013
- 2011
- 2010
- 2007
- Platform
- Windows
Hello, everyone,
I found this macro and modified it a bit to suit my needs.
It takes what is written from specific cells and saves it.
However, it clearly needs something more added, because I'm running into the following problems:
When it saves it, taking the text from the specific cells makes it merged: IvanIvanov12024, I don't know how to give it the spaces in the macro to make it Ivan Ivanov 1 2024.
The other thing I don't know how to do is that in this workbook I have more worksheets, and this macro saves, just one, I want to save the whole workbook.
And the last one is I don't know how to make the SaveAS dialog box - so that I can specify where to save it (or a second option, ask me where again, but if possible it will self-navigate to the location where the file itself is located).
Thank you in advance for your assistance.
I found this macro and modified it a bit to suit my needs.
It takes what is written from specific cells and saves it.
However, it clearly needs something more added, because I'm running into the following problems:
When it saves it, taking the text from the specific cells makes it merged: IvanIvanov12024, I don't know how to give it the spaces in the macro to make it Ivan Ivanov 1 2024.
The other thing I don't know how to do is that in this workbook I have more worksheets, and this macro saves, just one, I want to save the whole workbook.
And the last one is I don't know how to make the SaveAS dialog box - so that I can specify where to save it (or a second option, ask me where again, but if possible it will self-navigate to the location where the file itself is located).
Thank you in advance for your assistance.
VBA Code:
Sub SaveAsA1()
ThisFile = Range("J1").Value & Range("C2").Value & Range("B4").Value & Range("A4").Value
ActiveWorkbook.SaveAs fileName:=ThisFile
Application.GetSaveAsFilename
End Sub