Макрос: отфильтровать продажи за указанный период

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

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

24.12.2019 01:14:41

Доброй ночи, форумчане!

Помогите, пожалуйста, с макросом.
Исходные данные: таблица (1 столбец - Дата, 2 столбец - Продажи)

Задача- отфильтровать продажи за период 1-7 января 2019 г
Вот код, который должен отображать отфильтрованные строки, но не отображает ничего

Код

Sub MyFilter()
    Dim myRange As Range
    Dim dataValue As Date
    Set myRange = Sheets("Лист1").Range("a1:b11")
    myRange.AutoFilter
    
    dataValue = 1 / 7 / 2019
    myRange.AutoFilter field:=1, Criteria1:="<= dataValue"
End Sub

Прикрепленные файлы

date filter.xlsm (13 КБ)

Sceptic

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

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

24.12.2019 01:31:14

Доброй ночи.

Попробуйте такой вариант:

Код

Sub MyFilter()

    Dim myRange As Range
    Dim dataValue As Date
    Set myRange = Sheets("Лист1").Range("a1:b11")
    myRange.AutoFilter
    
    dataValue = #1/7/2019#    'дату надо обрамлять решётками
    myRange.AutoFilter Field:=1, Criteria1:="<=" & CLng(dataValue)    'в фильтр передаем переменную, преобразованную в число (и не берём ее в кавычки)

End Sub

Изменено: Sceptic - 24.12.2019 01:31:22

magus78 Пользователь Сообщений: 2 Регистрация: 23.12.2019	#3 24.12.2019 01:40:53 Работает! Sceptic, спасибо!