Save location based on Cell value

[KlausW]

Hi everyone

I use this VBA code to save the file in PDF format, it works really well. Now I would like the file to be saved based on the value in cell S9. Some who can help.
Any help will be appreciated.

Best regards Klaus W

Sub Gem_og_Send_Klik()

'Varriables
Dim SaveRng As Range
Dim pdfname As String
Dim path As String

'Setting range to be saved
Set SaveRng = Range("A1:j42")

'path
path = Range("S9").Value2

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Range("k9").Value _
    , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
    :=False, OpenAfterPublish:=False

'Find_and_Open_Product_Workbook
    
End Sub

 

[SunnyAlv]

Try like this

...............

    Path = Range("S9")
    Filename = Range("K9")
    
    ActiveSheet.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=Path & Filename & ".pdf", _
    OpenAfterPublish:=False, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    Quality:=xlQualityStandard

...............

 

[KlausW]

Try like this

...............

    Path = Range("S9")
    Filename = Range("K9")
   
    ActiveSheet.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=Path & Filename & ".pdf", _
    OpenAfterPublish:=False, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    Quality:=xlQualityStandard

...............

Hi SunnyAlv, thank you, you should have it, it was just what was missing. It runs as it should. Best regards from Denmark Klaus W

 

[SunnyAlv]

Hi SunnyAlv, thank you, you should have it, it was just what was missing. It runs as it should. Best regards from Denmark Klaus W

happy to help