Spin Button

[koenigma]

I have a text box and spin button on a user form, I would like that the
user could enter a number in the text box and then if they wish to
change use the spin button.

How would I have the spin button start with the entered number rather
than with 1.

Any help woulf be appricated.

Kind Regards
Martin

 

[keepITcool]

Private Sub SpinButton1_Change()
TextBox1.Value = SpinButton1.Value
End Sub

Private Sub SpinButton1_Enter()
SpinButton1.Value = Val(TextBox1.Text)
End Sub

 

[koenigma]

Thanks for your help. I kept on getting an error so I modified as sown
below:

Private Sub SpinButton1_Change()
TextBox1.Text = CStr(SpinButton1.Value)
End Sub
Private Sub SpinButton1_Enter()
SpinButton1.Value = Val(TextBox1.Text)
End Sub

Regards
Martin

 

[koenigma]

Thanks for your help. I kept on getting an error so I modified as sown
below:

Private Sub SpinButton1_Change()
TextBox1.Text = CStr(SpinButton1.Value)
End Sub
Private Sub SpinButton1_Enter()
SpinButton1.Value = Val(TextBox1.Text)
End Sub

Regards
Martin

 

[keepITcool]

original works for me..
BUT
you may have check the MAX/MIN values of your spinbutton.