Поиск в книге

[asale]

Добрый день.
Никак не могу понять как можно сделать поиск в книге (уже второй случай).
Есть файл, 3 листа.
На первом листе в каждой строке указаны ФИО сотрудников и кол-во детей (вся компания).
На втором листе указаны ФИО сотрудника определенного отдела.
Как можно сделать, чтобы при нажатии какой-нибудь кнопки на третьем листе выводились бы все, что были найдены фамилии со второго листа с кол-вом детей, взятых с первого листа.
Т.е. нужно, чтобы программа взяла со второго листа фамилию, проверила, есть ли она на первом листе. Если есть то вывела строку с ФИО и кол-вом детей, если нет - продолжила поиск со следующей фамилией.

Помогите, очень нужно.
Спасибо.

[pashulka]

Если создать список необходимо обязательно программно (хотя можно просто скопировать список сотрудников из второго листа и воспользоваться стандартной функцией рабочего листа =ВПР()) то можно использовать и поиск, но применив расширенный фильтр - мы получим макрос, где для создания нужного списка будет использована всего одна инструкция (пример прилагается)

[asale]

Не могу понять, а как можно изменить диапазон, либо от него вообще отказаться, т.е. до конца листа. ВОзможно такое?

[pashulka]

1.

With Otdel.Range("Criteria")
     .Resize(.End(xlDown).Row).Name = "Criteria"
End With

2. База_Данных может ссылаться на весь столбец, Критерии нет.

[asale]

Вставил код- все равно не работает.
А как можно изменить диапазон в данной программе? Извиняюсь за глупый вопрос. Как я понимаю есть диапазон критерии и диапазон база данных

[pashulka]

У меня естественно всё работает.
А пример программного изменения наличествует в прошлом сообщении, а для изменения вручную существует Вставка-Имя-Присвоить или поле Имя, которое расположено слева от строки формул.
К тому же, использование именованных диапазонов помогает в работе, но не является обязательным.

[asale]

А как сделать, чтобы на листах не было первой строки , где написано "ФИО, количество детей". Без этой строки ничего не работает

[pashulka]

Грамотная работа в MS Excel предполагает, что списки имеют заголовок, поэтому, правильное решение заключается в создании таблицы включающей заголовки столбцов, а неправильное, в том чтобы игнорировать все разумные рекомендации и делать так как хочется. Что касается работы с псевдосписками, то здесь можно организовать цикл во втором листе и искать нужные значения в первом.