Code numbering invoice

[abdelfattah]

hi, expert
i have userform connect with sheet i would show the next number in textbox3
the textbox3 connected with range in my sheet f9 i know this code range("f9").value=range("f9").value+1
but my numbering is coplicated contains letters and numbers and symbols here my numbring is bsjd-001
i hope help me

 

[NerdWannaBe]

Hello. If your numbering always ends with the number you want to add to, then this will do it. Replace the bsjd- with another text if necessary.

Dim Prefixtext As String
Prefixtext = "bsjd-"
Range("f9").Value = Prefixtext + Format(Mid(Range("F9").Value, Len(Prefixtext) + 1) + 1, "000")

This will always add 1 to the number at the end and keep it as 3 digits (i.e. 002,003 etc) (and when it gets to 999 it will carry on with 1000, 1001, etc.. If there may be text after the number, then a more complicated solution is needed.

I have been looking for a solution to my invoicing issue and this helped me greatly. I had to tweek it slightly for my use, but this worked for my needs. Thanks!!

 

[abdelfattah]

I have been looking for a solution to my invoicing issue and this helped me greatly. I had to tweek it slightly for my use, but this worked for my needs. Thanks!!

i'm glad to help you and useful