Goodday everyone.
I have a problem with my export to pdf code
i use
Sub create PDF()
Dim ID As Atring
Id= Range("D4").Text
ActiveSheet.ExoprtAsFixedFormat _
Type:=xlTypePdf, _
Filename:C:\Users\chrish\documents\1.Wurth Master\Quotes\Pdf\" + id +".pdf",
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub
My question now how do i adjust the code to save cell D4 AND D8. That must be the reference to my workbook so it wil be
3005 john
3005 is D4
John is d8
And then it needs to close the workbook when done
Thanks a mil
I have a problem with my export to pdf code
i use
Sub create PDF()
Dim ID As Atring
Id= Range("D4").Text
ActiveSheet.ExoprtAsFixedFormat _
Type:=xlTypePdf, _
Filename:C:\Users\chrish\documents\1.Wurth Master\Quotes\Pdf\" + id +".pdf",
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub
My question now how do i adjust the code to save cell D4 AND D8. That must be the reference to my workbook so it wil be
3005 john
3005 is D4
John is d8
And then it needs to close the workbook when done
Thanks a mil