Darren Smith
Well-known Member
- Joined
- Nov 23, 2020
- Messages
- 631
- Office Version
- 2019
- Platform
- Windows
It`s filtering on Col 11 but it just hides all the data and does not filter???
[/CODE]
VBA Code:
[CODE=vba]Private Sub Filter_Jobs_By_Months_Click()
Dim Database(1 To 100, 1 To 15)
Dim My_Range As Integer
Dim colum As Byte
Dim ws As Worksheet
Dim qt As QueryTable
Application.ScreenUpdating = False
Set ws = ThisWorkbook.Worksheets("TGS JOB RECORD")
For Each ws In ActiveWorkbook.Worksheets
For Each qt In ws.QueryTables
qt.Refresh
Next qt
Next ws
ws.Range("A2").AutoFilter Field:=11, Criteria2:=Me.Months.Value
Application.ScreenUpdating = True
End Sub