В качестве критериев фильтрации использую значения ячеек с другого листа:
При попытке фильтрации выдает ошибку. Обычно этот метод работает. В этом можно убедиться если в файле-примере поменять в коде "Расхождения" на "Расхождения 2". На листе "Расхождения 2" схожие данные. При этом ошибки там не возникает.
Код |
---|
With Sheets("Расхождения") datapi = Sheets("Макрос").Range("B3") - 1 datai = Sheets("Макрос").Range("F5") For u = 1 To .UsedRange.Columns.Count If .Cells(1, u).Value Like "Дата учета" Then .Range("A:X").AutoFilter Field:=u, Criteria1:= _ "<=" & CDbl(CDate(datapi)), Operator:=xlAnd, Criteria2:=">=" & CDbl(CDate(datai)) End If Next End With |