Grouping rows with the plus/minus icon in the first row

G

GoBucks

I found part of my answer in another post (see below) with the code:

ActiveSheet.Outline.SummaryRow = xlAbove
ActiveSheet.Range("A2", "A10").Rows.Group

But what if I wanted to Group other rows in the same worksheet in the same
fashion. For example, I would like to also apply for range A12:A20 with A11
as the row with the +/- sign. And then to A22:A30 with A21 as the row with
the +/- sign. And so on..

Also, I am fairly new to using VB, so what would be the entire set of code
to place in the in VB editor?

Thanks!!


http://www.microsoft.com/office/com...205f&mid=612b6e19-b928-4a43-ab9f-6c3c230b862e
 
J

Jacob Skaria

Try the below

Sub GroupRows()
Dim lngRow As Long
For lngRow = 1 To 100 Step 10
Range("A" & lngRow + 1).Resize(9).Rows.Group
Next
ActiveSheet.Outline.SummaryRow = xlAbove
ActiveSheet.Outline.ShowLevels RowLevels:=1
End Sub

If this post helps click Yes
 
G

GoBucks

Thank you Jacob! This worked! How about if one or more ranges that I wanted
Grouped were not the same amount of rows? For example if the first Group
contained 9 rows then the next Grouping contained 8, and the next 5.
 
J

Jacob Skaria

There should be some condition which cause this row count to change...For
example say you have a text called 'Total'..Find that and text and adjust the
row count to suit/

If this post helps click Yes
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top