Return Rows of Selected Range in a Pivot

  • Thread starter Thread starter Magnivy
  • Start date Start date
M

Magnivy

I'm trying to figure out how to return the rows of a selected range in a
pivot table. For Example, when I record a macro to select all 2001s in my
pivot table, I get the following code:

ActiveSheet.PivotTables("PivotTable1").PivotSelect "'2001'", xlDataAndLabel,
_ True

I'm trying to return the rows of all the selected items, so that I could set
the rows of these items to a certain height, but cant come up with anything.

Any help would be greatly appreciated.

Thanks,
Magnivy
 
Hi,

The selected range is given by:
Dim rg as Range
set rg=Selection.
The full rows are then given by:
set rg= Selection.EntireRow
and resizing would be :
rg.RowHeight = ...
 
Hey Sebastien,

Thanks for the reply.

I tried the following code.

dim rng as range
set rng = ActiveSheet.PivotTables("PivotTable1").PivotSelect "'2001'",
xlDataAndLabel, True

and got an error.

I cant think of a way to make it work.

Magnivy
 
Got it! I could just use:

ActiveSheet.PivotTables("PivotTable1").PivotSelect "'2001'", xlDataAndLabel,
True
Selection.Rowheight

Cant believe i didnt think of it before.
 
Yes, that would work !
(I couldn't remember whether or not the '.EntireRow' part was necessary.)
 
Back
Top