Find the End of a Pivot table

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I need to find the end of a Pivot table I call "Won" the table sorts orders
out and is constantly growing. I need to find the last cell of that table at
any given time after it is filtered so I can add some notes and other info to
the bottom. I have tried range names but when the table grows it consumes my
Range Name as well. Can the cell with the range name move with the growing
table?

thanks
Peter
 
Sub GetLastPTCell()
Dim rLastCell As Range
With ActiveSheet.PivotTables(1).TableRange1
Set rLastCell = .Offset(.Rows.Count - 1, .Columns.Count - 1).Resize(1,
1)
End With
End Sub

- Jon
 
Jon, thanks for the responce, but the last cell of my pivot table was not
found. The code runs but the active cell does not get selected.

I added ActiveCell.Offset(0, -1).Range("A1").Select to your code to test.
this works but the active cell selected at the top of the PT not the bottom.

Peter
 
To select the last cell of the pivot table:

Sub GetLastPTCell()
Dim rLastCell As Range
With ActiveSheet.PivotTables(1).TableRange1
Set rLastCell = .Offset(.Rows.Count - 1, .Columns.Count - 1).Resize(1,
1)
End With

rLastCell.Select

End Sub


- Jon
 
Back
Top