VBA Code for save as

[Bullrides48]

Hello all, newbie here.
Can ya'll help with a code that takes from range B1:B4 so that when I select a created "Save" button it takes the information entered in these cells and it creates a proper saved name? In other words, the user fills out some information in required cells and the code uses this for the saved naming convention with said information.

Thanks

Bull

 

[DanteAmor]

Hi and welcome to MrExcel

Do you just want to create the name?
Or do you want the current book to be saved with the created name?
Or do you want to save a copy of the current book with the created name?
Or do you want the Save As dialog window to open and propose the created name?

----- --
I hope to hear from you soon.
Respectfully
Dante Amor
----- --

 

[Bullrides48]

Hi and welcome to MrExcel

Do you just want to create the name?
Or do you want the current book to be saved with the created name?
Or do you want to save a copy of the current book with the created name?
Or do you want the Save As dialog window to open and propose the created name?

----- --
I hope to hear from you soon.
Respectfully
Dante Amor
----- --

Thank you and thanks for responding, I want to save the file once filled out by it creating the file name once the "save" button is clicked based on information entered by the user in several cells. The user will always have the master or receive a new master per each project.

 

[Bullrides48]

Thank you and thanks for responding, I want to save the file once filled out by it creating the file name once the "save" button is clicked based on information entered by the user in several cells. The user will always have the master or receive a new master per each project.

 

[DanteAmor]

Try this:

Sub save_as()
  With ThisWorkbook
    .SaveAs .Path & "\" & [B1] & "-" & [B2] & "-" & Format([B3], "yyyy-mm-dd") & "-" & [B4]
  End With
End Sub

 

[Bullrides48]

Try this:

Sub save_as()
  With ThisWorkbook
    .SaveAs .Path & "\" & [B1] & "-" & [B2] & "-" & Format([B3], "yyyy-mm-dd") & "-" & [B4]
  End With
End Sub

Thank you, that worked!