Установить значение для фильтра

bulgakov Пользователь Сообщений: 160 Регистрация: 02.05.2015	#1 29.04.2016 11:16:28 Добрый день! Подскажите как макросом установить значение фильтра, в моем случае мне надо выделить текущий месяц xlFilterValues, Criteria2:=Array(что тут писать?) Изменено: bulgakov - 29.04.2016 11:16:47

Игорь Пользователь Сообщений: 3679 Регистрация: 23.12.2012	#2 29.04.2016 11:20:22 Запишите код установки фильтра макрорекордером, покажите полученный код. Тогда вам подскажут, как вместо фиксированного значения подставить аналогичное для текущего месяца

bulgakov

Пользователь

Сообщений: 160 Регистрация: 02.05.2015

29.04.2016 12:03:03

Код
ActiveSheet.Range("$A$4:$BM$2049").AutoFilter Field:=2, Operator:= _ xlFilterValues, Criteria2:=Array(1, "4/28/2016")

Изменено: bulgakov - 29.04.2016 12:03:28

Андрей VG

Пользователь

Сообщений: 11927 Регистрация: 22.12.2012

Excel 2016, 365

29.04.2016 21:19:43

Доброе время суток
Поскольку примера так и не было приложено, то вариант для умной таблицы.

Код

Public Sub setCurrentMonthFilter()
    Dim pLO As ListObject
    Set pLO = ActiveSheet.ListObjects("Календарь")
    pLO.Range.AutoFilter Field:=1, Operator:=xlFilterValues, _
        Criteria2:=Array(1, Format$(Date, "mm\/01\/yyyy"))
End Sub

Успехов.