Copy column groupings

  • Thread starter Thread starter Paul Martin
  • Start date Start date
P

Paul Martin

I've written some code that rebuilds each worksheet in the workbook.
I'm wondering how to ascertain whether a given sheet has any column
groupings and then copy them to the new sheet. Any suggestions are
appreciated.

Thanks in advance

Paul Martin
Melbourne, Australia
 
Forgive my feeble brain! Im not entirely sure what you mean by Column
Groupings, are you asking for a change to the code your currently using to
rebuild wour worksheets or a fresh piece of code to copy data between sheets
if certain criteria are met?
 
Thanks for the response, Atishoo. I'm referring to (in Excel 2003)
Data, Group and Outline, Group to group columns. Where this has
occurred on a sheet, I want to be able to detect it in code and then
copy it to another sheet.
 
I think you'll have to look for that outlinelevel:

Option Explicit
Sub testme99()
Dim myRange As Range
Dim myCell As Range
Dim maxLevel As Long

With ActiveSheet
Set myRange = .Rows(1)

maxLevel = 0
For Each myCell In myRange.Cells
If myCell.EntireColumn.OutlineLevel > maxLevel Then
maxLevel = myCell.EntireColumn.OutlineLevel
End If
Next myCell

End With
MsgBox "Largest visible level: " & maxLevel

End Sub
 
Back
Top