Как в существующий макрос добавить еще одно условие выборки?

[ХочуЗнать]

Основное направление освоения этой сложной задачи понял, буду дерзать.
Еще раз СПАСИБО за науку!

[DiemonStar]

Использовать здесь словари - перебор. Всё решается намного элегантнее:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Union([C3], [E3], [F3])) Is Nothing Then
    [БД].AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=[B5:I6], CopyToRange:=[A8:G8]
  End If
End Sub

единственное но - пара скрытых строк.

[Hugo121]

Ну это кому проще, а у кого и не работает...
Если "май" поменять на "may" - тогда конечно... Но это не соответствует условиям задачи.
Вот поэтому и словарь

[ХочуЗнать]

Добрый день!
Ребят!
Если название месяцев в Е3 на украинском, то мне думается тоже должно работать. Вот только надо заменить формулу ="<" &EDATE(A6;1), в ячейке В6. Которая выдает ошибку #ИМЯ. Наверное такой формулы в 2003 нету. А чем ее заменить не знаю.
Спасибо за внимание

[Hugo121]

Есть такая в 2003 - у меня тут 2003.
Но работает как-то нестабильно. Помню работало, сейчас снова открыл файл - не работает. Открыл ещё раз - работает
И выдавала по цепочке ошибку, пока название месяца не написал на английском.

[ХочуЗнать]

А в меня в 2003 на русском , не работает совсем. Причем, выдает ошибку ЗНАЧЕНИЕ , в ячейках справа и слева от В6. А вот на украинском - этих двух ошибок нету.Только #ИМЯ в В6.

[Hugo121]

EDATE в русском ДАТАМЕС
И нужно подключить пакет анализа!

[ХочуЗнать]

Как я иговорил, заработало

[ХочуЗнать]

Игорь!
Это не существенно, но если не лень.
Как, например ваш макрос, переделать на запуск через кнопку?

[Hugo121]

Убираете условие If InStr("$C$3$E$3$F$3", Target.Address) Then - end if, ставите на кнопку.
Но не вижу выгоды