Sub ЗапуститьАвтофильтрС01_06до06_06()
ActiveSheet.Range("$A$3:$T$5000").AutoFilter Field:=11, _
Criteria1:=">=01.06.2018", Operator:=xlAnd, Criteria2:="<=06.06.2018"
End Sub
и макрос не работает - не фильтрует выдает ничего - скрывает строки в диапазоне просто и не ищет диапазон дат. Почему? Вроде простая задача но факт Пример прилагаю
Мастерство программиста не в том, чтобы писать программы, работающие без ошибок. А в том, чтобы писать программы, работающие при любом количестве ошибок.
Тоже столкнулся когда-то с этой проблемой) Небольшое объяснение "для потомков") хоть это все и есть в справке. Эксель оперирует с датами как с числами. То есть 01.06.2018 для него 43252,00. То есть количество дней, которое прошло от 00.01.1900 (дата взятая за точку отсчета) Значение которое вы передаете в фильтр "01.06.2018" - имеет текстовый формат. Поэтому его сначала нужно преобразовать в дату DateValue("01.06.2018"), потом в число CDbl(DateValue и только потом "засунуть" в фильтр.