помогите с фильтром и подсчётом количества значений

[kooleer]

Доброго времени суток друзья
помогите плз с такой проблемой:
у меня есть экселевский файл с датами и временем определённых событий.пытаюсь написать код, чтобы при введении с клавиатуры даты и времени начала и конца подсчитать количество событий за определённый временной промежуток
вот код:
Sub test()

Dim dn, dk As Date
dn = InputBox("")
dk = InputBox("")
Selection.AutoFilter Field:=9, Criteria1:=dn, Operator:=xlOr, _
Criteria2:=dk

Range("o1").Select
ActiveCell.FormulaR1C1 = "кол-во"
Range("o2").Select
ActiveCell.FormulaR1C1 = "=count(r1c[-5]:r[-9500]c[-5])"

End Sub
проблема в том что количество ситает только общее, а не отфильтрованное, знаки н >,< не воспринимет фильтр (что как раз мне надо) и не могу приципить время к дате
помогите кто чем может
зы:если нужен файл, то могу прикрепить
заранее премного благодарен

[VictorM]

зы:если нужен файл, то могу прикрепить
заранее премного благодарен

Здравствуйте!
Да, файлик не помешал бы. Кто знает, что у Вас там.

[kooleer]

вот выкладываю файлик
если появятся вопросы, отвечу

[VictorM]

Нда...файлик ничего не прояснил. Ни одной надписи, что за данные и что с ними делать.
Как я понял, основная проблема в работе с автофильтром - задании критерия поиска и подсчет отфильтрованных строк.
Очень рекомендую посмотреть вот этот ресурс Автофильтр & Расширенный фильтр , думаю, Вы найдете там многие ответы.

[kooleer]

Спасибо за ссылочку
но пытаюсь прописать так как там написано и выдаёт ошибку Runtime error '13' ((
я боюсь не правильно обьяснил в первом посте, что мне надо, попробую ещё раз:
1) написать код для фильтра, что бы фильтровал введёные с клавиатуры дату и время( например из файла: от 16.06.10 23:00 до 17.06.10 23:00)
2) что бы подсчитать количество отфильтрованных строк
я написал примечания в файле
посмотрите плз ещё раз

[nilem]

Если в Р2 записано время "от", в Р4 время "до", то количество событий за период

Код: Выделить всё

=СУММПРОИЗВ((K:K>=P2)*(K:K<=P4))

Таблицу сократил - не прикреплялась.

[kooleer]

Спасибо Вам большое, что откликнулись, но есть проблема:
у меня Ваша формула не работает, если пытаюсь менять исходные данные("от", "до"), просто копировать формулу, самому написать её, выдаёт ошибку - #ЧИСЛО!
Я так думаю, что это из-за того, что у меня версия экселя 2003, а у Вас более поздняя, хотя могу и ошибаться

блин так что же делать то????
HELP ME

[nilem]

СУММПРОИЗВ должна работать во всех версиях. Прикрепите свой файл с примерами ошибок.

[kooleer]

Выкладываю файлик с пояснениями

[nilem]

Странно, у меня работает (2007). Неужели зависит от версии?
На всякий случай посмотрите в желтых ячейках: при копировании адреса ячеек "от" и "до" не должны меняться, т.е. либо поправлять вручную, либо применить абсолютную адресацию.