Выбор ячеек по условию из нескольких листов

[hamlook]

Будьте добры. Подскажите как сделать выборку из кучи листов в один по определенным условиям. Для примера сделал упрощенный файлик:
из Лист2 и Лист3 скопировать данные столбцов А, В, С в Лист1 у которых в строках имеются 1 или 2 (значения 0, 1, 2 меняются в зависимости от даты)

[SAS888]

Посмотрите пример без циклов и поисков во вложении. Запустите макрос "Main".

[hamlook]

Спасибо. Попробую разобраться что к чему.

[hamlook]

К сожалению я не смог разобратся.
Я так понимаю этот макрос копирует полностью содержимое листа, а потом удаляет лишние (по условию). Но у меня могут появится значения которые могут не учитываться условием.
Нельзя ли подойти с другой стороны.
Мне главное чтобы на Лист1 выводилось сообщение на каких листах есть "1", а на каких "2".
Можно ли сделать чтобы макрос просматривал Листы и на Лист1 копировал одну ячейку с наименованием листа.

[SAS888]

Тогда посмотрите во вложении решение задачи "в лоб". Запустите макрос "Main".

[hamlook]

Огромаднейшее спасибо!!! С этим было легче разобраться. Все сделал как мне надо, даже лучше чем задумывал. Спасибо еще раз )))
Подскажи еще чуть-чуть.
Как сделать чтобы при копировании (именно в этом макросе) очищались форматы копируемых ячеек. Конкретнее мне надо как сделано в "Специальная вставка - Вставить - значения и форматы чисел".
У меня на листах применено Условное форматирование, да еще и Список. И все это тащится на первый Лист. Я пока сделал очистку форматов после макроса, но я хотел и на первом листе применить другое Условное форматирование, а очистка все удаляет.

[SAS888]

мне надо как сделано в "Специальная вставка - Вставить - значения и форматы чисел".

для этого, в коде макроса замените строку

.Range(.Cells(i, 1), .Cells(i, 3)).Copy Cells(k, 2)

На строку

.Range(.Cells(i, 1), .Cells(i, 3)).Copy: Cells(k, 2).PasteSpecial Paste:=xlPasteValuesAndNumberFormats

[hamlook]

Спасибо ))))

[hamlook]

Я немного поспешил... не со спасибо, а с радостью. С этим кодом выдает ошибку. Поправь пожалуйста.

[SAS888]

О чем речь? Какая ошибка? Где? В Вашем примере все работает (см. вложение). Давайте не будем гадать. Прикрепите проблемный файл-пример и укажите что не так работает (или вообще не работает).