sensitive button

[Jonsson]

Hi,

I have a format button which I want to use as a button for hide an
unhide a column. I,m looking for a way to :

1:st click =hide column , change text button to "unhide"
2:nd click=unhide column , change text in button to "hide"

Any ideas?

Thanks in advance!

//Thoma

 

[andym]

Hi,

I have a format button which I want to use as a button for hide and
unhide a column. I,m looking for a way to :

1:st click =hide column , change text button to "unhide"
2:nd click=unhide column , change text in button to "hide"

Any ideas?

Thanks in advance!

//Thomas

This is my version...

Create a button called cmd_Hide (or whatever). Set initial caption property
as "Hide".

I have done this to hide column "D", but of course this can be changed to
another or a range...

This is my procedure...

Sub cmd_Hide_Click()

If cmd_Hide.Caption = "Hide" Then
Columns("D").Hidden = True
cmd_Hide.Caption = "Unhide"
Else
Columns("D").Hidden = False
cmd_Hide.Caption = "Hide"
End If

End Sub

This worked fine in my test. There could be a better / another way .. but
this works

Regards,

andy m

 

[Norman Jones]

Hi Thomas,

Assume your button to be from the control toolbox and that the button is
named CommandButton1, try:

Private Sub CommandButton2_Click()
Dim rng As Range
Set rng = Me.Columns("A:A") '<===CHANGE
rng.Hidden = Not rng.Hidden
With Me.CommandButton2
.Caption = IIf(rng.Hidden, "Unhide", "Hide")
End With
End Sub

Change Columns("A:A") to reflect the required column.

 

[Norman Jones]

Hi Thomas,

Private Sub CommandButton2_Click()

Change 2 to 1, of course!