Can you assign multiple click events to a button?

[vbafun]

Hello Excel Community,

I have a control sheet that runs a variety of macros in my workbook, but I'd like to reduce some of the formatting control buttons if possible. Basically, I have some procedures that only hide or un-hide rows/columns for presentation purposes, but I'd like my users to be able to use 1 button (i.e 1 click will hide, a second click will un-hide).

Is this possible or am I stuck with 2 buttons?

Cheers

 

[davesweep]

Hi,

You could set a global variable to act as a switch and then call one routine or another based on that value, like so.

Global Button_Pushed As Boolean

Sub Button1_Click()
Button_Pushed = Not Button_Pushed

If Button_Pushed = True Then Call HideStuff
If Button_Pushed = False Then Call UnhideStuff

End Sub

Sub HideStuff()
'Your code here
End Sub

Sub UnhideStuff()
'Your other code here
End Sub

 

[RoryA]

It's possible. You'd just need to have one routine that hides the rows if they're visible and unhides them if they aren't.

 

[Andrew Poulsom]

You can toggle the Hidden property like this:

Private Sub CommandButton1_Click()
    With Range("A1:A10").EntireRow
        .Hidden = Not .Hidden
    End With
End Sub

 

[vbafun]

davesweep,

Thank you very much. Worked like a charm!