Retrieve Pivot field selected items 2

[ETID]

Is there a way to pass only the items that are selected / checked, from a pivotlist, to an array?

Thanks In advance.

 

[SkipVought]

ETID,

Test the Visible property of the PivotItem.

Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com

 

[xlbo]

From Skip's suggestion:
Summat like:

incr = 0
For each pvtItem in pivotfields("PFName&quot
if pvtItem.visible = true then
pvtItemArr(incr) = pvtItem
incr = incr + 1
else
end if
next

Rgds
Geoff
"Some cause happiness wherever they go; others whenever they go."
-Oscar Wilde

 

[ETID]

Got a no go here...
get object doesn't support this property or method on the line that reads...

For Each PivotItem In Sheets("Pivot_open_files&quot.PivotTables("PivotTable1&quot.PivotFields("Bureau / Organization&quot

wha di do wrong?
'----------------------------------------------
Sub return_checked_items()
Dim pvtitemarr(100)

incr = 0
For Each PivotItem In Sheets("Pivot_open_files&quot.PivotTables("PivotTable1&quot.PivotFields("Bureau / Organization&quot
If PivotItem.Visible = True Then
pvtitemarr(incr) = PivotItem
incr = incr + 1
Else
End If
Next


End Sub

 

[SkipVought]

Try...

For Each PivotItem In Sheets("Pivot_open_files").PivotTables("PivotTable1").PivotFields("Bureau / Organization").PivotItems

Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com

 

[ETID]

Sorry xlbo...tried to "STAR" you too, but page will not let me.

 

[ETID]

What the Hey....now it worked


Thanks again