VBA save sheet as pdf with specified name in a specified folder

[tdavis95]

Hello.

So I am trying to create a macro that when the button on the sheet is pressed that specific sheet (not the whole workbook) will save as a pdf with the name "Initial Delivery Check dd-mm-yyyy hh-mm-ss"
I am not sure how to add the date and time to the name. I want the sheet to save as a new name each time so it does not override the previous copy. My current set up doesn't have date and time in the name so it just overwrites the previous version. I have looked through a lot of other examples and I can never get it to quite work for my set up.

My current VBA Code:

Sub CreatePDFSheet()
Sheet1.ExportAsFixedFormat xlTypePDF, Environ("Userprofile") & "\INSERT COMPANY FOLDERS HERE\Forms\Completed Forms\Initial Delivery Check.pdf"
End Sub

 

[Candyman8019]

Try:
Sheet1.ExportAsFixedFormat xlTypePDF, Environ("Userprofile") & "\INSERT COMPANY FOLDERS HERE\Forms\Completed Forms\Initial Delivery Check "& format(now(),"dd-mm-yy hh-mm-ss") &".pdf"

 

[tdavis95]

Try:
Sheet1.ExportAsFixedFormat xlTypePDF, Environ("Userprofile") & "\INSERT COMPANY FOLDERS HERE\Forms\Completed Forms\Initial Delivery Check "& format(now(),"dd-mm-yy hh-mm-ss") &".pdf"

Thank you so much, that worked. What a simple fix. I appreciate it.

 

[Candyman8019]

Happy to help.

 

[tdavis95]

Happy to help.

I have a quick question. If instead of the set name I wanted the title to call a specific cell to name it how would I call that in the code instead?

 

[Candyman8019]

Something like the following:
Sheet1.ExportAsFixedFormat xlTypePDF, Environ("Userprofile") & "\INSERT COMPANY FOLDERS HERE\Forms\Completed Forms\Initial Delivery Check "& Range("A1").value & format(now(),"dd-mm-yy hh-mm-ss") &".pdf"

 

[Candyman8019]

or if your cell contains the full filename then:
Sheet1.ExportAsFixedFormat xlTypePDF, Environ("Userprofile") & "\INSERT COMPANY FOLDERS HERE\Forms\Completed Forms\"& Range("A1").value

 

[tdavis95]

or if your cell contains the full filename then:
Sheet1.ExportAsFixedFormat xlTypePDF, Environ("Userprofile") & "\INSERT COMPANY FOLDERS HERE\Forms\Completed Forms\"& Range("A1").value

When I use either of them they "run" (no errors) but nothing saves to the file.

 

[Candyman8019]

Safe to assume you changed A1 to the cell that contains your filename?

 

[tdavis95]

Safe to assume you changed A1 to the cell that contains your filename?

Yes, in my case it was B6