Morning,
Please could someone help me on the following problem? I am trying to save the pdf with two cells as the file name - F15 & A18 but i dont seem to be getting anywhere and i am a bit new to all this! this is what i am currently running and it works well but just missing the cell A18!
Thanks in advance
Sub SaveorderwithNewname()
Dim NewFN As Variant
PostToPurchaseOrder
'MAKEPDF Macro'
ActiveSheet.ExportAsFixedFormat Type:=x1TypePDF, Filename:="Y:\Dropbox\Accounts\Accounts\PURCHASING\PURCHASE ORDERS\PURCHASE ORDERS PDF\PC00" & Range("F15")
'Copy Order to a new workbook
ActiveSheet.Copy
NewFN = "Y:\Dropbox\Accounts\Accounts\PURCHASING\PURCHASE ORDERS\PURCHASE ORDERS PDF\Excel Version\PC00" & Range("F15").Value & ".xlsx"
ActiveWorkbook.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close
Nextorder
End Sub
Please could someone help me on the following problem? I am trying to save the pdf with two cells as the file name - F15 & A18 but i dont seem to be getting anywhere and i am a bit new to all this! this is what i am currently running and it works well but just missing the cell A18!
Thanks in advance
Sub SaveorderwithNewname()
Dim NewFN As Variant
PostToPurchaseOrder
'MAKEPDF Macro'
ActiveSheet.ExportAsFixedFormat Type:=x1TypePDF, Filename:="Y:\Dropbox\Accounts\Accounts\PURCHASING\PURCHASE ORDERS\PURCHASE ORDERS PDF\PC00" & Range("F15")
'Copy Order to a new workbook
ActiveSheet.Copy
NewFN = "Y:\Dropbox\Accounts\Accounts\PURCHASING\PURCHASE ORDERS\PURCHASE ORDERS PDF\Excel Version\PC00" & Range("F15").Value & ".xlsx"
ActiveWorkbook.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close
Nextorder
End Sub