2010 - [решено] Сохранение критериев автофильтра в ячейке

[Delirium]

На листе выделяем заголовки - Автофильтр. В фильтре выбираем, например, 3 значения из 1000(например, мы выбрали "Запись1", "Запись2", "Запись3"). Жмем ОК, выводятся отфильтрованные значения.

В VBA это выглядит как



Код:

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

ActiveSheet.Range("$A$1:$C$36").AutoFilter Field:=1, Criteria1:="=Запись1", Operator:=xlOr, Criteria2:="=Запись2"

и т.д.

Вопрос в следующем: Как выдернуть вот эти самые выбранные значения в отдельную ячейку? Т.е. я выбираю значения, жму ОК, а в ячейке, например, A50, выводится "Запись1, Запись2, Запись3"? Меняю фильтр, в A50 вбиваются новые данные.

[okshef]

Delirium, может расширенным фильтром?

[Delirium]

Не пойдет, слишком много может быть фильтров и значений.

Я вроде бы нарыл функцию, надо ее доработать только, она не работает при выборе 3 и более условий из одного столбца

http://www.tek-tips.com/faqs.cfm?fid=6288