|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
15.02.2015, 08:05 | #1 |
Регистрация: 15.02.2015
Сообщений: 3
|
Нужно перенести все данные с листов одной книги на один
Здравствуйте!
Есть книга со множеством листов с данными, с помощью макроса Sub pp() Application.ScreenUpdating = False Dim sh As Worksheet Dim shItog As Worksheet Dim iL As Long, iL2 As Long Set shItog = Sheets("лист1") For Each sh In Worksheets If sh.Name <> shItog.Name Then iL = sh.Cells(Rows.Count, 1).End(xlUp).Row iL2 = shItog.Cells(Rows.Count, 1).End(xlUp).Row + 2 sh.Range(sh.Cells(1, 1), sh.Cells(iL, 10)).Copy shItog.Cells(iL2, 1) End If Next sh Application.ScreenUpdating = True End Sub собираются все данные на один листок. Проблема заключается в том что на листах книги имеются формулы, которые не переносятся на собранный лист, так же при редактировании данных не изменяются показатели на листе с собранными данными. Подскажите что нужно добавить в текущий макрос, так что бы переносились, не только данные но и формулы, и при изменении данных на листах книги, автоматически вносились изменения на лист собранный с помощью макроса! |
15.02.2015, 12:42 | #2 | ||
Старожил
Регистрация: 31.12.2010
Сообщений: 2,133
|
Цитата:
Может быть, следует как-то иначе определять диапазон переноса? Цитата:
Можно добавить в макрос очистку итогового листа перед заполнением.
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
|
||
18.02.2015, 21:27 | #3 |
Регистрация: 15.02.2015
Сообщений: 3
|
спасибо,
Последний раз редактировалось Наталья-я; 18.02.2015 в 21:36. |
18.02.2015, 21:35 | #4 |
Регистрация: 15.02.2015
Сообщений: 3
|
Спасибо за ответ действительно дело было в диапазоне
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Перенести данные из одной книги в другую | CHIPATAM | Microsoft Office Excel | 11 | 12.11.2012 16:33 |
перенести данные с одной таблицы в другую | Natashka Milashka | SQL, базы данных | 4 | 05.06.2012 14:02 |
Скопировать данные из некоторых ячеек одной книги в другие книги | fcunited | Microsoft Office Excel | 8 | 09.06.2010 12:14 |
Копировние листов из одной книги в другую | Jenik | Microsoft Office Excel | 4 | 04.03.2009 12:22 |
Как перенести данные столбцов в один столбец? | CaustiC | Microsoft Office Excel | 4 | 04.03.2009 11:11 |