Макрос суммирования книг

[SAS888]

Посмотрите пример во вложении.

[Extril]

Спасибо огромнейшее, все работает. Пршу прощения за отнятое время, очень долго пытался разобраться, но сам так и не смог.
У меня вопрос, а где в представленном коде можно поменять формулу, чтобы вместо суммирования было просто копирования из одного файла ? и что за странные адреса [C15:N15].Value = [C3:N3]

[gling]

Есть сборщик данных с нескольких книг, очень удобный и с описанием. Нашел его на одном из форумов. Можно переделать под свои нужды. Написал его Щербаков Дмитрий, в макросе написано кто и когда его написал. Может пригодится.

[SAS888]

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

В строке кода

x.PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd

уберите последнюю опцию, которая отвечает за операцию:

x.PasteSpecial Paste:=xlPasteValues

...что за странные адреса [C15:N15].Value = [C3:N3]

При специальной вставке, при сложении данных, текстовые значения не обрабатываются. В диапазоне "C15:N15" на рабочем листе находятся названия месяцев (текстовые значения). Следовательно, после работы макроса, они исчезнут. В данном случае, необходимо либо разбивать диапазон на 2 части (верхняя и нижняя таблицы без строки с заголовками), либо обрабатывать один диапазон, а после вставки данных, утерянную при этом строку с заголовками восстановить. Именно это и делает код

[C15:N15].Value = [C3:N3].Value

[Extril]

Здорово, все гениальное просто, иизвините за мою настойчивость, лучишие учителя практики. А если в копируемых ячейках цифрыз полученные из формул, то в этьом случае результат подсвечивается как "ссылка" это как можно устранить или подредактировать. Те формулы которые есть открывают файлы, а это долго. Ваш Вариант достаточно красив и быстр