Macro Save file name derived from cells

[SaiChu]

Hi Mr. Excel,

Below is a fantastic macro you shared with us to save the file name derived from a cell. Is it possible to save a file name derived from 3 cells, i.e. Cells A1, C5, D8?

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

Thank you,
Sai Chu

 

[xladept]

Hi SaiChu,

Sure it is - the filename is just a string - just don't have any illegal characters.

 

[VoG]

Try

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

 

[SaiChu]

Hi MrExcel MVP,

Thank you for your quick reply.
It is giving me a 400 error. Is it because my cell D8 is a date?

Thank you,
Sai Chu

 

[VoG]

Maybe this

Sub SaveAsA1()
ThisFile = Range("A1").Value & Range("C5").Value & Format(Range("D8").Value, "mm-dd-yyyy") & ".xls"
ActiveWorkbook.SaveAs Filename:=ThisFile
End Sub

 

[SaiChu]

Hmm It is still giving me the 400 error
Thank you

 

[VoG]

What exactly is in those cells and which version of Excel are you using?

 

[SaiChu]

Oh Sorry my mistake. I had an extra space in the date format. It is working like a dream now.
THANK YOU SO, SO, SO MUCH!!!!!!

 

[mikeblackshaw]

Hi Mr. Excel,

Below is a fantastic macro you shared with us to save the file name derived from a cell. Is it possible to save a file name derived from 3 cells, i.e. Cells A1, C5, D8?

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

Thank you,
Sai Chu

This is great - I would like use this for generating quotes in specific location:
- it goes to a server folder,
- then into sub folder 1,
- then sub folder 2,
- finally a folder with the quote ref (part of save as file name), which has already been created

Can this be done as part of the above macro?
thanks in advance

 

[phobo]

Similar to the post above. Is there a command / sub i can add to this to define the file path i want to save it to?

Setting up a template for various people and want them to hit the normal save button to save to the normal file path (as usual) but i also plan on using this subroutine and attaching it to a clickable button on the sheet which saves a backup to a different filepath folder.