макрос для создания новых листов в книге

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

макрос для создания новых листов в книге (Макросы/Sub)

андрей77

Дата: Понедельник, 14.12.2020, 00:44 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 28

Репутация: 1 ±

Замечаний: 0% ±

Excel 2010

макрос - карточки всех - выводит листы на печать, нужно вместо этого создавать тоже только на новых листах в текущей книге

К сообщению приложен файл: 5555.xls (84.0 Kb)

Ответить

MikeVol

Дата: Понедельник, 14.12.2020, 13:23 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 378

Репутация: 81 ±

Замечаний: 0% ±

MSO LTSC 2021 EN

андрей77, День Добрый. Если Просто создать новые листы то как-то так:

[vba]

Код

        Sheets("Карта клиента").Select
        Application.ScreenUpdating = False
        Application.CutCopyMode = False
        '        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
        ActiveWindow.SelectedSheets.Copy After:=Sheets(Sheets.Count)
        Application.ScreenUpdating = True
    Next I
    Sheets(List).Select

[/vba]

Это ваш код, вместо печати идёт сохранение новых листов с Картами Клиентов.

Ученик.
Одесса - Украина

Ответить

андрей77

Дата: Понедельник, 14.12.2020, 22:52 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 28

Репутация: 1 ±

Замечаний: 0% ±

Excel 2010

Спасибо!

Ответить

андрей77

Дата: Понедельник, 14.12.2020, 23:06 | Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 28

Репутация: 1 ±

Замечаний: 0% ±

Excel 2010

MikeVol, ещё раз спасибо!
Усложняю)) необходимо создавать новых листов по количеству в столбе L
т.е. должно получиться всех по одному листу а в строке 10 - 3 одинаковые карты и в строке 17 - 4 одинаковые карты.

К сообщению приложен файл: 1212-1-.xls (99.0 Kb)

Сообщение отредактировал андрей77 - Понедельник, 14.12.2020, 23:09