Excel Pivot Table Function

I would like someone to write a function for me along the lines of the following.

1. It is a worksheet function

2. It returns a string showing the selected items in a PAGE FIELD.

I tried to write the function as follows:

Public Function GetPortfolios() As String

Dim rng As Range

Set rng = [url removed, login to view]

Dim pvt As PivotTable

Set pvt = [url removed, login to view](1)

Dim pvtFld As PivotField

Set pvtFld = [url removed, login to view]("Portfolio")

Dim pvtItem As PivotItem

For Each pvtItem In [url removed, login to view]

If [url removed, login to view] Then

GetPortfolios = GetPortfolios & [url removed, login to view] & " "

End If


End Function

Given the attached screen shot, I would expect it to return:


However, it didn't work as expected. No pvtItem in the [url removed, login to view] collection comes up as visible, so the function return value is blank.

Can someone write a function which does behave as expected.

## Deliverables

1) VBA function code delivering functionality described above.

3) All deliverables will be considered "work made for hire" under U.S. Copyright law. Buyer will receive exclusive and complete copyrights to all work purchased. (No GPL, GNU, 3rd party components, etc. unless all copyright ramifications are explained AND AGREED TO by the buyer on the site per the coder's Seller Legal Agreement).

## Platform

Windows XP, Office 2000


Skills: PHP

See more: hire a vol, end vba, vol, pivot table excel, office vba, excel vba and pivot table -- 2, excel PIVOT, excel pivot table, excel function, excel portfolio, write shot, vba function, php pivot, pivot vba, excel vba range table, pivottable php, vba range table, excel vba function, pivot table excel vba, php table excel, php function write, vba excel range, excel pivot table vba, excel vba range, vba string

About the Employer:
( 8 reviews ) United Kingdom

Project ID: #3395826

Awarded to:


See private message.

$5 USD in 1 day
(49 Reviews)