Jurgen2807
Gebruiker
- Lid geworden
- 27 jul 2011
- Berichten
- 177
Hallo,
Ik heb een dashboard met diverse draaigrafieken. Bij de fte's heb ik het aantal decimalen op 2 gezet. En bij contracturen op 0 decimalen. Echter als ik op het formulierbesturingselement druk waar alle filters weer gereset worden, dan veranderd mijn getalnotatie steeds. Als ik het filter van de slicer of de filters van meerdere slicers weghaal, dan gaat dit wel goed.
Hoe kan ik dit oplossen?
Hieronder de code die gekoppeld is aan het formulierbesturingselement
Public Sub Reset_filters_ActiveSheet()
Dim slcr As SlicerCache
Dim slc As Slicer
Application.ScreenUpdating = False
For Each slcr In ActiveWorkbook.SlicerCaches
For Each slc In slcr.Slicers
If slc.Shape.Parent Is ActiveSheet Then
If slcr.FilterCleared = False Then
slcr.ClearManualFilter
Exit For
End If
End If
Next slc
Next slcr
Application.ScreenUpdating = True
End Sub
Ik heb een dashboard met diverse draaigrafieken. Bij de fte's heb ik het aantal decimalen op 2 gezet. En bij contracturen op 0 decimalen. Echter als ik op het formulierbesturingselement druk waar alle filters weer gereset worden, dan veranderd mijn getalnotatie steeds. Als ik het filter van de slicer of de filters van meerdere slicers weghaal, dan gaat dit wel goed.
Hoe kan ik dit oplossen?
Hieronder de code die gekoppeld is aan het formulierbesturingselement
Public Sub Reset_filters_ActiveSheet()
Dim slcr As SlicerCache
Dim slc As Slicer
Application.ScreenUpdating = False
For Each slcr In ActiveWorkbook.SlicerCaches
For Each slc In slcr.Slicers
If slc.Shape.Parent Is ActiveSheet Then
If slcr.FilterCleared = False Then
slcr.ClearManualFilter
Exit For
End If
End If
Next slc
Next slcr
Application.ScreenUpdating = True
End Sub