Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Padding with 0's overflow
This sub works to add 1 to an invoice #, complete with padding 0's,
but when I get to invoice # C99999, I hit an overflow error. Can I make the formatting floating but with a minimum of 5 places? Rob Sub test() Dim x As String Dim y As Integer Dim pref As String x = Sheet1.[A1].Value y = Evaluate(Mid(x, 2, Len(x) - 1)) y = y + 1 x = "C" & Format(y, "00000") Sheet1.[A1].Value = x End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Padding with 0's overflow
The maximum integer is 32767. You can use the routine to generate
numbers from 32768-99999 if you Dim y as a Long In article . com, "okrob" wrote: This sub works to add 1 to an invoice #, complete with padding 0's, but when I get to invoice # C99999, I hit an overflow error. Can I make the formatting floating but with a minimum of 5 places? Rob Sub test() Dim x As String Dim y As Integer Dim pref As String x = Sheet1.[A1].Value y = Evaluate(Mid(x, 2, Len(x) - 1)) y = y + 1 x = "C" & Format(y, "00000") Sheet1.[A1].Value = x End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Padding with 0's overflow
y = 99999
? Format(y, "#00000") 99999 y = 100000 ? Format(y, "#00000") 100000 -- Regards, Tom Ogilvy "okrob" wrote: This sub works to add 1 to an invoice #, complete with padding 0's, but when I get to invoice # C99999, I hit an overflow error. Can I make the formatting floating but with a minimum of 5 places? Rob Sub test() Dim x As String Dim y As Integer Dim pref As String x = Sheet1.[A1].Value y = Evaluate(Mid(x, 2, Len(x) - 1)) y = y + 1 x = "C" & Format(y, "00000") Sheet1.[A1].Value = x End Sub |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Padding with 0's overflow
On Mar 23, 1:19 pm, Tom Ogilvy
wrote: JE was a bit more astute than me in recognizing the fact you were using an integer rather than a long. Make sure you read his post. -- Regards, Tom Ogilvy "okrob" wrote: On Mar 23, 9:41 am, Tom Ogilvy wrote: y = 99999 ? Format(y, "#00000") 99999 y = 100000 ? Format(y, "#00000") 100000 -- Regards, Tom Ogilvy "okrob" wrote: This sub works to add 1 to an invoice #, complete with padding 0's, but when I get to invoice # C99999, I hit an overflow error. Can I make the formatting floating but with a minimum of 5 places? Rob Sub test() Dim x As String Dim y As Integer Dim pref As String x = Sheet1.[A1].Value y = Evaluate(Mid(x, 2, Len(x) - 1)) y = y + 1 x = "C" & Format(y, "00000") Sheet1.[A1].Value = x End Sub- Hide quoted text - - Show quoted text - Thanks once again Tom...- Hide quoted text - - Show quoted text - I did actually change it to long... |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Cell padding | Excel Discussion (Misc queries) | |||
Padding and Concatenate | Excel Discussion (Misc queries) | |||
padding ? | Excel Discussion (Misc queries) | |||
Padding Numbers | Excel Programming | |||
Value padding in VBA | Excel Programming |