Сортировка по периоду

[Proton-x]

Подскажите пожалуйста!!! Дано: Столбец с произвольными датами формата дд.мм.гггг. Как на основании данных из этого столбца отфильтровать строки по дате с периодом равным определенному месяцу, кварталу? или хотя-бы просто от определенной даты до определенной даты?

[IgorGO]

в вопросе есть ответ: навесить на данные фильтр, потом есть фильт по условию, выбрать по колонке больше такой-то даты и меньше такой-то даты и станет видно только то, что выбрано.

[Proton-x]

Да, все действительно так, извиняюсь тупанул малость. Тогда есть еще вопрос можно-ли сделать это с помощью формы с двумя текстовыми полями для ввода данных, т.е начала и конца диапазона дат, а критерий отбора чтобы был уже прописан в макросе?

[Proton-x]

Перефразирую вопрос. Как можно реализовать это с помощью VBA?

[IgorGO]

И без перефразировки вопрос был понятен.
Непонятно где тут выгрыш в функциональности.
Ясно что надо написать код, который сделает тоже самое, что уже может делать фильтр. Где здесь дополнительные удобства в эксплуатации листа? Вот что не понятно, поэтому и отвечать не особо интересно.

[Proton-x]

Большое спасибо что отвечаете. Выйгрыш в данном вопросе в том что документ заполняет женщина в "годах" и всякого рода фильтры с их критериями вводят ее в полный ступор, вот и хотелось бы облегчить ей задачу прикрутив кнопку на которую она нажмет и выпадет форма с двумя полями в которые она введет начальную и конечную даты нажмет окей и произойдет фильтрация. На самом деле в этом документе не так много и надо фильтровать всего 5 кнопок 4 без дополнительных условий я уже сделал, а вот последнюю никак. Надеюсь на ваше понимание.

[КаМММ]

Selection.AutoFilter Field:=(номер столбца), Criteria1:=">=" & Первая дата, Operator:=xlAnd, Criteria2:="<=" & Вторая дата

А так пробовал?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = [B1].Address Or Target.Address = [C1].Address Then Selection.AutoFilter Field:=3, Criteria1:=">=" & [B1], Operator:=xlAnd, Criteria2:="<=" & [C1]
End Sub

Или так (даты в ячейках В1 и С1 столбец сортировки "С" третий Код вставить в модуль листа)

[Proton-x]

KaMMM ваш способ не подходит для решения этой задачи, после ввода первого критерия отбора происходит фильтрация по непонятному критерию и ничего не отфильтровывается-пустые строки или я туплю, хотелось бы привязаться как нидудь к выпадающей форме, с двумя полями для ввода. что-то типа этого:
If Target.Address = [userform1.textbox1.text].Address Or Target.Address = [userform1.textbox2.text].Address Then Selection.AutoFilter Field:=3, Criteria1:=">=" & [userform1.textbox1.text], Operator:=xlAnd, Criteria2:="<=" & [userform1.textbox2.text]
End Sub

я понимаю что это в корне неверно но для наглядности...

[EducatedFool]

Нажмите кнопку "Запуск формы", после чего измените значение в одном из полей, завершая ввод клавишей Enter.

В диапазоне a2:a14 останутся видимыми только те строки, значения в которых соответствуют заданным критериям.

[Proton-x]

спасибо большое, на первый взгляд это то что нужно, завтра буду тестировать, еще раз огромное спасибо!!!