sensitive button
 

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

--
Jonsso
-----------------------------------------------------------------------
Jonsson's Profile: http://www.excelforum.com/member.php...nfo&userid=547
View this thread: http://www.excelforum.com/showthread.php?threadid=26841

sensitive button
 

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:D").Hidden = True
cmd_Hide.Caption = "Unhide"
Else
Columns("D: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

sensitive button
 

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.
---
Regards,
Norman



"Jonsson" wrote in message
...

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


--
Jonsson
------------------------------------------------------------------------
Jonsson's Profile:
http://www.excelforum.com/member.php...fo&userid=5472
View this thread: http://www.excelforum.com/showthread...hreadid=268412

sensitive button
 

Hi Thomas,

Private Sub CommandButton2_Click()

Change 2 to 1, of course!

---
Regards,
Norman



"Norman Jones" wrote in message
...
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.
---
Regards,
Norman



"Jonsson" wrote in message
...

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


--
Jonsson
------------------------------------------------------------------------
Jonsson's Profile:
http://www.excelforum.com/member.php...fo&userid=5472
View this thread:
http://www.excelforum.com/showthread...hreadid=268412