SpinButton/TextBox - Large Number

[John Fuller]

I have a large number of SpinButton/TextBox combinations on a userform
(~50). I'm trying to figure out if there's a better way than writing
this type of code 50 times:

Private Sub SpinButton_MeltPower1_Change()
TextBox_MeltPower1.Value = SpinButton_MeltPower1.Value
End Sub
Private Sub TextBox_MeltPower1_Change()
SpinButton_MeltPower1.Value = TextBox_MeltPower1.Value
End Sub

I also need to figure out how to trap if they write text into the text
box (rather than a number), pop up an error, and then change the value
of the text box back to the original value. Right now, the above code
crashes out (not suprisingly), when it tries to set the value of the
the spinbutton to a text string.

Any help is appreciated,
John

 

[Die_Another_Day]

John, first check out this code from J-Walk:
http://j-walk.com/ss/excel/tips/tip44.htm
Let me know if you need help implementing that. Second, when I attach a
spinner to a textbox I usually disable the textbox so it must be
changed via the spinner, this works very well to keep stupid users from
entering text. If you wish to allow the user to enter a number
manually, use the TextBox_Enter event to trap the value when the user
clicks in the box and store the value to a global variable, then when
they exit the checkbox do your error checking to verify that it is a
number, if not then reset back to the global variable. Once again reply
back if you need code samples.

Charles Chickering

 

[Tom Ogilvy]

you can use this **technique** documented at John Walkenbach's site:

http://www.j-walk.com/ss/excel/tips/tip44.htm

You could use the change event of the textbox to reject non numeric input.
It could check the spinbutton to see what value to restore.

 

[John Fuller]

Thanks. That should do the trick.

you can use this **technique** documented at John Walkenbach's site:

http://www.j-walk.com/ss/excel/tips/tip44.htm

You could use the change event of the textbox to reject non numeric input.
It could check the spinbutton to see what value to restore.