Месяц фильтра отразить на другом листе.

[valerij]

Всем привет, давно не спилкувались.
Подскажите!!
Как при выборе в фильтре Листа2 - месяца, имя месяца отразится в Листе3 в яч. F1 и запустится макрос(в листе или в модуле)
Спасибо.

[Step_UA]

Какой месяц должен отразится в ячейке F1 листа3 при выборе в фильтре 2-х или более месяцев?

[Hugo121]

Может делать наоборот - юзер на втором листе выбирает из списка месяц - первый лист макросом соответственно фильтруется.

[valerij]

Сообщение от Step_UA

Какой месяц должен отразится в ячейке F1 листа3 при выборе в фильтре 2-х или более месяцев?

Там как пример три месяца, а в оригинале все 12.
Выбрал в фильтре Январь, на листе3 в яч. ф1 появится имя Январь и т. д.
и запустится макрос.
Всегда выбирается только один из 12 месяцев - это для макроса, если выбрано > одного месяца, макрос не запускается.

Сообщение от Hugo121

Может делать наоборот - юзер на втором листе выбирает из списка месяц - первый лист макросом соответственно фильтруется.

Тоже класс, вишь я об этом и не подумал, пожалуй так ещё лучше, но один фиг я не знаю как...

[Hugo121]

Валерий, Вы так и не ответили на вопрос Step_UA

[valerij]

Сообщение от Hugo121

Валерий, Вы так и не ответили на вопрос Step_UA

Я ответил, но может я его не понимаю?
Но подправил, кажись понял вопрос.

[Step_UA]

Сообщение от valerij

Выбрал в фильтре Январь, на листе3 в яч. ф1 появится имя Январь и т. д.

В фильтре можно выбрать несколько месяцев одновременно. Например январь, март и февраль ...
Один из вариантов реализации способа, предложенного Hugo121

[valerij]

Сообщение от Step_UA

В фильтре можно выбрать несколько месяцев одновременно. Например январь, март и февраль ...
Один из вариантов реализации способа, предложенного Hugo121

ОК!!!
Спасибо.
Пошёл разбираться.

з. ы.
я за это

январь;февраль;март;апрель;май;июнь;июль;август;сентябрь;октябрь;ноябрь;декабрь

в ВС совсем забыл.

[IgorGO]

Валера, повторюсь... невозможно забыть того, чего ни когда не знал

[valerij]

Сообщение от IgorGO

Валера, повторюсь... невозможно забыть того, чего ни когда не знал

Игорь, когда тебе стукнет под 70, я у тебя, тогда спрошу - знал, забыл ...

Сообщение от Step_UA

Один из вариантов реализации способа, предложенного Hugo121

Step_UA
Я не знаю почему(возможно, что даты в оригинале введены через форму), но при переносе в основной файл, работал не правильно, прятал все месяца, причём так, что вернуть всё на зад, я не мог.
Хорошо, что всегда делаю копии.
В итоге так получилось, красным изменение.

Месяц;Январь;Февраль;Март;Апрель;Май;Июнь;Июль;Август;Сентябрь;Октябрь;Ноябрь;Декабрь

Private Sub Worksheet_Change(ByVal Target As Range)
If [f1] = "Месяц" Then Sheets("Расход горючего").Range("d3").CurrentRegion.AutoFilter Field:=4: GoTo 1
    If Not Application.Intersect(Target, [f1]) Is Nothing Then
        Sheets("Расход горючего").Range("d3").CurrentRegion.AutoFilter Field:=4, Criteria1:= _
        20 + Month("1 " & [f1]), Operator:=xlFilterDynamic
            ' Запуск макроса или выполнение необходимых действий
    End If
1: [a20].Activate
End Sub