VBA How to extract specific values from pivot table

[Matador_24]

Hello,

I am starting to learn how to extract data from pivot tables. However, I have found some easy examples online but unfortunately I have a complex pivot table that constantly changes of number of rows and columns due to the month and year periods changing. Thus, I need to extract specific values from the pivot table using the first three columns (fields), I will send this specific values to another sheet. I can not use vlookup because the number of columns change constantly. Thus, I would like to use VBA to extract the below values from the pivot table, I am asking three different values so that I can see how to use the different fields considering different months, years and total/grand total combinations so that I can see the difference among them.

Could you please help me out with the code to extract the amount values in:
Blue:
I want to be able to extract and SAVE into a variable $ 1,666.58 from the table; thus, using 10003 (Account number field) and considering grand total as column.
Green:
I want to be able to extract and save $ 609,859.36 from the table; thus using 20000 - Liabilities Total (Account GL field) and considering 2016 total as column.
Red
I want to be able to extract $ 626.54 from the table by using Expenses Operating (Account name field) and considering the period month 3 of year 2016.

Thanks for your help in advance! here is the table:

Sum of Amount Period Year Period Month 2,015 2,015 Total 2,016 2,016 Total 2,017 2,017 Total Grand Total Account GL Account Number Account Name 12 3 12 3 6 10000 - Assets 10002 Asset - Cash 627,507.78 627,507.78 (133,762.24) (39,504.92) 77,296.43 (102,026.70) (101,441.51) (203,468.21) 501,336.00 10003 Asset - Accounts Receivable 15,894.87 15,894.87 (17,155.42) 832.42 (8,658.77) (3,759.14) (1,810.38) (5,569.52) 1,666.58 10004 Asset - Prepaid Expense 55,427.37 55,427.37 93,656.97 (6,789.58) 4,809.06 (164.44) 29,220.36 29,055.92 89,292.35 10006 Asset - Building/Land 9,301,947.73 9,301,947.73 4,679.75 (186,662.25) (1,011,891.22) 6,889.35 5,960.00 12,849.35 8,302,905.86 10008 Asset - Accumulated Depreciation (1,618,609.59) (1,618,609.59) (39,487.03) 154,436.70 35,975.64 (35,167.67) (35,167.67) (70,335.34) (1,652,969.29) 10000 - Assets Total 8,382,168.16 8,382,168.16 (92,067.97) (77,687.63) (902,468.86) (134,228.60) (103,239.20) (237,467.80) 7,242,231.50 20000 - Liabilities 20001 Liabilities - Accounts Payable (71,152.00) (71,152.00) (203.40) 38,090.96 11,785.46 (7,040.08) 14,455.96 7,415.88 (51,950.66) 20002 Liabilities - Deferred Income (23,659.97) (23,659.97) (2,314.22) (1,000.00) (265.93) (1,421.98) (59.93) (1,481.91) (25,407.81) 20003 Liabilities - Mortgage (562,033.87) (562,033.87) 562,033.87 0.00 20004 Liabilities - Other Payable (357,380.06) (357,380.06) 5,553.13 2,157.89 36,305.96 4,297.67 5,759.59 10,057.26 (311,016.84) 20000 - Liabilities Total (1,014,225.90) (1,014,225.90) 3,035.51 39,248.85 609,859.36 (4,164.39) 20,155.62 15,991.23 (388,375.31) 30000 - Equity 30001 Equity - Partner Capital 67,270.72 67,270.72 67,270.72 30003 Equity - Total Capital Contributions (15,333,959.47) (15,333,959.47) (15,333,959.47) 30004 Equity - Total Accumulated Earnings 7,898,746.49 7,898,746.49 89,032.46 38,438.78 (443,008.10) 138,392.99 83,083.58 221,476.57 7,677,214.96 30005 Equity - Total Distributions 0.00 0.00 0.00 735,617.60 0.00 0.00 735,617.60 30000 - Equity Total (7,367,942.26) (7,367,942.26) 89,032.46 38,438.78 292,609.50 138,392.99 83,083.58 221,476.57 (6,853,856.19) 40000 - Op Revenues 40001 Total Revenue (316,411.46) (316,411.46) (78,844.98) (68,777.70) (300,071.68) (68,974.25) (69,003.51) (137,977.76) (754,460.90) 40002 Other Revenue (12,330.82) (12,330.82) (643.18) (873.46) 89,676.97 (2,090.85) (2,098.41) (4,189.26) 73,156.89 40000 - Op Revenues Total (328,742.28) (328,742.28) (79,488.16) (69,651.16) (210,394.71) (71,065.10) (71,101.92) (142,167.02) (681,304.01) 45000 - Other Revenue 45002 Other Revenue - Gain on Investment - Realized (921,988.66) (921,988.66) 45000 - Other Revenue Total (921,988.66) (921,988.66) 50000 - Op Expenses - Recoverable 50001 Expense - Administrative 4,571.13 4,571.13 671.15 1,335.36 4,257.98 1,360.60 1,237.13 2,597.73 11,426.84 50002 Expenses - Operating 4,508.72 4,508.72 626.54 100.00 1,033.03 584.92 203.00 787.92 6,329.67 50000 - Op Expenses - Recoverable Total 9,079.85 9,079.85 1,297.69 1,435.36 5,291.01 1,945.52 1,440.13 3,385.65 17,756.51 <tbody> </tbody>

<tbody>
</tbody>

 

[Roderick_E]

Are the names of these rows and columns always going to be what you're looking for? If so you could look for the row/column where it appears and then go from there.
This function returns the cell address of the UNIQUE string you're looking for.

Public Function findany(str As String, wsh As String) 'string and sheet name
Application.Volatile
On Error Resume Next
findany = 0
findany = ActiveWorkbook.Sheets(wsh).Cells.Find(What:=str, After:=ActiveCell, LookIn:=xlValues, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, _
        MatchCase:=False, SearchFormat:=False).Address
findany = ThisWorkbook.Sheets(wsh).Cells.Find(What:=str, After:=ActiveCell, LookIn:=xlValues, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, _
        MatchCase:=False, SearchFormat:=False).Address
Resume Next
End Function

 

[Matador_24]

Hello Roderick,

No, the rows and columns will change depending on the data of the pivot table, it is possible that sometimes there will be more rows (account numbers) and/or sometimes more columns (months), that is why, I can not use fixed row or column numbers and I prefer to extract using the row and column title regardless of the position of such value...

 

[Roderick_E]

Hello Matador, my findany is looking for a string you define; such as a column title. Once you have that you can determine where the data you want to extract relative to the column/row titles.

 

[hollami]

Is it possible to update a specific field in a pivot table and then save it to the data source location? For example a Pass /Fail field

 

[Roderick_E]

Is it possible to update a specific field in a pivot table and then save it to the data source location? For example a Pass /Fail field

A pivot table is build from a data set. All fields on the pivot table come one way another from the data set. So in short that answer is no.

 

[Matador_24]

Hello Roderick,

Thanks for your help. However, I would like to use a way to extract data using the pivot table fields. For instance, I found the way to extract the yearly totals in my example above using the 'Account Number'

This is an example of the code that worked:

LngValue = ActiveSheet.PivotTables(1).GetData("'Sum of Amount' 10002 2,016 Total")

Now the issue is that I can only extract the totals, meaning 2,015 Total, 2,016 Total, 2,017 Total and Grand Total columns values, which is fine because those are part of the data I want to extract, However, I need to extract the monthly info as well, I have tried replace in the example above: 2,016 Total by 2016 - 6 for instance but it shows error.... any idea how to use that code to extract the months?

Thanks!

Luis

 

[Matador_24]

Hello,

One update, after searching and testing, I had this code working:

LngAccount = ActiveSheet.PivotTables(1).GetPivotData("Sum of Amount", "Account Number", "10003", "Period Year", "2,016", "Period Month", "3")

However, when I try to use a variable it shows an error:

Dim LngAccount as Long
LngAccount = 10003
MsgBox "xx" & LngAccount & "xx"
LngValue = ActiveSheet.PivotTables(1).GetPivotData("Sum of Amount", "Account Number", LngAccount, "Period Year", "2,016", "Period Month", "3")

Does anybody know how to use a variable with the above code??????
note that the result of the msgbox is xx10003xx, meaning that the value of LngAccount is 10003

Thanks

Luis

 

[Matador_24]

Hello,

Some help here please!

Many thankssssssssssssss!

 

[Roderick_E]

Hello,

One update, after searching and testing, I had this code working:

LngAccount = ActiveSheet.PivotTables(1).GetPivotData("Sum of Amount", "Account Number", "10003", "Period Year", "2,016", "Period Month", "3")

However, when I try to use a variable it shows an error:

Dim LngAccount as Long
LngAccount = 10003
MsgBox "xx" & LngAccount & "xx"
LngValue = ActiveSheet.PivotTables(1).GetPivotData("Sum of Amount", "Account Number", LngAccount, "Period Year", "2,016", "Period Month", "3")

Does anybody know how to use a variable with the above code??????
note that the result of the msgbox is xx10003xx, meaning that the value of LngAccount is 10003

Thanks

Luis

LngAccount = "xx" & 10003 & "xx" ???