1 button to do 2 things

[Davers]

Hi everyone...I'd like one button that when pressed will either unhide rows if they are hidden, or hide them if they are unhidden...I can't seem to get the logic of it down...Here is my fumbling attempts so far:

Private Sub CommandButton1_Click()

If Columns("H:O").EntireColumn.Hidden = False Then
    Module1.unHideCol
End If

If Columns("H:O").EntireColumn.Hidden = True Then
    Module1.HideCol
End If

End Sub

Any ideas?

Thanks,

Dave M.

 

[TryingToLearn]

Sub togglehide()
Columns("H:O").EntireColumn.Hidden = Not Columns("H:O").EntireColumn.Hidden
End Sub

 

[Davers]

Sweet! What a simple answer!!! I really appreciate it!

Have a good day,

Dave M.

 

[TryingToLearn]

No problem. I'm simply paying back with what I've learned here in the past several months and giving those that helped me more time to help others!

 

[HalfAce]

Hi Davers,
If you’re using a Forms toolbar button for that, another approach
might be something like this:

Sub HideUnhide()
ActiveSheet.Shapes("Button 1").Select
Select Case Selection.Characters.Text
Case "Hide"
Columns("H:O").EntireColumn.Hidden = True
ActiveSheet.Shapes("Button 1").Select
Selection.Characters.Text = "Unhide"
Case "Unhide"
Columns("H:O").EntireColumn.Hidden = False
ActiveSheet.Shapes("Button 1").Select
Selection.Characters.Text = "Hide"
Case Else
End Select
[A1].Select
End Sub

You’ll have to supply the button number and where the
active cell should be when it’s done.
(You'll also need to give the button the text Hide)

This help?
Dan

 

[Davers]

Thanks for the reply HalfAce...I appreciate it. I'll have to file away your code away for a later date though....after all the work that went into this workbook...I made the mistake of mentioning that they might want to go the database route as opposed to the spreadsheet route... Now they want me to design something in Access...sigh


Thanks again,

Dave

 

[KennyC]

Hi,

Or if someone needs to do a range of columns to hide.

Sub togglehide()
Range("B:B,D:D").EntireColumn.Hidden = Not Range("B:B,D:D").EntireColumn.Hidden
End Sub

Cheerz :wink:

 

[KennyC]

...I made the mistake of mentioning that they might want to go the database route as opposed to the spreadsheet route... Now they want me to design something in Access...sigh


Thanks again,

Dave

Hi Davers,

Silly boy........

Just think, you might have to start visiting the Mr.Excel Access Forum.

Cheerz :wink: