Click a Spin Button via another button?

[NewYears1978]

I have a userform that has a Spin Button in it, and I am trying to hit a Command Button (or Label in this case) and make it run the SpinDown and then Another to run the SpinUp, but this doesn't appear to work.

Is this not possible?

My Spin Buttons look like this:

Public Sub SpinButton1_SpinDown()
 'SCAN FORWARD
 
  ShowCurrentRecord

    With New MSForms.DataObject
        .SetText TextBox1.Text
        .PutInClipboard
    End With

End Sub

Public Sub SpinButton1_SpinUp()
 'SCAN BACKWARD
 
  ShowCurrentRecord

    With New MSForms.DataObject
        .SetText TextBox1.Text
        .PutInClipboard
    End With
  
End Sub

I tried this:

Private Sub Label14_Click()
SpinButton1_SpinDown
End Sub

and

Private Sub Label14_Click()
UserForm1.SpinButton1_SpinDown
End Sub

Thanks in advance for any help.

(Of you need the reasoning behind this, it is so I can use better visuals for my Spin buttons than the default ugly ones)

[Alf]

Quck (and maybe stupid) question but have you assigned the macro "Public Sub Spinbutton" to the spin button?

Alf

[NewYears1978]

There are no stupid questions for me...I am a complete newb with no training so I am learning as I go..I don't even know how to do what you suggest.

My buttons are all in a userform though so I don't know how to assign macros (thought that was only done when buttons were in the excel document)


The SpinButton codes above work on their own when clicking the actual spin button. I just want to click a separate button and it do the same thing as if I had clicked the spin button..if that makes sense.

I will attach form so it makes more sense you'll see the working spin button and the 2 labels I tried to use instead.

[Andy Pope]

As the code stands at the moment you would need to modify the label click routines

Private Sub Label13_Click()
    If SpinButton1.Value - 1 >= SpinButton1.Min Then
        SpinButton1.Value = SpinButton1.Value - 1
        SpinButton1_SpinDown
    End If
End Sub
Private Sub Label14_Click()
    If SpinButton1.Value + 1 <= SpinButton1.Max Then
        SpinButton1.Value = SpinButton1.Value + 1
        SpinButton1_SpinUp
    End If
End Sub

Perhaps a cleaner way would be to remove the spinup and spindown routines and use the change event instead.

Private Sub Label13_Click()
    If SpinButton1.Value - 1 >= SpinButton1.Min Then
        SpinButton1.Value = SpinButton1.Value - 1
    End If
End Sub
Private Sub Label14_Click()
    If SpinButton1.Value + 1 <= SpinButton1.Max Then
        SpinButton1.Value = SpinButton1.Value + 1
    End If
End Sub
Private Sub SpinButton1_Change()
  
  ShowCurrentRecord

If TextBox1.Text = "" Then
    
Else
    With New MSForms.DataObject
        .SetText TextBox1.Text
        .PutInClipboard
    End With
End If

End Sub

[NewYears1978]

Andy thanks for your reply. Caught me right before going off to bed. I will try tomorrow and let you know how it works out. Much appreciated.

Edit:

I went ahead and tried, first one works perfect. The second I wasn't sure what to remove. There are several calls in the module for SpinButton and they are required for the other buttons to work so for now I went with the first option.

However cleaner is better so I'd like to figure out how to make the other option work.