Clearing Timeline and Slicer Filters

[stroffso]

Hi,

I have the below code which clears the slicer filters fine but for some reason isint working on the timeline filters. Would anyone know what I need to add to clear the timeline filters?

<code style="margin: 0px; padding: 0px; font-style: inherit; font-weight: inherit; line-height: 12px;">Dim cache As SlicerCache

For Each cache In ActiveWorkbook.SlicerCaches
cache.ClearManualFilter
Next cache</code>

 

[Kamolga]

Hi,

This code reset all filters, including timelines

[LEFT][COLOR=#101094][FONT=Consolas]Sub[/FONT][/COLOR][COLOR=#303336][FONT=Consolas] ResetFilters[/FONT][/COLOR][COLOR=#303336][FONT=Consolas]()[/FONT][/COLOR][COLOR=#303336][FONT=Consolas]
  [/FONT][/COLOR][COLOR=#101094][FONT=Consolas]On[/FONT][/COLOR][COLOR=#303336][FONT=Consolas] [/FONT][/COLOR][COLOR=#101094][FONT=Consolas]Error[/FONT][/COLOR][COLOR=#303336][FONT=Consolas] [/FONT][/COLOR][COLOR=#101094][FONT=Consolas]Resume[/FONT][/COLOR][COLOR=#303336][FONT=Consolas] [/FONT][/COLOR][COLOR=#101094][FONT=Consolas]Next[/FONT][/COLOR][COLOR=#303336][FONT=Consolas]
  [/FONT][/COLOR][COLOR=#101094][FONT=Consolas]For[/FONT][/COLOR][COLOR=#303336][FONT=Consolas] [/FONT][/COLOR][COLOR=#101094][FONT=Consolas]Each[/FONT][/COLOR][COLOR=#303336][FONT=Consolas] wrksheet [/FONT][/COLOR][COLOR=#101094][FONT=Consolas]In[/FONT][/COLOR][COLOR=#303336][FONT=Consolas] ActiveWorkbook[/FONT][/COLOR][COLOR=#303336][FONT=Consolas].[/FONT][/COLOR][COLOR=#303336][FONT=Consolas]Worksheets
    wrksheet[/FONT][/COLOR][COLOR=#303336][FONT=Consolas].[/FONT][/COLOR][COLOR=#303336][FONT=Consolas]ShowAllData [/FONT][/COLOR][COLOR=#858C93][FONT=Consolas]'This works for filtered data not in a table[/FONT][/COLOR][COLOR=#303336][FONT=Consolas]
    [/FONT][/COLOR][COLOR=#101094][FONT=Consolas]For[/FONT][/COLOR][COLOR=#303336][FONT=Consolas] [/FONT][/COLOR][COLOR=#101094][FONT=Consolas]Each[/FONT][/COLOR][COLOR=#303336][FONT=Consolas] lstobj [/FONT][/COLOR][COLOR=#101094][FONT=Consolas]In[/FONT][/COLOR][COLOR=#303336][FONT=Consolas] wrksheet[/FONT][/COLOR][COLOR=#303336][FONT=Consolas].[/FONT][/COLOR][COLOR=#303336][FONT=Consolas]ListObjects
      [/FONT][/COLOR][COLOR=#101094][FONT=Consolas]If[/FONT][/COLOR][COLOR=#303336][FONT=Consolas] lstobj[/FONT][/COLOR][COLOR=#303336][FONT=Consolas].[/FONT][/COLOR][COLOR=#303336][FONT=Consolas]ShowAutoFilter [/FONT][/COLOR][COLOR=#101094][FONT=Consolas]Then[/FONT][/COLOR][COLOR=#303336][FONT=Consolas]
        lstobj[/FONT][/COLOR][COLOR=#303336][FONT=Consolas].[/FONT][/COLOR][COLOR=#303336][FONT=Consolas]Range[/FONT][/COLOR][COLOR=#303336][FONT=Consolas].[/FONT][/COLOR][COLOR=#303336][FONT=Consolas]AutoFilter [/FONT][/COLOR][COLOR=#858C93][FONT=Consolas]'Clear filters from a table[/FONT][/COLOR][COLOR=#303336][FONT=Consolas]
        lstobj[/FONT][/COLOR][COLOR=#303336][FONT=Consolas].[/FONT][/COLOR][COLOR=#303336][FONT=Consolas]Range[/FONT][/COLOR][COLOR=#303336][FONT=Consolas].[/FONT][/COLOR][COLOR=#303336][FONT=Consolas]AutoFilter [/FONT][/COLOR][COLOR=#858C93][FONT=Consolas]'Add the filters back to the table[/FONT][/COLOR][COLOR=#303336][FONT=Consolas]
      [/FONT][/COLOR][COLOR=#101094][FONT=Consolas]End[/FONT][/COLOR][COLOR=#303336][FONT=Consolas] [/FONT][/COLOR][COLOR=#101094][FONT=Consolas]If[/FONT][/COLOR][COLOR=#303336][FONT=Consolas]
    [/FONT][/COLOR][COLOR=#101094][FONT=Consolas]Next[/FONT][/COLOR][COLOR=#303336][FONT=Consolas] [/FONT][/COLOR][COLOR=#858C93][FONT=Consolas]'Check next worksheet in the workbook[/FONT][/COLOR][COLOR=#303336][FONT=Consolas]
  [/FONT][/COLOR][COLOR=#101094][FONT=Consolas]Next[/FONT][/COLOR][COLOR=#303336][FONT=Consolas]
[/FONT][/COLOR][COLOR=#101094][FONT=Consolas]End[/FONT][/COLOR][COLOR=#303336][FONT=Consolas] [/FONT][/COLOR][COLOR=#101094][FONT=Consolas]Sub[/FONT][/COLOR][/LEFT]

 

[Kamolga]

Otherwise this code should take off the filters of your timelines only

Sub TimeLineFiltersOff()

 Dim cache As SlicerCache
   On Error Resume Next
        For Each cache In ActiveWorkbook.SlicerCaches
                      cache.ClearDateFilter
        Next cache
   On Error GoTo 0

End Sub