нужно отфильтровать все записи меньше текущего месяца с помощью vba

Question

У меня есть требование фильтровать записи меньше текущего месяца с использованием VBA.

ThisWorkbook.Sheets(1).Range("A:L").AutoFilter Field:=5, Criteria1:="<" & MonthName(Month(Date))

Я пробовал это, но не получил желаемого результата.

, пожалуйста, подскажите, как можно мы фильтруем необходимые данные с помощью VBA.

Answer 1

Меньше текущего месяца означает перед первым текущего месяца:

Sub Macro2()
    ThisWorkbook.Sheets(1).Range("A:L").AutoFilter Field:=5, Criteria1:="<3/1/2020", Operator:=xlAnd
End Sub

Выше указано для определенного c месяца / года. В общем:

Sub Macro2()
    Dim crit As String

    crit = "<" & DateSerial(Year(Now()), Month(Now()), 1)

    With ThisWorkbook.Sheets(1)
        .Range("A:L").AutoFilter Field:=5, Criteria1:=crit, Operator:=xlAnd
    End With
End Sub

До:

и после: