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]

Create a button on your sheet and assign this macro to it:

Sub SavePDF()
    ChDir "C:\Users\Vector\Google Drive\H_O Office\Timesheets for Head Office\"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Range("C4") & " " & Range("C6") & " " & Range("C8") _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
End Sub

 

[JFORTH97]

Create a button on your sheet and assign this macro to it:

Sub SavePDF()
    ChDir "C:\Users\Vector\Google Drive\H_O Office\Timesheets for Head Office\"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Range("C4") & " " & Range("C6") & " " & Range("C8") _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
End Sub

Thanks for that its saying Run-time error '1004'

Any reason why?

 

[mumps]

Which line of code is highlighted when you click "Debug"?

 

[Fluff]

How about like

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") & " " & Range("C6") & " " & Format(Range("C8"), "dd-mm-yyyy") _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
End Sub

Change the date format to suit.

 

[JFORTH97]

Which line of code is highlighted when you click "Debug"?

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Range("C4") & " " & Range("C6") & " " & Range("C8") _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

 

[mumps]

Have you tried Fluff's suggestion in Post #5? I neglected to take the date format into account.

 

[JFORTH97]

Have you tried Fluff's suggestion in Post #5? I neglected to take the date format into account.

Still says the same

 

[mumps]

Is the sheet that you want to save the active sheet when you run the macro?

 

[JFORTH97]

Yes, here's a picture of the screen