Macro to Create PDF with Current Date

[byule]

I'm pretty new to all this, but I was wondering if anyone could help with a macro. I'm trying to get it to create a PDF of my current worksheet with certain cells as the file name in a predetermined folder. For instance:

A1=Job
A2 = Dallas
A3 = Today()
Folder = /work

The PDF would be created in the /work folder as Job - Dallas - 10.23.2013

Any idea how I can do this?

byule

 

[Andrew Poulsom]

Welcome to MrExcel.

If you record a macro while saving a pdf with that path and name manually what VBA code do you get?

 

[byule]

Sub PDF()
'
' PDF Macro
'
' Keyboard Shortcut: Ctrl+s
'
ChDir "M:\MAVERICK\Maverick Estimates\MUC-Emailed Files\Emailed Files 2013"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"M:\MAVERICK\Maverick Estimates\MUC-Emailed Files\Emailed Files 2013\Job - Dallas 10.23.13.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End Sub

 

[Andrew Poulsom]

OK try:

Sub PDF()
'
' PDF Macro
'
' Keyboard Shortcut: Ctrl+s
'
    ChDir "M:\MAVERICK\Maverick Estimates\MUC-Emailed Files\Emailed Files 2013"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "M:\MAVERICK\Maverick Estimates\MUC-Emailed Files\Emailed Files 2013\" & Range("A1").Value & " - " & Range("A2").Value & " - " & Format(Date, "mm.dd.yy") & ".pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True
End Sub

It's unusual to have dots in a file name.

 

[byule]

Works great!!! Thank you so much.

byule