Thanks for confirming.

Gaetan

In general there isn’t any real inconvenience to cycling through items in VBA. The computer does it behind the scenes, and if there isn’t a huge number of items, the user will not notice.

I think I should only look at rowfield and columnfield for “data” as I don’t think “data” could be a datafields, neither could be a pagefield.

That said, as I don’t know in advance what will be the orientation of the data, I preffer to scan every possibility (I guess this could be specific to my problem).

Beside the speed, do you see any other inconvenient?

Thank you for your answer.

Gaetan

Instead of searching for each pivot field in YourPivotTable.PivotFields, try one of these:

For Each PvtFld In YourPivotTable.PageFields
For Each PvtFld In YourPivotTable.RowFields
For Each PvtFld In YourPivotTable.ColumnFields
For Each PvtFld In YourPivotTable.DataFields

Question :
When you have two calculations, we then have a pivot field names “data” (données in french). In order to keep international compatiblity, do you know a way to capture the range of this cell.

Thanks a lot.

Thanks a lot!

I think this could be done with UDFs. One approach is to create a UDF like this (untested):

Public Function PivotRange(SheetName As String, PivotName As String, _    FieldName As String, ItemName As String) As Range  If Len(ItemName) > 0 Then    Set PivotRange = ActiveWorkbook.Worksheets(SheetName).PivotTables(PivotName). _        PivotFields(FieldName).PivotItems(ItemName).DataRange  Else    Set PivotRange = ActiveWorkbook.Worksheets(SheetName).PivotTables(PivotName). _        DataRange  End IfEnd Function

You could then call it like:

=Slope(PivotRange("Sheet1","PivotTable01","Years","2004"),PivotRange("Sheet1","PivotTable01","OrderDate",""))

I see above that using VBA, there are easy ways to return whole ranges from a pivot table that will dynamically resize. However, is there a way to fetch a pivot table range from a formula that might reside on another worksheet? Basically, I have two separate pivot tables that contain some different data. I also have some formulas on another worksheet that reference ranges in both of these tables to do some calculations; for example, one of my formulas would include LINEST(). In my formulas, I would like to reference the pivot table ranges, which may change as I manipulate what’s displayed on the pivot table. Is this possible to do with formulas? All I can find so far is the GETPIVOTDATA() function, but the documentation indicates that this is only for the summary data, whereas I want to operate on the range itself.

Regards,
Craig

in the example
pt.DataBodyRange.Select

as I do to select in the row

Order Date “Jan” Grand Total “42447,15″

this cell is not inside in the datarange ?.
as do I reference the column grand total ?

thanks you very much

The PT comes from a table of test records with 30 columns and 15k rows. My PT is setup but I have to manually uncheck “Show All” and search for and check-off 200 serial numbers in column 1 of the PT every three days.
Can I point my vb code to a list or range cells and exclude everything in the column which is not in the column I specifiy (f2:f32 or A1 to A201) from another sheet?
PT headers are as follows: SERIAL_NUM, CAL_DATE, CAL_TIME, SLOT, ERROR_MESS, ect. and all I need is SERIAL_NUM visible equal to true for 200 of the 15k serial numbers available. Does this make sense?

Thanks for any input.
Final Impact