Hide and Show rows button

[DSLA]

Hi, i have 2 button for hiding and showing certain rows, but i would like to make it possible to hide/show rows with only one button.

When i click once it shows the cells, when i click again it hides the rows.

Here are the codes:
Private Sub CommandButton1_Click()
Rows("28:36").Select
Selection.EntireRow.Hidden = False
End Sub

Private Sub CommandButton3_Click()
Rows("28:36").Select
Selection.EntireRow.Hidden = True
End Sub

 

[Damon Ostrander]

Hi DSLA,

You can toggle the Hidden property of the rows by using the code:

Selection.EntireRow.Hidden = NOT Selection.EntireRow.Hidden

This simply reverses the current TRUE/FALSE value.

Keep Excelling.

Damon

 

[DSLA]

Thank You : )

 

[Peter_SSs]

DSLA

Also, generally you do not have to actually SELECT rows/ranges/cells to work on them and it is generally quicker not to do so. In this case, I think that you could use this:

<font face=Courier New><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> CommandButton1_Click()
    Rows("28:36").EntireRow.Hidden = <SPAN style="color:#00007F">Not</SPAN> Rows("28:36").EntireRow.Hidden
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

 

[GlennUK]

Hi DSLA,

have you thought about Grouping and Outlining to hide and unhide specific rows easily?

Just a thought.