Macro Help!

[JFORTH97]

Hi

I'm trying to create a Macro so from my worksheet by pressing a button it will export it as a PDF, but then save it based on 3 cell Values, C4, C6 & C8.

C4 is a name
C6 is a name
C8 is a date

I'm wanting it to save to a specific file location to: C:\Users\Vector\Google Drive\H_O Office\Timesheets for Head Office

Can anyone help me, would be much appreciated!

 

[mumps]

Could you post the actual contents of C4, C6 and C8?

 

[JFORTH97]

 

[mumps]

"HO/O Office" contains the reserved character "/" which cannot be used in a file name. This macro will replace it with a hyphen:

Sub SavePDF()
   Dim Pth As String
    Pth = "C:\Users\Vector\Google Drive\H_O Office\Timesheets for Head Office\"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Pth & Range("C4") & " " & Replace(Range("C6"), "/", "-") & " " & Format(Range("C8"), "dd-mm-yyyy") _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
End Sub

 

[JFORTH97]

All working thank you!

 

[mumps]

Glad we could help.