Advancing A Number With The Push A Button

M

Minitman

Greeting,

I tried this in the misc group, but I think that was the wrong group,
so here goes, again....

I have an invoice that uses a button to advance the invoice number by
1. When I wrote it the numbers were just numbers, but since then a
letter has been added to the front of the number (was 17445 now
D-017445). My advancing code no longer works and I don't know why!

Here is the code:

Private Sub GetNextInv_Click()
Range("InvNoLast").Value = Range("InvNoLast").Value + 1
End Sub

Anyone have an idea on how to fix it?

Any help would be most appreciated.

TIA

-Minitman
 
C

Chip Pearson

Try something like

Private Sub GetNextInv_Click()
Dim S As String
Dim N As Long
Dim Pos As Integer
S = Range("InvNoLast").Value
Pos = InStr(1, S, "-")
N = CLng(Mid(S, Pos + 1))
N = N + 1
Range("InvNoLast").Value = Left(S, Pos) & Format(N, "000000")
End Sub

--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
 
D

Dave Peterson

You got a couple of replies there.
Greeting,

I tried this in the misc group, but I think that was the wrong group,
so here goes, again....

I have an invoice that uses a button to advance the invoice number by
1. When I wrote it the numbers were just numbers, but since then a
letter has been added to the front of the number (was 17445 now
D-017445). My advancing code no longer works and I don't know why!

Here is the code:

Private Sub GetNextInv_Click()
Range("InvNoLast").Value = Range("InvNoLast").Value + 1
End Sub

Anyone have an idea on how to fix it?

Any help would be most appreciated.

TIA

-Minitman
Click to expand...
 
T

Tom Ogilvy

Private Sub GetNextInv_Click()
Range("InvNoLast").Value = Left(Range("InvNoLast").Value, 2) & _
Format(Right(Range("InvNoLast").Value, _
Len(Range("InvNoLast").Value) - 2) + 1, "000000")
End Sub
 
M

Minitman

Hey Dave,

Thanks for the heads up on the other group, I messed up in that one.

-Minitman
 
M

Minitman

Hey Chip,

That works great. I was wondering, how would I do this with a
ScrollBar instead of separate buttons? Is it even possible? I need
to go both forward and backward.

Thanks for the help.

-Minitman
 
M

Minitman

Thanks Tom

This looks good, unfortunately, I already went with Chip's solution,
but thanks for the reply.

-Minitman
 
Top