Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Grouping According to IndentLevel
I am trying to arrange elements into groups. My code is below:
Sub Grp() Dim lngRow As Long Sheets("Sheet1").Select For i = 6 To 0 Step -1 For lngRow = Cells(Rows.Count, "B").End(xlUp).Row To 4 Step -1 If Range("B" & lngRow) < "" And .IndentLevel = (i) Then Range("B" & lngRow & ":B" & lngRow).Rows.Group End If Next lngRow Next i End Sub Basically, I want to start on Row 4, go to the end of the used range, and group all data according to the €˜Indent of each Row. There can be 0 to 6 IndentLevels. The code fails on this line: If Range("B" & lngRow) < "" And .IndentLevel = (i) Then The message I get says €˜Compile Error: Invalid or unqualified refernce. What am I doing wrong? Thanks, Ryan--- -- Ryan--- If this information was helpful, please indicate this by clicking ''Yes''. |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
To sum by grouping | Excel Discussion (Misc queries) | |||
Grouping | Excel Programming | |||
Grouping | Excel Worksheet Functions | |||
grouping | Excel Programming | |||
IndentLevel | Excel Programming |