Grouping and ungrouping rows in excel using VBA assigning x1 button for opening and closing

[Barry18180]

Afternoon all,

I'm hoping somebody can help me with what I think could be a simple task?

I would like to ungroup and group certain rows using VBA so I can make my document more user friendly for the end user

I have tried a number of solutions but none seem to work. I want to click on Monday once to ungroup the rows. Then click it again to group the rows back up, then continue to do this for the different days of the week. I believe I will need to have a small macro for each day to keep it simple

If anybody can assist them please let me know

kind regards

Barry

 

[My Aswer Is This]

So how are we to know what rows are for Monday.
Is "Monday" in column "A" of the row?

 

[Barry18180]

So how are we to know what rows are for Monday.
Is "Monday" in column "A" of the row?

Sub Monday()

Dim rng As Range
Set rng = Application.Range("a34:a80")

If rng.EntireRow.Hidden = True Then
rng.EntireRow.Hidden = False
Else: rng.EntireRow.Hidden = True
End If

End Sub

Sub T()

Dim rng As Range
Set rng = Application.Range("a82:a128")

If rng.EntireRow.Hidden = True Then
rng.EntireRow.Hidden = False
Else: rng.EntireRow.Hidden = True
End If

End Sub
Sub Wednesday()

Dim rng As Range
Set rng = Application.Range("a130:a176")

If rng.EntireRow.Hidden = True Then
rng.EntireRow.Hidden = False
Else: rng.EntireRow.Hidden = True
End If

End Sub
Sub Thursday()

Dim rng As Range
Set rng = Application.Range("a178:a224")

If rng.EntireRow.Hidden = True Then
rng.EntireRow.Hidden = False
Else: rng.EntireRow.Hidden = True
End If

End Sub
Sub Friday()

Dim rng As Range
Set rng = Application.Range("a226:a259")

If rng.EntireRow.Hidden = True Then
rng.EntireRow.Hidden = False
Else: rng.EntireRow.Hidden = True
End If

End Sub

 

[Barry18180]

This works perfectly, thank you very much for getting back to me. I hope this helps someone else in the future

 

[My Aswer Is This]

You could do it this way:

Sub Monday()
'Modified  4/13/2021  7:59:34 AM  EDT
Rows("34:80").Hidden = Not Rows("34:80").Rows.Hidden
End Sub
Sub Tuesday()
Rows("82:128").Hidden = Not Rows("82:128").Rows.Hidden
End Sub
Sub Wednesday()
Rows("130:176").Hidden = Not Rows("130:176").Rows.Hidden
End Sub
Sub Thursday()
Rows("178:224").Hidden = Not Rows("178:224").Rows.Hidden
End Sub
Sub Friday()
Rows("226:259").Hidden = Not Rows("226:259").Rows.Hidden
End Sub