Increment Userform texbox by 1

Hi atmospheric,
What I did was put your formula (the one from Yogi) in cell D1.
Then in D2 I used this: =LEFT(D1, 4)&RIGHT(D1, 4) + 1

Then in the code of the userform button I used:
There's probably a better way, but hey, I don't see anyone else's ideas, it's late here and this works.

Dan

Looks like you are trying to populate the next order number in your entry screen. This assumes that column b has no entries after the last order number!

That being the case, this code pulls first instance of new order number:



And add this to your OK button. Assumes you are doing multiple entries



HTH

HalfAce, thanks, but i'm trying to avoid formula on the spreadsheet, too many novices inputting.

TTL.......a little confused here, could you talk me through both parts of the code, and why the necessity for both parts? I have it partially working just using the first part, but if I use both I get all sorts of problems.

Thanks

Probably easier if you post the code to your OK button and we can work in the rest of the coding.

The code for initialization populates textbox4 (herein after refered to as the party of the tb4!) with the next order number.

This code is attached to your OK button:

Private Sub CommandButton1_Click()
Dim rw, rng As Range
' your exising code less anything for textbox4 or column b goes here
' then:
' find the first unused cell in column B (1 cell past last invoice number)
Set rng = ActiveSheet.Range("b65536").End(xlUp).Offset(1, 0)
' set this newly found blank cell = new invoice number as shown in tb4
rng.Value = TextBox4.Value
' assumes this is the last thing you're doing and lets go back
' and enter the next invoice so:
' increment the invoice number in tb4
TextBox4.Value = Mid(rng.Value, 1, 4) & Mid(rng.Value, 5, 4) + 1
' go back to tb1 to begin your entries
TextBox1.SetFocus
End Sub


Most importantly, column b should not have any formulas in it, just the last invoice number!

Does this help clarify it?