Macro to Group andor Ungroup rows and/or columns
 

Hello,
I'm an intermediate user of macros and VBA programing but I can't figure
this out. I want to create a macro that will identify if I have selected
rows or columns and if what I've selected is grouped or not and then either
group the selection or ungroup the selection based on these answers. This is
what I've built...obviously it doesn't work. Please help if you can.

Sub GroupUngroupSelection()

With selection
If Selection.Rows = True
If Selection.Rows.Group = True
selection.Rows.Ungroup
Else:
selection.Rows.Group
Elseif Selection.Columns = True
If Selection.Columns.Group = True
selection.Columns.Ungroup
Else:
selection.Columns.Group
End With
End Sub

--
Thanks a million,

Nick Junod

Macro to Group andor Ungroup rows and/or columns
 

You need to explain what a grouped selection is.
--
Jim Cone
Portland, Oregon USA



"Nick Junod"

wrote in message
Hello,
I'm an intermediate user of macros and VBA programing but I can't figure
this out. I want to create a macro that will identify if I have selected
rows or columns and if what I've selected is grouped or not and then either
group the selection or ungroup the selection based on these answers.
This is what I've built...obviously it doesn't work. Please help if you can.

Sub GroupUngroupSelection()
With selection
If Selection.Rows = True
If Selection.Rows.Group = True
selection.Rows.Ungroup
Else:
selection.Rows.Group
Elseif Selection.Columns = True
If Selection.Columns.Group = True
selection.Columns.Ungroup
Else:
selection.Columns.Group
End With
End Sub
--
Thanks a million,
Nick Junod

Macro to Group andor Ungroup rows and/or columns
 

What I mean by a grouped selection is the same thing as under the Data menu |
Group and Outline | Group.

Does that help?

Macro to Group andor Ungroup rows and/or columns
 

Sub WhichWay()
Dim rng As Range
Set rng = Selection
If rng.Columns.Count = Columns.Count Then
rng.Group
MsgBox "Entire Rows Grouped" & vbCr & rng.Address
ElseIf rng.Rows.Count = Rows.Count Then
rng.Group
MsgBox "Entire Columns Grouped" & vbCr & rng.Address
Else
MsgBox "Not entire rows or columns " & vbCr & _
"However let's group rows. " & vbCr & rng.Address
rng.EntireRow.Group
MsgBox "Rows grouped for... " & vbCr & rng.Address
End If
rng.EntireRow.ClearOutline
End Sub
--
Jim Cone
Portland, Oregon USA


"Nick Junod"

wrote in message
What I mean by a grouped selection is the same thing as
under the Data menu | Group and Outline | Group.

Does that help?