VBA GetPivotData doesn't return a wanted 0

[mangelito]

Hi
I have this pivot issue that I'd like to have some help with.
I'm using VBA to write a macro that should pick values from a Pivot and put them in a table.

Say for example I am selling clothes. I can get a "Count of Clothes" using:

iVal = myWorkSheet.myPivot.GetPivotData("Count of Clothes")

This will put, say, 50 in the variable iVal.


I can also filter for shoes:

iVal = myWorkSheet.myPivot.GetPivotData("Count of Clothes", "Type", "Shoes")

This works great as long as there are shoes in the filtered Pivot. But if there are no shoes, the function seems to return 50 instead of 0.


How do I make the code to return a 0 please?
​

 

[BSALV]

I suppose there is an "on error resume next"-construction in your macro, otherwise the macro stops on this error.
So if you want 0 after this error, you could make something like this

on error resume next
......
iVal=0
iVal = myWorkSheet.myPivot.GetPivotData("Count of Clothes", "Type", "Shoes")

 

[mangelito]

I think I got it to work now.
Actually I did use "on error resume next" before, but now I have re-structured the code a bit and it seems to work.

Thank you!