Новости:

Новая редакция правил форума: 2.4. Если вопрос или ответ содержится во вложенном файле, все-равно кратко описывайте в сообщении вопрос или суть решения. Это необходимо, чтобы тему можно было найти через поиск.

Главное меню

Скопировать Лист и продублировать n раз

Автор 0mega, 10.12.2013, 13:37

« назад - далее »

0mega

Доброго времени суток.

Существует некая таблица - образец
надо этот образец вставить сразу на все Листы (всего 16 Листов)
Если клик по Листу - Выделить все Листы, то эта фишка работает только при ручном вводе
Напишите пару макросов
1-ый макрос - при нажатии на кнопку должен скопирует выделенную область Лист1 и вставить на все остальные Листы Книги
Копировать должен все, включая форматирование и формулы,
(текст и формулы убрал специально.)
2-ой макрос. при нажатии на кнопочку должен запускать в печать все Листы

RAN

No Sub?  :D  ;D
Включаем рекордер, пишем
Sub Макрос3()
    Cells.Select
    Range("B7").Activate
    Selection.Copy
    Sheets("5007").Select
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets(Array("4752", "4758", "4745", "5008", "145744", " 5130", "5131", "5061", "5070", _
        "5054", "5065", "5050", "5049", "5071", "5064", "5007")).Select
    Sheets("5007").Activate
    Cells.Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub
Sub Макрос5()
    ActiveWorkbook.PrintOut Copies:=1
End Sub


Вставляем кнопки, цепляем макросы.
Усе, шеф.  ;)

0mega

RAN, здравствуйте
Цитата: RAN от 10.12.2013, 18:43
No Sub?  :D  ;D

Спасибо за ответ.
У вас хорошая память.
Действительно, 90% моих вопросов начинается именно с этих слов.
Это первые робкие шаги.



0mega

Андрей, благодарю
Все работает как хотелось