Hide/Unhide Rows with a Checkbox

[webdoc]

Can someone tell me how to unhide rows when a checkbox is checked and then hide the same rows when it is unchecked? I'm new to Excel programming, so feel free to give lots of detail if you like. Thanks!!

 

[lenze]

Say the rows you want to hide and unhide are 5:10. Put a macro like this in a module

Sub HideUnhide()

Rows("5:10").Select
If Selection.EntireRow.Hidden = False Then
Selection.EntireRow.Hidden = True
Else
Selection.EntireRow.Hidden = False
End If
Range("$A$1").Select

End Sub

Assign this macro to your CheckBox

 

[NateO]

Howdy WebDoc, welcome to the board.

If you're using an activex checkbox, in design mode, right click on the check box, and click view code.

In the now opened worksheet module, paste the following procedure:

<pre>
Private Sub CheckBox1_Click()
If CheckBox1 = True Then
[5:10].EntireRow.Hidden = False
Else: [5:10].EntireRow.Hidden = True
End If
End Sub</pre>

You'll want to change Checkbox1 to the name of your checkbox.

Hope this helps.

 

[webdoc]

Perfect! I appreciate the quick response. Thanks much!!

 

[dogpile]

Hope it's alright if I jump in on this with another question:

Could you show me the code for the check box if I wanted to unhide the rows where ([a5:a10] = 1) and keeping other rows hidden?

 

[OfficeMan81]

In my first column I have a brand name (say Coca-cola) and I only want to show rows with Coca-Cola when I check the box.

The brands are populated from a list on a separate sheet. 10 brands.

Can this be done?

Thanks

 

[Briantoo]

Wow...this was a HUGE help for me--thanks!

 

[sujon]

ha.ha.ha

 

[Pinkie15]

Please excuse the thread revival, but my google search brought me to this thread.

Just to say thanks to lenze and NateO, a simply given answer that's enabled me to input VBA code (first for me) and it works !! It's for a word document I'm re-designing into Excel (why do people write tables in word ???).

 

[mnmio15]

Say the rows you want to hide and unhide are 5:10. Put a macro like this in a module

Sub HideUnhide()

Rows("5:10").Select
If Selection.EntireRow.Hidden = False Then
Selection.EntireRow.Hidden = True
Else
Selection.EntireRow.Hidden = False
End If
Range("$A$1").Select

End Sub

Assign this macro to your CheckBox

Hello,
If I put in this Macro, but then need to add some rows above those covered by the checkbox functionality, the Macro won't update automatically will it?
e.g. rows 10-20 are covered by the checkbox tick. If I then need to add a new row at line 6, the macro code still refers to rows 10-20 whereas I would like it to automatically realise that now the checkbox tick is covering rows 11-21.