How to make the invoice number increase
i tried to put the invoice number in my invvoice, but how to make it incease
by itself when i print a new one? |
How to make the invoice number increase
Hi,
Try this, Put below code in thisworkbook's module. Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim MyAct Dim InvSht As Worksheet Dim InvNo As Range Set InvSht = Worksheets("Sheet1") 'Change to suite Set InvNo = InvSht.Range("F1") 'Change to suite If ActiveSheet.Name = InvSht.Name Then MyAct = MsgBox("Do you want to print Invoice with Invoice No. Auto increment?", vbYesNo, "Print Invoice") If MyAct = vbYes Then InvNo = InvNo + 1 End If End Sub Regards, Shah Shailesh http://members.lycos.co.uk/shahweb/ *** Sent via Developersdex http://www.developersdex.com *** Don't just participate in USENET...get rewarded for it! |
All times are GMT +1. The time now is 11:56 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com