Автофильтр для даты и времени

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

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

28.01.2014 17:49:55

Знаю что вопрос задавался неоднократно но поверхностное изучение гугла результата не дало, а задачу нужно решить срочно.
Итак задача отфильтровать данные вида "26.11.2013 15:30:01" при ручной установке автофильтра все работает но при попытке установить фильтр макросом получаю пустые данные! если потом зайти в фильтры и нажать Ok то все работает. Пример прилагаю.

Крос http://www.excelworld.ru/forum/10-8626-1

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

Post1401281452.xls (35 КБ)

KuklP

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

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

E-mail и реквизиты в профиле.

28.01.2014 22:19:42

Код

Sub test()
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row
    Range("A1:A" & LastRow).AutoFilter Field:=1, Criteria1:= _
        ">=" & Replace(CDbl(CDate("26.11.2013 15:35")), ",", "."), _
        Operator:=xlAnd, Criteria2:="<=" & _
        Replace(CDbl(CDate("26.11.2013 15:45")), ",", ".")
End Sub

Я сам - дурнее всякого примера! ...

Poltava Пользователь Сообщений: 2 Регистрация: 28.01.2014	#3 28.01.2014 23:14:27 Огромное спасибо, именно то что доктор прописал!