Drill-Down Pivot Macro

  • Thread starter Thread starter Jay
  • Start date Start date
J

Jay

Is there a manual way to drill down to data in a pivot table other
than double clicking? I'm trying to write a macro that drills down to
the data under the active cell, but using the double click would
change the location of the active cell. Any ideas???

Thanks in advance.....
 
Another way to do it manually is to choose
PivotTable> Group and Show Detail>Show Detail
but that will also leave the detail sheet activated.

Or, via code:

Sub ActiveCellDrillDown()
Dim rng As Range
Set rng = ActiveCell

With rng
.ShowDetail = True
.Parent.Activate
.Activate
End With

End Sub
 
Back
Top