Hugo121Хотя я сейчас проверил - мне не помогает, всё равно при Union формулы пропадают.

я тоже проверил, пропали (

zchvvHugo121,

согласен. Тогда код немного изменяется:

zchvv , вы супер!!! То что нужно!!!
А почему в первом случае копировалось вместе со структурой (у меня строки были сгруппированы)
А в этом случае группировка пропадает???

zchvvВ догонку: надеюсь, Вы исследовали код и поняли, что он всего лишь заготовка. Для достижения вашей цели его нужно творчески переработать. Например, на форму вынести номера 1-го (это необязательно буквально 1-й!) и последнего листа, с которых копируем. Также можно задавать номер листа, на котором собираем итоговую таблицу. И т.п.. Желаю успеха!

Да да Спасибо! Исследовал! Сижу уже дорабатываю!!!
Вот мне тока не понятно, сижу сравниваю оба кода, в первом случае со структурой копирует, а во втором без))) Непонятна... :-)

zchvv сделал как вы посоветовали!!! Теперь копирует вместе со структурой!!!

zchvvnikalex2,

ОК. Всегда рад помочь.

zchvv а вы не в курсе возможно ли сделать следующее:

я присвоил ячейкам например A1 некое имя например SYSTEM1, ячейке A2 имя SYSTEM2, ячейке A3 имя SYSTEM3 и т.д. которые используются в формулах.
создал UserForm на которую поместил TextBox
так вот чтобы при запуске макроса Копирования (который Вы написали) выскакивала моя UserForm где в TextBox я бы вводил например SYSTEM2
и после этого во всех формулах ссылки менялись на SYSTEM2 ???

для понимания вопроса прилагаю пример

забыл прикрепить)))

zchvv!

Здравствуйте! Ваш код в принципе то что мне и нужно. Спасибо!
Попробовал применить в своей таблице, но возникла ошибка
в вашем примере на Листе1 я добавил формулу и вот на ней то и выдает ошибку
Ещё что заметил, так это то что меняются значения в формулах (которое я ввожу в TextBox) и на Листе1 и Листе10 А в моем случае необходимо чтобы на Листе1 не менялось а только копировалось с заменой на Лист10

Здравствуйте!

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

Здравствуйте!

zchvv попробовал применить Ваш код, но...
под мою задачу не прошло :-(

у меня формулы типа =СУММЕСЛИМН(BASE!$O$2:$O$25000;BASE!$A$2:$A$25000;SYSTEM1;BASE!$D$2:$D$25000;"Duct";BASE!$E$2:$E$25000;"Гофр";BASE!$F$2:$F$25000;"100")

после того как запускаю ваш код формула приобретает вид =СУММЕСЛИМН(BASE!$O$2:$O$25000;SYSTEM2;"100")

т.е. часть формулы просто удаляется, соответственно ничего не работает :-(

Насчет А3, там тоже формула =SYSTEM... т.е. в этой ячейке тоже должно меняться на то значение которое я ввожу в InputBox

P.S. я в параметрах вычисления в настройках Excel устанавливаю "Вручную" (много формул, постоянное автоматическое вычисление занимает много времени), а после запуска кода он переключается на "Автоматическое" Непонятно.

Может мне скинуть Вам файл с моей задачкой??? Файл больше чем 100 кб, может Вам на email скинуть???

Valll я что то типа того что Вы предлагаете и пытаюсь осуществить. Т.е. у меня на одном листе создано что то типа ШАБЛОНА(который в процессе работы может меняться). Потом (когда ШАБЛОН будет окончательно доработан) необходимо его n-ое количество раз размножить в другой лист с заменой n-раз одного единственного условия в формуле (в моем случае это "SYSTEM")
Но что то не получается никак :-(

Заранее Всем благодарен!