Textbox .text = spinbutton.value (multiple)

[mosiki]

Hi

I have 31 textboxes alongside 31 spinbuttons. I will need to set the textbox text equal to the spin button value .i.e

Textbox1.Text = SpinButton1.value
Textbox2.Text = SpinButton2.value etc....for each 31 boxes

I will then set the event handler for each textbox, i.e

Dim NewVal as Integer
NewVal = Val(Textbox1.Text)
If NewVal >=Spinbutton1.Min And NewVal <=SpinButton1.Max Then _
SpinButton1.Value = NewVal

I dont wat to have to write this out 31 times for each textbox and spinbutton.

Is there code I can write with a variable to assign each Textbox value to its corresponding spinbutton, and the same for assigning textbox event handler.

I would like these values to be assigned when the userform is opened .i.e. Userform1.show.

Thanks

Mosiki

 

[pgc01]

Hi Mosiki

You should look into class modules. This will allow you to define a generic change event for all the textboxes and likewise for the spinbuttons.

I posted some time ago a solution for a similar problem. It dealt with 6 textboxes having a common change event procedure.

http://www.mrexcel.com/forum/showthread.php?t=354833

HTH