Need macro to save as pdf in specific folder with cell value and date.

[pider202]

Can anyone help me with creating a macro that will save the worksheet as a pdf in a specific folder with the value of a cell and the date. This is what I have so far.

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Range("H10").Value & Format(Date, "mmdd")

This saves it as the correct cell value + the date, but it saves it to my documents. I need it to save to a shared folder on a network drive.

Any help would be greatly appreciated.
THANKS

 

[somnath_it2006]

Add the conman network path before PDF file name

e.g.

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="P:\NetworkFolder\NetworkSubfolder\" & Range("H10").Value & Format(Date, "mmdd")

 

[pider202]

Thanks, Thats exactly what I needed.

 

[basketball_ref]

I borrow this tread
I´m trying to write a macro that saves to .pdf accoring tha name in cell F4
this

Sub Makro1()
'
' Makro1 Makro
'


'
    Range("A2:J23").Select
    ChDir "I:\LC2016\Individuell"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "I:\LC2016\Individuell\& Range("F4").Value & ".pdf" ", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
End Sub

gives sybtax-error
Please help mee
/Peter

 

[basketball_ref]

I found out why , the code was missing a "

Sub Makro1()'
' Makro1 Makro
'


'
    Range("A2:J23").Select
    
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "I:\LC2016\Individuell\[COLOR=#b22222]"[/COLOR] & Range("F4").Value & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
End Sub