Spinner

[art]

Hello:

I need help adding a min to a spinner. I want to add to the code that the
spinner should not go below 0, that means it should not go -1, -2, -3 and so
on. Below is the vba code I have for the spinner button:

Sub Button1_Click()
'
' Button1_Click Macro
'

'Private Sub SpinButton1_SpinDown()
ActiveCell.Value = ActiveCell.Value - 1
End Sub

Private Sub SpinButton1_SpinUp()
ActiveCell.Value = ActiveCell.Value + 1
SpinButton.Min ["=5"]
End Sub

 

[Office_Novice]

Try this

private Sub SpinButton1_SpinDown()
If ActiveCell.Value <= 0 Then
Exit Sub
Else
ActiveCell.Value = ActiveCell.Value - 1
End If
End Sub

Private Sub SpinButton1_SpinUp()
ActiveCell.Value = ActiveCell.Value + 1
End Sub

 

[art]

Thanks, just one more thing. How about, if it is less then 1, then leave
empty without a zero? Can you add that for me as well?

Try this

private Sub SpinButton1_SpinDown()
If ActiveCell.Value <= 0 Then
Exit Sub
Else
ActiveCell.Value = ActiveCell.Value - 1
End If
End Sub

Private Sub SpinButton1_SpinUp()
ActiveCell.Value = ActiveCell.Value + 1
End Sub

Hello:

I need help adding a min to a spinner. I want to add to the code that the
spinner should not go below 0, that means it should not go -1, -2, -3 and so
on. Below is the vba code I have for the spinner button:

Sub Button1_Click()
'
' Button1_Click Macro
'

'Private Sub SpinButton1_SpinDown()
ActiveCell.Value = ActiveCell.Value - 1
End Sub

Private Sub SpinButton1_SpinUp()
ActiveCell.Value = ActiveCell.Value + 1
SpinButton.Min ["=5"]
End Sub

 

[Office_Novice]

Private Sub SpinButton1_SpinDown()
If ActiveCell.Value <= 1 Then
ActiveCell = ""
Else
ActiveCell.Value = ActiveCell.Value - 1
End If
End Sub

Private Sub SpinButton1_SpinUp()
ActiveCell.Value = ActiveCell.Value + 1
End Sub

 

[Rick Rothstein \(MVP - VB\)]

Try this SpinDown code instead (the SpinUp code is you already have is
fine)...

Private Sub SpinButton1_SpinDown()
If SpinButton1.Value > 0 Then
ActiveCell.Value = ActiveCell.Value - 1
Else
ActiveCell.Value = ""
End If
End Sub

Rick

Thanks, just one more thing. How about, if it is less then 1, then leave
empty without a zero? Can you add that for me as well?

Try this

private Sub SpinButton1_SpinDown()
If ActiveCell.Value <= 0 Then
Exit Sub
Else
ActiveCell.Value = ActiveCell.Value - 1
End If
End Sub

Private Sub SpinButton1_SpinUp()
ActiveCell.Value = ActiveCell.Value + 1
End Sub

Hello:

I need help adding a min to a spinner. I want to add to the code that
the
spinner should not go below 0, that means it should not go -1, -2, -3
and so
on. Below is the vba code I have for the spinner button:

Sub Button1_Click()
'
' Button1_Click Macro
'

'Private Sub SpinButton1_SpinDown()
ActiveCell.Value = ActiveCell.Value - 1
End Sub

Private Sub SpinButton1_SpinUp()
ActiveCell.Value = ActiveCell.Value + 1
SpinButton.Min ["=5"]
End Sub

 

[art]

Thanks a million.

Private Sub SpinButton1_SpinDown()
If ActiveCell.Value <= 1 Then
ActiveCell = ""
Else
ActiveCell.Value = ActiveCell.Value - 1
End If
End Sub

Private Sub SpinButton1_SpinUp()
ActiveCell.Value = ActiveCell.Value + 1
End Sub

Hello:

I need help adding a min to a spinner. I want to add to the code that the
spinner should not go below 0, that means it should not go -1, -2, -3 and so
on. Below is the vba code I have for the spinner button:

Sub Button1_Click()
'
' Button1_Click Macro
'

'Private Sub SpinButton1_SpinDown()
ActiveCell.Value = ActiveCell.Value - 1
End Sub

Private Sub SpinButton1_SpinUp()
ActiveCell.Value = ActiveCell.Value + 1
SpinButton.Min ["=5"]
End Sub