How do I loop thru a data range in a pivot table

Your question at the moment is rather general.

We would be better able to help you if:
- you shared a picture of the pivot table
- you indicated which fields would need to be checked for additions and deletions
- you showed an example of how you would want the differences to be indicated - including changed data values, additions and deletions.

The first pivot table is the old data; the second is the new data.  The resulting output is at the bottom. And if the difference is within a threshold given by the user, I need to show those data that fall outside of the threshold.  And only visible fields should show up on the report. When I select a color, I should only see that color in each pivot table and the resulting report. The resulting data is replaced every time I select a different color.

Let's start with the easy bits:

- the colouring can be done using conditional formatting
- the computation of differences can, if the field names match up with those in the pivot tables correctly, be done using GETPIVOTDATA on each table and wrapping each GETPIVOTDATA call in IFERROR( ..., 0).
  To turn the column headings into correct field names for the pivot tables you may need to do ="Sum of (-3) " & TheCellcontaining the column heading.

- "deleted" and "new" can be computed using formulas like IF(ISERROR(GETPIVOTDATA(....)),"deleted,"")

That leaves the problem of how to populate the row and column headings.

- you could update them manually

- otherwise a macro that loops through the PivotItems of the PivotFields concerned.

If you need further help on any part of this do come back.

It would be even easier to provide that help if we had access to an example workbook so that we can reference the correct field names etc.

I can't seem to upload a spreadsheet.  The data is in the tables below. I have the pivot table set so that the "Product" are in alphabetical order. The Products can change at anytime, which is why I need to know what was added and what was deleted.  Thank you for looking at this.  I have actually figured that it might be best if I create two VBA arrays from the data, compare the data in VBA, and print out the results. But I'm stuck now. My code is below also.

Here is the old data

Here is the new data (note, I changed this data a little, just to illustrate that the new data could change at anytime)

Sub CreateDataArray()

Dim pt As PivotTable

Dim rCell As Range
Dim rCol As Range
Dim rDataRng As Range
Dim rPgmsRng As Range
Dim rMonthsRng As Range
Dim RptRng, MonthText As String
Dim theDataArray, thePgmsArray, theMonthsArray As Variant
Dim i, j As Integer

With Sheets("OldSheet")
    Set pt = .PivotTables("OldPivot")
    Set rDataRng = pt.DataBodyRange
    Set rPgmsRng = pt.PivotFields("Product").DataRange
    Set rMonthsRng = pt.PivotFields("Values").DataRange
End With

ReDim theDataArray(rDataRng.Columns.Count + 1, rDataRng.Rows.Count)
ReDim thePgmsArray(rPgmsRng.Columns.Count)
ReDim theMonthsArray(rMonthsRng.Rows.Count)

Debug.Print rDataRng.Columns.Count, rDataRng.Rows.Count, rPgmsRng.Columns.Count, rMonthsRng.Rows.Count

' create the Product Names column

i = 0
For Each rCell In rPgmsRng.Columns
    theDataArray(i, 0) = rCell.Value
    i = i + 1
Next rCell

' create the rest of the data array

i = 0
j = 0
For Each rCol In rDataRng.Columns
    For Each rCell In rCol.Rows
        theDataArray(i, j + 1) = rCell.Value
        Debug.Print rCell.Address, i, j + 1, rCell.Value, theDataArray(i, j + 1)
        j = j + 1
    Next rCell
    j = 0
    i = i + 1
Next rCol

' Get the months headings

j = 0
For Each rCell In rMonthsRng.Rows
    theMonthsArray(j) = "'" & Right(rCell.Text, 6)   ' put a quote first, so that excel does not change this to a date
    Debug.Print theMonthsArray(j)
    j = j + 1
Next rCell

**** this is where I'm stuck, how do I get the month headings in (I can use this same code to create the "new data" array) and then how do I create the code to run thru a compare of the data and then print it?  *******

End Sub

Slightly confused by the tables you show.

If they are pivot tables I am surprised there are multiple rows for the same combinations e.g. B/Red and B/Yellow in the first table, and they don't appear to be sorted in the way you described.

The problem also seems to have changed, with colour as an additional row field.

The "changes" table will presumably also have to have a colour column and you will need a row per product/colour combination from either table. 

The GETPIVOTDATA formulas I suggested will need an additional pair of arguments for "Colour" and the colour cell on the row in question.

I'm struggling to have time to help you - being on vacation for a few days.
You're right that you can't upload a file to this forum.
You can provide a link to a file on a file-sharing website such as OneDrive or Dropbox.
That would make it easier to help you develop the solution.

One idea you might consider is creating a 3rd pivot table based on consolidating the other 2.
That will give you the combinations of product and colour from either table in a single range.
You could then copy the row labels to a new worksheet and build the table using my formulas to access the two original pivot tables; the third pivot table could then be removed.