Grouping Multiple Rows

[bark01]

Hi guys,

Not sure if this is possible or not, but is there a way to group multiple groups of rows into one group.

Ie. I could have rows A-C and T-V in one group so I could hide/show detail for multiple rows with one click ?

thanks.

 

[Mark F]

Not sure whether you mean manually or via code

If manually, Highlight all of the rows you want in a group, the do Data, Group and Outline, Group

Apologies if this isn't what you need

Mark

 

[jasonb75]

Have a look at
http://www.mrexcel.com/forum/showpost.php?p=1832392&postcount=13
and
http://www.mrexcel.com/forum/showpost.php?p=1832377&postcount=4

the code is written for a specific set of ranges, but could be easily adapted for any need, I believe that Mark F's suggestion only works in excel 07, but the code in these posts emulates the same in older versions.

Hope this helps

Jason

 

[texasalynn]

I believe that Mark F's suggestion only works in excel 07

no that is in both Excel 07 and lower versions. Mark F gave the steps with the older version

 

[jasonb75]

I stand corrected , never noticed it in the older versions, but that's possibly as I never personally had a need for it then.

Thanks for the correction.

 

[bark01]

Not sure whether you mean manually or via code

If manually, Highlight all of the rows you want in a group, the do Data, Group and Outline, Group

Apologies if this isn't what you need

Mark

I get the same message,' the command you chose can not be used with multiple sections'.

im using excel xp sp2 (2003)

 

[jasonb75]

I get the same message,' the command you chose can not be used with multiple sections'.

im using excel xp sp2 (2003)

This is where the code I linked to becomes an advantage, the code in the thread can be adapted to hide anything you like.

Your original post asked about hiding rows but gave column references, so not entirely sure which you're looking for, but try these on a COPY of your workbook.

Sub hiderows()
   If Range("1:3,20:23").EntireRow.Hidden = False Then
    Range("1:3,20:23").EntireRow.Hidden = True
   Else: Range("1:3,20:23").EntireRow.Hidden = False
  End If
End Sub

Sub hidecolumns()
If Range("A:C,T:V").EntireColumn.Hidden = False Then
    Range("A:C,T:V").EntireColumn.Hidden = True
   Else: Range("A:C,T:V").EntireColumn.Hidden = False
  End If
End Sub

Hope this helps