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]

Maybe this:

Option Explicit
Sub SaveInvoiceAsPDFAndClear()
    
    Dim NewFN As Variant
    Dim wsSourceTab As Worksheet
    
    Application.ScreenUpdating = False
    
    Set wsSourceTab = ThisWorkbook.Sheets("Sheet1") 'Name of sheet in the current workbook with the invoice data. Change to suit.
    
    NewFN = "C:\YY\Invoice\" & wsSourceTab.Range("B7").Value & ".pdf"
    wsSourceTab.ExportAsFixedFormat Type:=xlTypePDF, Filename:=NewFN, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    With wsSourceTab
        .Range("H3").Value = .Range("H3").Value + 1
        .Range("C13:F23").ClearContents
    End With
    
    Application.ScreenUpdating = True

End Sub

Just change the "wsSourceTab" variable to suit.

 

[Jongnj87]

Maybe this:

Option Explicit
Sub SaveInvoiceAsPDFAndClear()
   
    Dim NewFN As Variant
    Dim wsSourceTab As Worksheet
   
    Application.ScreenUpdating = False
   
    Set wsSourceTab = ThisWorkbook.Sheets("Sheet1") 'Name of sheet in the current workbook with the invoice data. Change to suit.
   
    NewFN = "C:\YY\Invoice\" & wsSourceTab.Range("B7").Value & ".pdf"
    wsSourceTab.ExportAsFixedFormat Type:=xlTypePDF, Filename:=NewFN, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    With wsSourceTab
        .Range("H3").Value = .Range("H3").Value + 1
        .Range("C13:F23").ClearContents
    End With
   
    Application.ScreenUpdating = True

End Sub

Just change the "wsSourceTab" variable to suit.

Thank you sir, will try this later