Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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? |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
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? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Range.Group Method - group rows, not columns | Excel Programming | |||
Group and ungroup | Excel Programming | |||
Use VBA to find, Group, Ungroup rows | Excel Programming | |||
On protected Excel sheet users be able to group/ungroup rows/colum | Excel Worksheet Functions | |||
how do you group and ungroup rows or columns in new Excel? | Excel Worksheet Functions |