Delirium
04-09-2012, 10:21
На листе выделяем заголовки - Автофильтр. В фильтре выбираем, например, 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 вбиваются новые данные.
В VBA это выглядит как
ActiveSheet.Range("$A$1:$C$36").AutoFilter Field:=1, Criteria1:="=Запись1", Operator:=xlOr, Criteria2:="=Запись2"
и т.д.
Вопрос в следующем: Как выдернуть вот эти самые выбранные значения в отдельную ячейку? Т.е. я выбираю значения, жму ОК, а в ячейке, например, A50, выводится "Запись1, Запись2, Запись3"? Меняю фильтр, в A50 вбиваются новые данные.