Uploaded December 2019 | Updated September 2026, 1 week ago

---

How to automate filtering of data for current month, current year, last month or last year using VBA.
Here's the complete VBA code:
Option Explicit

Sub showCurrentMonthData()
Sheet1.Range("A1:C15").AutoFilter field:=3, Criteria1:=xlFilterThisMonth, Operator:=xlFilterDynamic
End Sub

Sub showAllData()
On Error Resume Next
ActiveSheet.showAllData
Range("A1").AutoFilter
End Sub

Sub showCurrentYearData()
Sheet1.Range("A1:C15").AutoFilter field:=3, Criteria1:=xlFilterThisYear, Operator:=xlFilterDynamic

End Sub

Sub showLastYearData()
Sheet1.Range("A1:C15").AutoFilter field:=3, Criteria1:=xlFilterLastYear, Operator:=xlFilterDynamic

End Sub

Sub showLastMonthData()
Sheet1.Range("A1:C15").AutoFilter field:=3, Criteria1:=xlFilterLastMonth, Operator:=xlFilterDynamic

End Sub