macro to refresh pivot table and reapply filter

[JoaoGabriel]

How do I make a macro to update the pivot table and keep the filter selecting all values except #N/D as in the images below? Thanks in advance

I inserted a new row and updated the pivot table, but the value 20 should be selected in the filter

 

[t0ny84]

This should get you started, you can add a button to the sheet or call it on open.

Sub UpdatePivotTable()
    Dim ws As Worksheet
    Dim pt As PivotTable
    Dim pf As PivotField
    Dim pi As PivotItem

    ' Set the worksheet with your pivot table
    Set ws = Worksheets("YourSheetName")

    ' Set the pivot table
    Set pt = ws.PivotTables("YourPivotTableName")

    ' Set the pivot field with the filter
    Set pf = pt.PivotFields("YourFilterFieldName")

    ' Clear all filters first
    pf.ClearAllFilters

    ' Loop through pivot items and exclude #N/D
    For Each pi In pf.PivotItems
        If pi.Name <> "#N/D" Then
            pi.Visible = True
        Else
            pi.Visible = False
        End If
    Next pi

    ' Update the pivot table

    pt.RefreshTable
End Sub

t0ny84