Новости:

Теперь на форум можно залогиниться / зарегистрироваться с помощью ВКонтакте. Уже существующие пользователи могут связать свою учетную запись с аккаунтом ВКонтакте одним кликом в профиле пользователя http://forum.msexcel.ru/index.php?action=profile;area=account

Главное меню

Перенос данных с разных листов на сводный лист с учетом диапазона дат

Автор onsh, 14.07.2011, 16:09

« назад - далее »

onsh

Добрый день всем!  :)

Никак не получается разобраться с написанием макроса для переноса (кончолидации) данных. Не очень я специалист в VBA, а макрос, мне кажется, не очень сложный...

Задача такая:
перенести данные с отдельных листов ("Фирма1", "Фирма2",...) в соответстующие столбцы листа "Свод" с учетом диапазона дат - начиная с выбранной пользователем даты и до последней заполненной ячейки на отдельных листах ("Фирма1", "Фирма2",...).

Помогите, пожалуйста, один макрос написать. Или подскажите, какие использовать команды/процедуры:
"выбор диапазона дат", "проверка: если дата в диапазоне, то копирование из столбцов на лист "Свод"


Файл со структурой/данными прилагаю.

Заранее спасибо.

nilem


onsh

Цитата: nilem от 14.07.2011, 17:35
Вариант с зеленой стрелкой

Большое спасибо! Всё работает как надо.

Но в случае, если в файле есть другие листы, макрос не работает. Дабавляю в файл пустой лист и макрос не может понять, что копировать.
Как бы это поправить? Чтобы данные брались с определенных листов, а "ненужные" листы игнорировались?

Т.е. названия фирм совпадают с названиями листов, но в книге есть другие листы, с которых данные копировать не надо.




nilem

Тогда, например, так. Делаем двойной клик по ячейке с нужной фирмой в розовом диапазоне.