VBA automatisch selecteert waarde met 0 in de slicer

[Kirana2014]

Beste allemaal,
Ik wil de slicer automatisch selecteren met waarde = 0 wanneer de draaitabel wordt vernieuwd.
als in de draaitabel geen waarde met totaal = 0 aanwijzing het filter van de slicer uit, iemand die weet hoe hij dit moet laten werken?
Bedankt voor uw hulp / alternatieve oplossingsideeën.

 

[JEC.]

Ik denk zoiets

Sub ververs()
 With ActiveWorkbook
    With .Sheets(1).PivotTables("PivotTable2")
           .PivotCache.Refresh
    End With
    With .SlicerCaches("Slicer_Amount")
      For i = 1 To .SlicerItems.Count
        If .SlicerItems(i).Value = 0 Then
          .SlicerItems(i).Selected = True
         Else
          .SlicerItems(i).Selected = False
        End If
      Next
        If .VisibleSlicerItems.Count = 0 Then .ClearManualFilter
    End With
 End With
End Sub

 

[snb]

Sub M_snb()
  Sheet1.PivotTables(1).RefreshTable
    
  For Each it In ThisWorkbook.SlicerCaches(1).SlicerItems
    it.Selected = it.Name = "0"
  Next
End Sub

 

[pixcel]

Vervang de twee bronwaarden voor product A die nu allebei nul zijn eens in -10 en 10 en ververs.
Wat wil je dat er nu gebeurt?

Ik denk dat gebruikers die naar je pivot en slicer kijken denken dat ze Sum of Amount gaan slicen, maar dat is niet zo: ze slicen de bronwaarden. Lijkt me verwarrend.