Макрос на создание заданного количества листов

neat89 Пользователь Сообщений: 2 Регистрация: 12.12.2024	#1 12.12.2024 15:03:20 Добрый день! Прошу помощи с написанием макроса для создания заданного количества листов (копий предварительно созданного шаблона) Количество указывается на первом листе в какой либо ячейке, наример A1

Sanja

Модератор

Сообщений: 18691 Регистрация: 10.01.2013

12.12.2024 15:41:53

Вот. Возможные проблемы с одинаковыми именами копий решите сами

Код

Sub ShablonCopy()
Dim shCount, I&
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
shCount = Worksheets("Первый лист").Range("A1").Value
If Not IsNumeric(shCount) Then Exit Sub
For I = 1 To shCount
  Worksheets("Шаблон").Copy After:=Worksheets(Worksheets.Count)
  Worksheets(Worksheets.Count).Name = "Шаблон_" & I
Next
Application.ScreenUpdating = True
End Sub

П.С. А вообще Вы идете порочным путем. Посмотрите тему, может измените способ решения своей задачи
Заполнение бланков данными из таблицы

Согласие есть продукт при полном непротивлении сторон

neat89

Пользователь

Сообщений: 2 Регистрация: 12.12.2024

12.12.2024 16:17:13

Цитата

Спасибо большое, механизм создания листов понял.