Создание листов из шаблона

[Peresvetihe]

Задача такая: создать 20 листов с шапками бланков.
Подвопрос: как создать шаблон Листа, а не книги в целом.

[IgorGO]

создайте его в книге в виде листа.

и...
создать 20 листов в книге - это одна задача, а создать 20 книг с одним листом - другая.
по Вашим загадочным обьяснением не очень понятно, что надо Вам.

[Peresvetihe]

мне надо создать 20 и более листов в книге.
первый лист надо оставить ( в нем все данные)

Sheets.Add After:=Sheets(1), Type:="C:\Users\Max\AppData\Roaming\Microsoft\Шаблон.xltm"

так не работает почему-то.

[IgorGO]

Sub AddSameSheets()
  Dim n As Long
  n = Val(InputBox("Введите целое число", "Сколько копий листа 1 надо получить?", 20))
  For n = 1 To n: Sheets("Лист1").Copy After:=Sheets(Sheets.Count): Next
End Sub

[IgorGO]

потом Вы на эти листы набьете данных, потом начнете думать как же с этого всего получить отчет, например, за опреленный период...по определенному артикулу или филиалу (не знаю что вы там собираетесь хранить).
вместо того, что все данные держать на одном листе и получать отчеты сразу задав фильтр практически любой сложности, с многоуровневыми комбинациями "И", "ИЛИ" и прочего.

[Peresvetihe]

спасибо за совет. Худо бедно написал то, что хотел
вот:

Dim n As Long

For n = 1 To 3
  
  Sheets.Add After:=Sheets(n), Type:="C:\Users\Max\AppData\Roaming\Microsoft\TelemirMacros\template inspect.xltm" ' добавляет новый лист из шаблона после первого
  Sheets(n + 1).Name = "кв. " & Sheets(1).Cells(n + 7, 4).Text 'переименовали листы
 Next n

у меня проблема терь с этим куском

If Range("G4") = "ПРОСТО Класс 500 ускорение" Then Sheets(n + 1).Copy After:=Sheets(n + 1)
                                                   Sheets(n + 2).Name = "кв. " & Sheets(1).Cells(n + 7, 4).Text & "(тв)"
                                                   n = n + 1
    End If

ругается , что end if стоит без блока if.
тут задача такая, если в ячейке G4 написано "ПРОСТО Класс 500 ускорение", то нужно скопировать этот лист и в название листа добавить "(тв)"

[VictorM]

так

If Range("G4") = "ПРОСТО Класс 500 ускорение" Then
        Sheets(n + 1).Copy After:=Sheets(n + 1)
        Sheets(n + 2).Name = "кв. " & Sheets(1).Cells(n + 7, 4).Text & "(тв)"
        n = n + 1
End If

не ругается

[Peresvetihe]

спасибо! Всё получилось.
Может кому понадобиться.

Dim n As Long
Dim y As Long
y = 1
For n = 1 To 3
    
  Sheets.Add After:=Sheets(y), Type:="C:\Users\Max\путь к шаблону.xltm"
  Sheets(y + 1).Name = "кв. " & Sheets(1).Cells(n + 7, 4).Text 'переименовали листы
    Sheets(1).Cells(1, 1).Copy Destination:=Sheets(y + 1).Range("G2") 'перенесли ячеку а1 на листы
    Sheets(1).Cells(n + 7, 4).Copy Destination:=Sheets(y + 1).Range("H2") 'перенесли ячеку D8 на листы
    Sheets(y + 1).Range("G2") = Sheets(y + 1).Range("G2") & " кв. " & Sheets(y + 1).Range("H2") 'обьеденили две ячейки
    Sheets(y + 1).Range("H2").Clear
  If Range("G4") = "ПРОСТО Класс 500 ускорение" Then
                                    Sheets(y + 1).Copy After:=Sheets(y + 1)
                                    Sheets(y + 2).Name = Sheets(y + 1).Name & "(тв)"
                                    y = y + 1
  End If
y = y + 1
Next n