копирование таблиц надо решение на ВБА

[kievlyanin]

есть таблица, в которой количество рядков пременное и новый рядок добавляется/удаляется через кнопочку с прописанной поцедуркой на ВБА.

работате так - есть начало таблицы первая строка которая имеет присвоенное имя и есть последняя тоже с присвоенным именем и между ними соответсвенно добавляются/удаляются строки согласно определенной логике (это несущественная деталь)

так вот таких таблиц на листе может быть очень много! более тридцати! ..

вопрос -как сделать автоматическое копирование этих таблиц?

вопрос второй более сложный: в каждой скопированной таблице должны работать кнопки автоматического добавления/удаления строк в них.

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

в прикрепленном фале не та таблица которая мне надо, но аналогичная ... чтобы было на практиче понятно о чем речь

[SAS888]

Посмотрите вложение. Не совсем понятно, что значит

автоматическое копирование этих таблиц?

Таблицу копировать вместе с данными? Тогда какую из существующих на листе? (кнопка копирования одна!).
В предложенном примере копируется "шапка" для заполнения новой таблицы. Может так и нужно было?

[kievlyanin]

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


наверно заметили что я тока начинаю в этом разбираться и реально уперся в то, что та схема по которой у меня работает та таблица, которая в заглавном посте наверно не подходит для реализации задуманой схемы. ... а придумать что-то свое пока не могу т.к. и ту идею честно спер с одного файла .. ..

[SAS888]

Добавил удаление таблицы (индивидуально для каждой).
На счет формул - по-подробнее. Лучше всего, если приложите пример, в котором будет несколько (хотя бы 2) таблиц в несколько (хотя бы 3) строк с формулами, которые также будет необходимо копировать ("размножать").

[kievlyanin]

агромное человеческое спасибо!

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

я над этим вот щас че-то колдовал но в результате почему-то кнопка удалить работать отказалась

[SAS888]

Немного поясню. Как Вы, наверное, заметили, кнопки "Добавить" и "Удалить" строки - удалены. Вместо этого, ячейкам "Добавить", "Удалить" и "Удалить таблицу", назначены гиперссылки на ячейку "A1" скрытого (xlVeryHidden) пустого листа и вставлена обработка события перехода по гиперссылке. Первая же команда процедуры обработки события осуществляет переход обратно на лист с таблицами. Такое решение позволяет определить адрес ячейки, которую мы активировали, и запустить макрос обработки.
Так что при дальнейшей работе имейте все эти моменты ввиду. Скрытый лист - первый в книге. Не удаляйте его.
Также, макрос проверяет: если это первая таблица (которая как раз и копируется), то удаления не последует.
Ну, а для того, чтобы сохранялись (и "размножались" при добавлении строк в таблицах) формулы - делать, наверное, примерно так: (см. вложение).
Для примера, я "забил" пару формул в некоторые ячейки исходной таблицы.

[kievlyanin]

да, я понял принцип действия .. в общих чертах ... сам бы ни за что не повторил .. ну не сейчас .. еще я так понял максимум это 2000 строк во всех таблицах и там завязано вычисление этого одиапазона на формат ячеек под таблицу ...

короче разбираться буду.....

[SAS888]

Желаю удачи!
А 2000 сделано так, для примера и для скорости. Для использования всех строк листа - вместо 2000 везде нужно подставить Rows.Count.

[kievlyanin]

поразбирался немного .. пока что только с кнопкой добавить таблицу ... сделал нижнюю границу END ниже котроой таблицы не добавляются (там ниже еще таблица будет) так же ввел имя для базовой таблицы (это прицел та то, что вверху будет еще пару таблиц которые будут иметь неизвестное количество строк, а потому базовая таблица неизвестно где окажется поэтому проверку обласи и все такое нельзя привязывать к ячейкам ) ... короче все работает Ок. в смысле добавление и удаление таблиц. но есть одно НО. .. почему-то в результате этих изменнеий кнопка "удалитьу паковку" в новых таблицах выдает ошибку .. при этом в базовой работает.
я че-то смотрю на это и не совсем улавливаю че ей не нравится...

[SAS888]

У Вас все было правильно, за исключением самих формул на рабочем листе, которые впоследствии копируются в добавленные строки. Обратите внимание, что при попадании ссылки на объединенную (не первую из них), возникает ошибка. В дальнейшем, когда Вы введете свои рабочие формулы, все будет OK. Во вложенном файле я просто изменил их таким образом, что описанная выше ситуация исключена.