Set all filters in Workbook to exclude current month

Hi

Looking for some help, I have a workbook with several tables across several worksheets that I want to be able to set all tables to exclude the current months data. I can obviously manually go through each worksheet but is tiresome as I have to regularly switch between 'to date' data and 'to last month' data

I have a 'remove all filters' vba as below, but cannot work out how to modify to suit. Any help would be appreciated, thank you.

Sub Remove_Filters()
    Dim xAF As AutoFilter
    Dim xFs As Filters
    Dim xLos As ListObjects
    Dim xLo As ListObject
    Dim xRg As Range
    Dim xWs As Worksheet
    Dim xIntC, xF1, xF2, xCount As Integer
    Application.ScreenUpdating = False
    On Error Resume Next
    For Each xWs In Application.Worksheets
        xWs.ShowAllData
        Set xLos = xWs.ListObjects
        xCount = xLos.Count
        For xF1 = 1 To xCount
         Set xLo = xLos.Item(xF1)
         Set xRg = xLo.Range
         xIntC = xRg.Columns.Count
         For xF2 = 1 To xIntC
            xLo.Range.AutoFilter Field:=xF2
         Next
        Next
    Next
    Application.ScreenUpdating = True
 
End Sub

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between [code] [/code] tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Please see Forum Rule #2 about code tags and adjust accordingly. Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(Note: this change is not optional. As you are new I have done it for you today.)

Is all the data in Tables?
What column has the Date or Month?
What format is the date or month column?

Examples would help.

You will want to specify the date format (e.g. dd/mm/yyyy) as your helper is Stateside, where m/d/yyyy is the norm.

This should filter serial dates in column Q regardless of the date format as long as they are serial dates.

Sub Exclude_Current_Month_Filter()
    Dim ws As Worksheet, d1 As Long, d2 As Long
    d1 = Date - Day(Date) 'End of last month
    d2 = DateSerial(Year(Date), Month(Date) + 1, 1) 'Begining of next month
    For Each ws In Worksheets
        If ws.ListObjects.Count > 0 Then
            ws.ListObjects(1).Range.AutoFilter 'clear previous filer if any
            ws.ListObjects(1).Range.AutoFilter 17, "<=" & d1, xlOr, ">=" & d2 'Filter exclude current month column Q
        End If
    Next
End Sub