Invoice numbering

[mikie1881]

Hi. I use to provide electronic invoice for my services, but every time i forgot the last invoice number. is it possible to get some help ? I thing will be perfect if after doing and save an new invoice to be archived with a invoice name ? and invoice template to remain blanc ?the invoice number have to be on L3 cell of my invoice. Thank you in advance

 

[Logit]

In the macro that saves your invoice, include :

Sheet("Name of the sheet here").Range("L3").Value = Sheet("Name of the sheet here").Range("L3").Value + 1

 

[mikie1881]

Sheet("Name of the sheet here").Range("L3").Value = Sheet("Name of the sheet here").Range("L3").Value + 1

Many thanks for your answer but i dont understand since i know only the very basics of excell ! any way thank you again for your efort. mIkie

 

[Logit]

Post your entire code for review.

 

[mikie1881]

Post your entire code for review.

i dont have any code but just a simple invoice. IAfter a searching on web i find thisw <<
sub SaveInvWithNewName ()
Dim newFN As variant
' Copy Invoice to a new workbook
ActiveSheet.Copy
NewFN ="c:\new\Inv" & Range("l3").Value & ".xlsx
ActiveworkBook.SaveAs NewFN, FileFormat:=xlopenXMLworkbook
ActiveWorkBook.close
NextInvoice
End Sub

But i cant attach the code because when i tried was erase all the data from invoice..
I just want my new invoice to have new number and if it is possible to be saved after i use it.
Thank you again
Mikie

 

[mikie1881]

I managed to create the code I need with the help of the internet, I created an active object on the sheet and when I clickit run the code, but in the new sheet it saves the active icon object appears, is there a way to save the file without the active object ?? the code is ::

Sub NextInvoice()
Range("L3").Value = Range("L3").Value + 1
Range("A13:K18").ClearContents

End Sub

Sub SaveInvWithNewName()
Dim NewFN As Variant
' Copy Invoice to a new workbook
ActiveSheet.Copy
NewFN = "c:\aaa\Inv" & Range("l3").Value & ".xlsx"
ActiveWorkbook.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close
NextInvoice
End Sub

Thank you for your help . Mikie

 

[Logit]

Prior to the copy command, you can HIDE the object.

Then unhide the object at the end of your macro.

 

[mikie1881]

I understand and thank you, one more question I would like you to explain to me, the code I attached to the previous message consists of two commands, Sub NextInvoice () and SaveInvWithNewName (), it is possible to compile the two commands in one so as not to you need two axtive objects, and it is possible you could do it because I do not have the necessary knowledge; Thank you Thank you very much Mikie P.S i ask apologise for my english

 

[Logit]

Sub SaveInvWithNewName()
Dim NewFN As Variant
' Copy Invoice to a new workbook
ActiveSheet.Copy
NewFN = "c:\aaa\Inv" & Range("l3").Value & ".xlsx"
ActiveWorkbook.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close

'''NextInvoice

Range("L3").Value = Range("L3").Value + 1
Range("A13:K18").ClearContents

End Sub

 

[mikie1881]

Sub SaveInvWithNewName()
Dim NewFN As Variant
' Copy Invoice to a new workbook
ActiveSheet.Copy
NewFN = "c:\aaa\Inv" & Range("l3").Value & ".xlsx"
ActiveWorkbook.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close

'''NextInvoice

Range("L3").Value = Range("L3").Value + 1
Range("A13:K18").ClearContents

End Sub

Hi, thank you for your reply and for the correction of the code , its perfect but one thing that maybe I didn’t explain to you well.

I have one invoice template and I use it to issue any new invoices, what I am try to do is after complete with client details on template invoice on cells A13:K18 and push the macro button the invoice to be saved on c\aa (as it is saved already) with the data on A13:K18 and the invoice template to be cleared (A13:k18)

Unfortunately now when I click the macro button the template invoice cleared on A13:K18 But the copy saved on c\aa\inv empty without any data on A13:K18

Once again thank you very much

Mikie