1 Userbutton to perform alternating functions
 

Hi

I'm wondering how I do this:

I want one userbutton on a spreadsheet where, if columns D - H are
hidden, the button unhides them, or if they are visible it hides them.

Does anyone have any advice, please?

Thanks in advance

Steve

1 Userbutton to perform alternating functions
 

Insert this line in the button's code module:
Columns("D:H").EntireColumn.Hidden = Not Columns("D:H").EntireColumn.Hidden

Regards,
Stefi

€žSteve€� ezt Ã*rta:

Hi

I'm wondering how I do this:

I want one userbutton on a spreadsheet where, if columns D - H are
hidden, the button unhides them, or if they are visible it hides them.

Does anyone have any advice, please?

Thanks in advance

Steve

1 Userbutton to perform alternating functions
 

On Oct 21, 8:37*pm, Steve wrote:
Hi

I'm wondering how I do this:

I want one userbutton on a spreadsheet where, if columns D - H are
hidden, the button unhides them, or if they are visible it hides them.

Does anyone have any advice, please?

Thanks in advance

Steve

ActiveSheet.Range("D:H").EntireColumn.Hidden = Not
(ActiveSheet.Range("D:H").EntireColumn.Hidden)

Ken Johnson

1 Userbutton to perform alternating functions
 

On Oct 21, 8:54*pm, Ken Johnson wrote:
On Oct 21, 8:37*pm, Steve wrote:

Hi

I'm wondering how I do this:

I want one userbutton on a spreadsheet where, if columns D - H are
hidden, the button unhides them, or if they are visible it hides them.

Does anyone have any advice, please?

Thanks in advance

Steve

ActiveSheet.Range("D:H").EntireColumn.Hidden = Not
(ActiveSheet.Range("D:H").EntireColumn.Hidden)

Ken Johnson

But this is neater...

With ActiveSheet.Columns("D:H")
.Hidden = Not .Hidden
End With

Ken Johnson

1 Userbutton to perform alternating functions
 

Steve,

You could also change the button caption

Private Sub CommandButton1_Click()
With ActiveSheet.Columns("D:H")
.Hidden = Not .Hidden
If .Hidden Then
CommandButton1.Caption = "Show"
Else
CommandButton1.Caption = "Hide"
End If
End With
End Sub

Mike

"Steve" wrote:

Hi

I'm wondering how I do this:

I want one userbutton on a spreadsheet where, if columns D - H are
hidden, the button unhides them, or if they are visible it hides them.

Does anyone have any advice, please?

Thanks in advance

Steve