Страница 1 из 1
Нужна помощь
Добавлено: 15 ноя 2007, 06:44
Злобыч
Дано:
Некая таблица, на двух листах, как на третьем листе вывести обе таблицы, одна под другой, при условии что у обоих таблиц меняется число строк (добавляются и убираются счета).
Re: Нужна помощь
Добавлено: 15 ноя 2007, 07:16
Serge_Bliznykov
Решается достаточно простым макросом!
А по какому событию? Динамически (как только строчки на листе 1/2 добавились, убрались)? тогда будет рабоут тормозить нещадно!
Лучше макрос выполнять ручками по мере необходимости (или повесить на смену листов, хотя бы!)
Re: Нужна помощь
Добавлено: 15 ноя 2007, 07:26
Злобыч
1 раз в день мне нужно будет такую табличку делать, т.е. собрал инфу на 1м и втором листе, а потом пошли разносица по другим листам. Можно в принципе и кнопочкой копирование проводить.
Я не программист и из языков знаю только русский и русский матерный
Мне важен результат
Re: Нужна помощь
Добавлено: 15 ноя 2007, 18:58
Pavel55
Точно не знаю, что Вам нужно. Но посмотрите пример
P.S. Чтобы посмотреть код макроса - щёлкните мышкой на ярлычке Лист3 (внизу) и выберите "Исходный текст"
Re: Нужна помощь
Добавлено: 16 ноя 2007, 17:04
Pavel55
Вот ответ на Лич. Сообщение
Код: Выделить всё
Private Sub CommandButton1_Click()
Sheets("Лист4").Cells.Clear 'очищаем ячейки на Лист4
Sheets("Лист5").Cells.Clear 'очищаем ячейки на Лист5
Sheets("Лист1").UsedRange.Copy Destination:=Sheets("Лист4").Range("A10")
Sheets("Лист2").UsedRange.Copy Destination:=Sheets("Лист5").Range("A15")
End Sub
Re: Нужна помощь
Добавлено: 19 ноя 2007, 02:42
Злобыч
Большое спасибо