Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Pivottable code problem
Hi,
I am having a problem with my pivottable code. What I want to do is show all items for which a certain field is blank. I want it to be able to update and continue filtering with a single macro. My code sets all items in the field to be invisible and then makes the (blank) items visible. I came up with the initial code by recording a macro, but the default macro action individually sets each tiem. Since the specific items will keep changing (they are dates). I need to set items to be invisible without knowing beforehand what they are. So, without further ado, my code: Private Sub CommandButton1_Click() Dim x As Integer, itemNum As Long 'creates a pointer to pivottable "unreconciled" or whatever its name will end up being Dim URPivot As PivotTable Set URPivot = ActiveSheet.PivotTables(1) 'Refresh the pivottable URPivot.PivotCache.Refresh 'reset the field item filter itemNum = URPivot.PivotFields("Date Invoiced").PivotItems.Count With URPivot.PivotFields("Date Invoiced") For x = 0 To itemNum - 1 .PivotItems(x).Visible = False #########exception!!!!########## Next x .PivotItems("(blank)").Visible = True End With End Sub So the problem is on the line where I noted the exception, it crashes and I cant figure out why. Any ideas? Thanks! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Pivottable code problem | Excel Discussion (Misc queries) | |||
How to have a Macro skip code if PivotTable/PivotField is not there | Excel Programming | |||
Pivottable Problem | Charts and Charting in Excel | |||
Pivottable problem | Excel Programming | |||
Streamline PivotTable creation code | Excel Programming |