Set Min and Max for Spin Button

[phillipclark]

Greetings All,
My Question today is how do I set a min and max for a Spin Button within my VBA Code below.
The code I am using currently to increment .1 changes. This is working fine but now it will
be necessary to limit the amount a person can change with the SpinButton.

Thank you in advance for your help

Private Sub SpinButton2_SpinDown()
Worksheets("Sheet2").Range("U51").Value = Worksheets("Sheet2").Range("U51").Value - 0.1
End Sub
Private Sub SpinButton2_Spinup()
Worksheets("Sheet2").Range("U51").Value = Worksheets("Sheet2").Range("U51").Value + 0.1
End Sub

 

[Nine Zero]

perhaps wrap it in an If Statement

Private Sub SpinButton2_SpinDown()
Dim min As Integer
Dim current As Double
min = 0
current = Worksheets("Sheet2").Range("U51").Value
If current > min Then
Worksheets("Sheet2").Range("U51").Value = Worksheets("Sheet2").Range("U51").Value - 0.1
Else
Msgbox "You have reached the minimum amount allowed!"
End If
End Sub

Private Sub SpinButton2_Spinup()
Dim max As Integer
Dim current As Double
max = 10
current = Worksheets("Sheet2").Range("U51").Value
If current < min Then
Worksheets("Sheet2").Range("U51").Value = Worksheets("Sheet2").Range("U51").Value + 0.1
Else
Msgbox "You have reached the maximum amount allowed!"
End If
End Sub

 

[phillipclark]

Thank You Nine Zero! This works great. I found only one small mistake and corrected it in the Spin Up Sub Thank You for this help I couldn't have solved without you.

Private Sub SpinButton2_SpinDown()
Dim min As Integer
Dim current As Double
min = 57
current = Worksheets("Sheet2").Range("U51").Value
If current > min Then
Worksheets("Sheet2").Range("U51").Value = Worksheets("Sheet2").Range("U51").Value - 0.1
Else
MsgBox "You have reached the minimum amount allowed!"
End If
End Sub
Private Sub SpinButton2_Spinup()
Dim max As Integer
Dim current As Double
max = 60
current = Worksheets("Sheet2").Range("U51").Value
If current < [COLOR=#00ffff]max[/COLOR] Then
Worksheets("Sheet2").Range("U51").Value = Worksheets("Sheet2").Range("U51").Value + 0.1
Else
MsgBox "You have reached the maximum amount allowed!"
End If
End Sub

 

[Nine Zero]

Oh yeah my bad forgot to change that

Good Catch!

And no problem, glad i could help