Adding comments based on a filter in a pivot table

[Javi A]

Hi there!

I'd like toknow how is possible to make dynamic comments based on a filter in a pivottable by using a Macro or VB.

Thank you!

 

[Mike Blackman]

Re: Adding comments based on a filter in apivot table

Hi Javi,

Are you looking for something like this?

Sub UpdateComment()

    Dim Pvt As PivotTable
    Dim Arr()
    Dim Item As Long
    Dim CommentText As String
    
    Set Pvt = Sheet4.PivotTables("PivotTable1")
    Arr = Pvt.PageRangeCells
    CommentText = "Filter Values are:" & vbCrLf
    
    For Item = LBound(Arr) To UBound(Arr)
        CommentText = CommentText & Arr(Item, 1) & ": " & Arr(Item, 2) & vbCrLf
    Next Item
    
    Range("F10").Comment.Text CommentText

End Sub

 

[Javi A]

Re: Adding comments based on a filter in apivot table

First ofall, thank you for your macro.

I’d like tounderstand and translate this to my Excel File. I’ve got this:

The Program(cell A1, fo example) gives you the choice to select in cell “C2” diferent items. And on cell “H4”,based on what you select, you will have comments for each option of the filter.


Is thatwhat your macro execute?


Thank youvery much & have a good one!