Macro to show/hide rows

[petejb]

I have a simple macro to hide rows, below
what i need is a macro that will hide/unhide a set number of rows below the row where the macro is acivated. i have a list of names approx 100, each with 11 rows of data below them, i want the data below each name to be hidden until the macro is activated.
Sub ShowUnits()
'
' ShowUnits Macro
' Macro recorded 06/02/2009 by pete
'
'
Rows("5:16").Select
Selection.EntireRow.Hidden = False
End Sub

 

[jasonb75]

Try this one,

Sub Macro1()
    
Rows(ActiveCell.Row + 1 & ":" & ActiveCell.Row + 12).EntireRow.Hidden = False
 
End Sub

 

[Smitty]

Welcome to the Board!

How do we tell the code to differentiate between the names and the 11 rows of data? Is there some characteristic that's unique to the names?

 

[jasonb75]

Smitty, have another read of the OP, not sure if I read it right but it looked to me as if he wanted 11 rows below the activecell.

what i need is a macro that will hide/unhide a set number of rows below the row where the macro is acivated

 

[jasonb75]

Assuming that column A is populated to the end of the data range, and that there are always 11 rows to hide below the name, and that there are no extra empty rows in there this will hide all for you.

Range is variable so you need to select the cell with the first name before running the macro.

Jason

Sub hideitall()
For a = ActiveCell.Row To Cells.SpecialCells(xlCellTypeLastCell).Row Step 12
Rows(a + 1 & ":" & a + 11).EntireRow.Hidden = True
Next a
End Sub

 

[petejb]

thanks for responding jason smitty

this is an example of what i mean
Row
1 persons name Hide button show button
2 hide 11 rows below name
3 show 11 rows below name
4
5
6 this to be repeated for approx 100 names
7
etc

 

[jasonb75]

Hi petejb,

Try this lot for size, have you considered a keyboard shortcut to the macro instead of a button on the page?


Unhide 11 rows below the selected name

Sub showbelowme()
    
Rows(ActiveCell.Row + 1 & ":" & ActiveCell.Row + 11).EntireRow.Hidden = False
 
End Sub

Hide 11 rows below the selected name.

Sub hidebelowme()
    
Rows(ActiveCell.Row + 1 & ":" & ActiveCell.Row + 11).EntireRow.Hidden = True
 
End Sub

see reply #5 for code to hide below all names http://www.mrexcel.com/forum/showpost.php?p=1831836&postcount=5


Jason

 

[petejb]

have just tried your macro Jason, it worked to well, it repated and hid over 100 rows, i need it to just hide the next 11 rows so that i am hiding indivual persons data 1 at a time (i will re write to unhide said rows)
pete

 

[jasonb75]

Ha sorry pete, think I put a bad description in there.

Try

sub showall()
cells.entirerow.hidden=false
end sub

to reset the page.

 

[petejb]

i have, but i need to create the sheet for multiple users some not to it literate