VBA how to store a filter value of a pivot table into a variable

[Matador_24]

Hello,

I have a code extracting values from a pivot table.
My main filter is called INVESTMENT NUMBER in the pivot table.
The information in that field is a short code in the format: XXXX.XX
When I generate the pivot table, there can be dozens of numbers in that field, normally I choose the INVESTMENT NUMBER(S) I want to include. I have a couple of questions, once that I choose the investments I want:
1. What code can I use to store the INVESTMENT NUMBER I choose? For instance, if I choose the investment: 38, I want the variable InvNumber to store 38.
2. In case I choose more than one investment (the ones I choose will always start with the same number before the dot), I want to isolate the number before the dot (.) and store it in the variable. For instance, If I choose together: 1834.01, 1834.11, 1834.23, I need that the value stored in the variable to be 1834 only.

Thanks in advance for the help,

Luis

 

[Matador_24]

Re: VBA how to store a filer value of a pivot table into a variable

Hello,

A little help over here will be appreciated,

Thanks!

 

[Matador_24]

Re: VBA how to store a filer value of a pivot table into a variable

Hello???

 

[Matador_24]

Re: VBA how to store a filer value of a pivot table into a variable

Hello,

Literally I spent all day trying to figure this out searching online but I do not get to find something exact.
So far, I am able to read the items in the field I want (YEAR) and I list the items in a sheet, with a Loop I can go through each.
However, currently the code is listing ALL items even tough not all of them are selected.
How can I modify the code to read only the items that are selected in the filter?

Sub Test3()


Dim YearContent As Long


Worksheets("sheet4").Activate
r = 1
With Worksheets("sheet3").PivotTables(1)
        Cells(r, 1) = .PivotFields("Year").Name
        For x = 1 To .PivotFields("Year").PivotItems.Count
            r = r + 1
            Cells(r, 1) = .PivotFields(2).PivotItems(x).Name
            YearContent = .PivotFields(2).PivotItems(x).Name
            MsgBox YearContent
        Next
End With


End Sub

Thanks!