Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
macros on an invoice
I found a web sit that I copyed the data off of so it could have my invoice
number update automaticaly. I was wondering if thier was a way that it wouldn't update untill I entered something into a specefic cell. What I mean is I don't want the invoice number to update untill I enter the cumber number inthe field. The code i'm using is Private Sub Workbook_Open() Const sAPPLICATION As String = "Excel" Const sSECTION As String = "Invoice" Const sKEY As String = "Invoice_key" Const nDEFAULT As Long = 1& Dim nNumber As Long With ThisWorkbook.Sheets("Invoice") With .Range("g6") If IsEmpty(.Value) Then .Value = Date .NumberFormat = "mmmmmmmmmm dd, yyyy" End If End With With .Range("g5") If IsEmpty(.Value) Then nNumber = GetSetting(sAPPLICATION, sSECTION, sKEY, nDEFAULT) .NumberFormat = "@" .Value = Format(nNumber, "0000") SaveSetting sAPPLICATION, sSECTION, sKEY, nNumber + 1& End If End With End With End Sub I really don't need it to update the date I just didn't know how to get rid of this code |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
macros on an invoice
If you look at the very first line of the code, it says Workbook_Open.
That means the invoice number is incremented when the workbook first opens. To change it so the number increases when a particular cell is changed will require a rewrite of the code - probably into a Worksheet_Change(ByVal Target As Range) sub located in the module attached to Sheet "Invoice". Also, the last line in your post doesn't seem to have anything to do with what comes before... update a date?... get rid of the code? -- Jim Cone Portland, Oregon USA http://www.realezsites.com/bus/primitivesoftware (Excel Add-ins / Excel Programming) "Heather C" wrote in message I found a web sit that I copyed the data off of so it could have my invoice number update automaticaly. I was wondering if thier was a way that it wouldn't update untill I entered something into a specefic cell. What I mean is I don't want the invoice number to update untill I enter the cumber number inthe field. The code i'm using is Private Sub Workbook_Open() Const sAPPLICATION As String = "Excel" Const sSECTION As String = "Invoice" Const sKEY As String = "Invoice_key" Const nDEFAULT As Long = 1& Dim nNumber As Long With ThisWorkbook.Sheets("Invoice") With .Range("g6") If IsEmpty(.Value) Then .Value = Date .NumberFormat = "mmmmmmmmmm dd, yyyy" End If End With With .Range("g5") If IsEmpty(.Value) Then nNumber = GetSetting(sAPPLICATION, sSECTION, sKEY, nDEFAULT) .NumberFormat = "@" .Value = Format(nNumber, "0000") SaveSetting sAPPLICATION, sSECTION, sKEY, nNumber + 1& End If End With End With End Sub I really don't need it to update the date I just didn't know how to get rid of this code |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macros for invoice | Excel Worksheet Functions | |||
missing invoice toolbar when save customised invoice | New Users to Excel | |||
Invoice templet Excel97 to 2003 invoice toolbar missing | Excel Discussion (Misc queries) | |||
How do I change the invoice number assigned in Invoice template... | Excel Discussion (Misc queries) | |||
noob: problems with macros in invoice | Excel Programming |