Фильтр Года датируется динамически каждый раз - VBA Macro

Question

Я должен фильтровать данные за один год каждый раз, когда запускаю макрос. Но я определил переменные для диапазона дат. но не удалось поставить> = и < = значения с переменной в критериях фильтра.

Sub OneYear() 
ActiveSheet.AutoFilterMode = False 
Cells.Select 
Range("E1").Activate 
Selection.AutoFilter 

Dim FrmTime As Date 
FrmTime = Now() - 365 

Dim ToTime As Date 
ToTime = Now() 

ActiveSheet.Range("$A$1:$AJ$2621").AutoFilter Field:=6, Criteria1:=ToTime, Operator:=xlAnd, Criteria2:=FrmTime 

Range("A1").Select 

End Sub

Answer 1

Поместите свой поиск в кавычки:

criteria1: = "<= " & ToTime 

Сделайте это для каждого из ваших переменных.

Также попробуйте использовать кнопку записи макроса, а затем вручную сделайте то, что вы хотите. Это дало бы вам подсказки, необходимые для правильного ответа.