Add Customer Specific Code in front of Invoice number

[StevenRLaw]

Hey,
I followed along with Chester at Blue Pecan to create a Macro Invoice database. everything is fine with that however I am adding a few personal items/functions.
The one I can not figure out is how to *** a customer specific code in front of the generated invoice number, in order to Identify it.

Example, The form generates a new invoice number each time you run the new invoice macro, when you "add to record" it saves it to the "record" worksheet. it saves it under the invoice number.
Then you can save it as PDF.... this is where I would like to have the code added in front of the invoice number like so...

the company name is Bobs House of Dogs... I would manually create a code for it like BHD-then invoice number.
it would look like this
BHD-1001.pdf

that's how I have been manually saving the records.

How can I change the Macro to add the code, the - and then the generated invoice number?

Sorry I hope I did'nt confuse the poo out of everyone...

 

[Scott Huish]

Who is Chester at Blue Pecan?

Can you post the relevant section of your macro?

Does the "code" exist somewhere in your worksheet or are your wanting to generate it somehow, and if so, what are the rules for doing that?

 

[StevenRLaw]

I was searching for ideas on how to create a customer/invoice database and ran across his videos on Youtube... Link: How to Create an Automated Invoice Template in Excel –

as for the code here is what I have that saves it as .pdf to my specified location:

Sub SaveASPdf()

Dim invno As Long
Dim custname As String
Dim amt As Currency
Dim dt_issue As Date
Dim term As Byte
Dim Path As String
Dim fname As String
Dim nextrec As Range

invno = Range("F6")
custname = Range("A7")
amt = Range("H41")
dt_issue = Range("H6")
term = Range("F8")
Path = "C:\Users\Russell\Desktop\Database Files\PDF Invoices-Quotes\"
fname = invno & " - " & custname

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, ignoreprintareas:=False, Filename:=Path & fname



Set nextrec = Sheet6.Range("A1048576").End(xlUp).Offset(1, 0)
nextrec = invno
nextrec.Offset(0, 1) = company
nextrec.Offset(0, 2) = amt
nextrec.Offset(0, 3) = dt_issue
nextrec.Offset(0, 4) = dt_issue + term

Sheet6.Hyperlinks.Add anchor = nextrec.Offset(0, 6), Address:=Path & fname & ".pdf"

 

[StevenRLaw]

I am going to create "codes" for the customers manually and just add a column to the customer worksheet, just not sure where to or what to tell the macro to do...

My first thought was to add to the very first "nextrec" code :
nextrec =custcode + invno

but that didnt work?

 

[RoryA]

Use & not + to concatenate.

 

[StevenRLaw]

Use & not + to concatenate.

Thank you! I will give it a shot!