Saving Invoice using Customer name as PDF format

[Jongnj87]

Hi Sir, I using this code to do my invoice

Sub SaveInvoiceAsPDFAndClear()
Dim NewFN As Variant
NewFN = "C:YY\Invoice" & Range(H3").Value & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=NewFN, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
Range(H3").Value = Range(H3").Value + 1
Range(C13:F23").ClearContents
End Sub

However, I would like to using my customer name instead of invoice number. My customer name is in cell B7. How do I edit it??

 

[Trebor76]

Hi Jongnj87,

Welcome to MrExcel!!

Try changing the cell reference from H3 in this line...

NewFN = "C:YY\Invoice" & Range(H3").Value & ".pdf"

...to B7 like so:

NewFN = "C:YY\Invoice" & Range("B7").Value & ".pdf"

Note your code is also missing a set of quotation marks which I've also bolded.

Thanks,

Robert

 

[Logit]

.
And there is a FORWARD SLASH missing as well in the PATH :

NewFN = "C:\YY\Invoice" & Range("B7").Value & ".pdf"

 

[Jongnj87]

.
And there is a FORWARD SLASH missing as well in the PATH :

NewFN = "C:\YY\Invoice" & Range("B7").Value & ".pdf"

Thanks you it help. However 1 this is why the pdf file only save at YY and not into Invoice

 

[Jongnj87]

Hi Jongnj87,

Welcome to MrExcel!!

Try changing the cell reference from H3 in this line...

NewFN = "C:YY\Invoice" & Range(H3").Value & ".pdf"

...to B7 like so:

NewFN = "C:YY\Invoice" & Range("B7").Value & ".pdf"

Note your code is also missing a set of quotation marks which I've also bolded.

Thanks,

Robert

Yes it help. Thank you but why does the file only save at YY and not into Invoice??

 

[Trebor76]

You need another backslash:

NewFN = "C:YY\Invoice\" & Range("B7").Value & ".pdf"

 

[Jongnj87]

You need another backslash:

NewFN = "C:YY\Invoice\" & Range("B7").Value & ".pdf"

Thank you so much. I learn something on this.

 

[Jongnj87]

You need another backslash:

NewFN = "C:YY\Invoice\" & Range("B7").Value & ".pdf"

Sir, 1 last question. I'm doing this code on a single workbook. However, I got another workbook which all my master list. Am I possible to create this Code on the sheet itself???

 

[Trebor76]

Sorry - I'm not too sure what you mean

You can put the code on the sheet as an event macro so it will run after an event happens (like a cell change). So that what you want?

 

[Jongnj87]

Sorry - I'm not too sure what you mean

You can put the code on the sheet as an event macro so it will run after an event happens (like a cell change). So that what you want?

Hmmmm.

This invoice is 1 workbook. I trying to use this code on the master list workbook on 1 of the sheet. So that I don't have to open 2 workbooks.