VBA code to save as PDF with cell text an date in file name

[Mendonk]

Hello, Hope you are all having a lovely bank holiday weekend! I am in the throes of trying to sort out my brother in laws ridiculous method of running his business by dragging him into the world of technology. He's bought a computer (can't switch it on but its a start) so I'm trying to encourage this initiative!

I need to make things as simple as possible for him (and my sister)n to manage and as such want to create a command button that will run a macro to save the excel spreadsheet receipt as a PDF with a particular named protocol based on cells in the spreadsheet. I've been all round the houses and cant seem to find a solution so any advice you can offer would be greatly appreciated.

Basically I want it to:

a) Save as a PDF to C:\Users\Katie\Desktop\Alans Accounts
b) As Customer name (C2) - Date in cell (G3) - Text in cell (F1)

Example: McDonalds - 18-04-2022 - RECEIPT

Apologies I have tried to upload the XL2BB tool to allow me to share the template but its not working I hope the picture makes sense

Thank you in advance!

 

[ranman256]

paste into a module

sub Save2Pdf()
dim vDir , vFName, vFile

vDir = "C:\Users\Katie\Desktop\Alans Accounts\"
vFName =  range("C2").value & "-" &  format(range("G3").value,"dd-mm-yyyy") & "-" & range("F1").value & ".pdf"
vFile = vDir & vFname

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= vFile, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=    False
end sub

 

[Mendonk]

paste into a module

sub Save2Pdf()
dim vDir , vFName, vFile

vDir = "C:\Users\Katie\Desktop\Alans Accounts\"
vFName =  range("C2").value & "-" &  format(range("G3").value,"dd-mm-yyyy") & "-" & range("F1").value & ".pdf"
vFile = vDir & vFname

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= vFile, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=    False
end sub

Huge apologies Ranman256 for not getting back to you sooner. I had family things to do. That works absolutely perfectly. Thank you so very very much!!!!