Command Buttons
I'd suggest you just use two subs
Private Sub Button1_On()
Me.CommandButton2.Enabled = False
Me.CommandButton1.Enabled = True
End Sub
Private Sub Button2_On()
Me.CommandButton1.Enabled = False
Me.CommandButton2.Enabled = True
End Sub
that you call from the "different procedures", e.g.:
Private Sub UserForm_Initialize()
'Stuff here
Button1_On
End Sub
Private Sub CommandButton1_Click()
'Do more stuff
Button2_On
End Sub
Private Sub CommandButton2_Click()
'Do even more stuff
Button1_On
End Sub
In article ,
ranswrt wrote:
I turn the buttons on and off with different procedures on the userform. i
was wondering in there was an event procedure that would make sure that only
one button was on at a time.
|