Save As -- allow user to select saved location

[macrorookie]

Hi excel forum -
I'm not very good at VBA (disclaimer), so any suggestions are greatly appreciated.

I currently have code that does the following:

• Saves the print range as a PDF.
  Places customer's name (G8) in the saved file name.
  Places the current time in the saved file name.
  Places the date (G3) in the saved file name.
  Saves the file to a designated folder.

My new goal:
Keep everything I already have, but REMOVE the designated "saved to" folder ("Path" in my code below). Instead, let the user choose where they would like to save the PDF.

Please Login or Register  to view this content.

Thank you!

[macrorookie]

Hi it's the original poster here. I thought maybe a re-post with a sample workbook could help.

My VBA goal:
1. Save the print area as a PDF.
2. Allow the user to select the folder to which they would like to save the PDF.
3. Include cell G3 in the saved PDF file name (date).
4. Include cell G8 in the saved PDF file name (customer's name).
5. Include the current time in the saved PDF file name.

I'm definitely open to completely different VBA code (different from what I already have).

Sample file is attached.
Thank you!
Jeff

[Barieq]

hi

Use this function and replace the path

Please Login or Register  to view this content.

Please Login or Register  to view this content.

[macrorookie]

Thank you so much, Barieq! With a bit of playing around that solution worked beautifully!!

[Marc L]

According to post #2 attachment once the order logic corrected the button VBA procedure revamped :

Sub SaveAsPDF() 
    Set V = CreateObject("Shell.Application").BrowseForFolder(0, vbLf & "  Select destination folder :", 1, "") 
     If V Is Nothing Then Exit Sub Else V = V.Self.Path 
     ExportAsFixedFormat 0, V & "\Cal Pro QUOTE " & [G8] & Format([G3] + Time, " yyyy-mm-dd hh" & ChrW(5011) & "mm AM/PM "), 0 
End Sub  

► Do you like it ? ► ► So thanks to click on bottom left star icon « ★ Add Reputation » ! ◄ ◄