Selection.AutoFilter

[ZORRO2005]

Друзья,
VBA только учусь.
Решил сделать свой фильтр похожий на Расшир.фильтр
Пытаюсь смоделировать Фильтр-(Условие..)для 2-ух и более критериев.
Вопросы следующие:
1.Пытаюсь вместо Operator:=xlAnd подставить
=ActiveSheet.Range("J2").Value
не получается
'В коде видно где я застрял.

2.Хочу когда выбираю фильтр(Все)в ячейке С2 очищать содержимое "D2"
3.Было бы здорово если в D2:D12 автоматически обновлялись списки уникальных значений

Если не сложно подскажите где можно улучшить(оптимизировать) код
и как лучше реализовать идею выбора >2 критериев для одного столбца?

[SAS888]

Может Вам чем-то поможет вложенный фрагмент. Комментариев дать не могу.Сам я не пробовал.

[ZORRO2005]

SAS888 спасибо
Я нашел этот пример (Primer1.xls)

Почему,когда я заменяю

Const Crit1 As String = "DEF, LLC"
Const Crit2 As String = "FGH LTD."
Const Crit3 As String = "QRS INC."

на

Const Crit1 As String = Range("L2").Value
Const Crit2 As String = Range("L3").Value
Const Crit3 As String = Range("L4").Value

Возникает ошибка?(Primer2.xls)

[SAS888]

Потому, что константа - это константа, а у Вас константе назначается ссылка. Объявите переменные и будет счастье.

[ZORRO2005]

SAS888
Спасибо, получилось