LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 5
Default Increment number by 1

Hey all.. I need help.. I think I am on the right track but I confused
myself..

I have a textbox 8 that has a number that is formatted like this...

JA00000

I want to, if OptionButton1 is selected, to auto increase the value of
Textbox8 by one, saving the time of haveing to enter the number in
when Im entering a lot of data.. here is what I have so far...

If OptionButton1.Value = True Then
'gets current Textbox8 value, assigns it a variable
NumInc = TextBox8.Value
'takes the right 5 digits of the value of textbox8
Number = Right(NumInc, 5)
'makes a newnumber by taking the 5 digits, adding 1
NewNumber = Number + 1
'for my t/s only :)
MsgBox (NewNumber)
End If

Now this does gleen the numbers, except the zeros.. how do I take this
number and add it back into the format JA00000 ??

If I ran it and I was entering item # JA00085, the troubleshooting
MsgBox would tell me the value of NewNumber is 86... I need it to put
in TextBox8, JA00086 ... and eventally, it will be moving over to
100's etc.. so I can't set it to put in JA000 + NewNumber ... It cant
be hardcoded, it has to take up all the digits into account, but if
there is only 2 digits in the number, I need the numbers preceding it
to be zeros..

Any ideas ??

Thanks for your Help!!!

Joe Derr
 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Increment invoice number suzi_75 Excel Worksheet Functions 1 October 21st 09 12:12 PM
Auto Increment Number Thomas [PBD] Excel Discussion (Misc queries) 0 June 24th 08 10:01 PM
increment version number Lozza77 Excel Discussion (Misc queries) 4 May 17th 06 09:17 AM
How do I Increment a particular woksheet number? [email protected] Excel Worksheet Functions 2 March 6th 06 02:36 AM
Increment an Invoice number Gwyneth Excel Worksheet Functions 1 November 14th 04 01:42 PM


All times are GMT +1. The time now is 06:53 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"