Grouping VBA

[zhead]

Is it possible to combine these two VBA codes? They work great if i run one or the other but I would like to be able to run both to create both levels of grouping.

Please Login or Register  to view this content.

Please Login or Register  to view this content.

[zbor]

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here



(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)

[zhead]

Is it possible to combine these two VBA codes? They work great if i run one or the other but I would like to be able to run both to create both levels of grouping.
I have added tags but i am unable to add attachment

[Sub Macro2()
Dim rData, rCel As Range
Set rData = Range("a3", Range("a" & Rows.Count).End(xlUp))

Application.ScreenUpdating = False
With rData
On Error Resume Next
.Rows.Ungroup
.Rows.EntireRow.Hidden = False
On Error GoTo 0
End With
For Each rCel In rData
If rCel = "END" Then Exit For
If rCel <> "2" Then
Rows(rCel.Row).Group
rCel.EntireRow.Hidden = True
End If
Next
Application.ScreenUpdating = True



End Sub]


[Sub Macro4()

Dim rData, rCel As Range
Set rData = Range("a3", Range("a" & Rows.Count).End(xlUp))

Application.ScreenUpdating = False
With rData
On Error Resume Next
.Rows.Ungroup
.Rows.EntireRow.Hidden = False
On Error GoTo 0
End With
For Each rCel In rData
If rCel = "END" Then Exit For
If rCel <> "3" Then
Rows(rCel.Row).Group
rCel.EntireRow.Hidden = True
End If
Next
Application.ScreenUpdating = True

End Sub]

[zbor]

Not just [ ] around text but whole [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] .

Easiest for you is to select text and press # above thread.

Please edit first post.

Attachment 460566