Как создать запрос, который будет размножать листы

[TimeStopper]

Доброго времени суток...
Я просто строитель, а не программист ) но очень муторные действия меня уже убивают.
У меня есть шаблонная страница, мне надо, что бы Эксель спросил: сколько ярусов? я ответил - 24! сколько колонн? - 85!
Тогда он копирует 24 раза этот шаблонный лист, пронумеровывает их по порядку 1,2,3...24.
А потом в нутри каждого листа делает нумерует строки: для первого листа с 1 по 85, для 2го с 86 по 170, для третьего листа с 171 итд...
Это реально сделать ребят? )

[VictorM]

Вполне реально. Но нужно Ваш пример.
Таблица-шаблон и что Вы хотите получить, хотя бы одну страницу-копию.
Приложите файлик.

[alex77755]

Можно так. Код в модуль, запустить по F8 при активном шаблоне:

Sub Размножить()
'Dim List, Strok
'Dim SH As Worksheet
'Dim L, S, K
List = InputBox("Сколько ярусов?", "", 24)
Strok = InputBox("Сколько колонн?", "", 85)
For L = 1 To List
Sheets("Лист1").Copy After:=Sheets(L)
Set SH = ActiveSheet
SH.Name = L
        For S = 1 To Strok
            K = K + 1
            Cells(S, 1) = K
        Next S
Next L
End Sub

[DiemonStar]

Sub CopyTemplate()
  Dim Tmp As Worksheet, Sh As Worksheet
  Do
    A = InputBox("Ââåäèòå êîëè÷åñòâî ëèñòîâ:", "Íàñòðîéêè", 1)
  Loop Until IsNumeric(A) Or A = ""
  Do
    B = InputBox("Ââåäèòå êîëè÷åñòâî ñòðîê:", "Íàñòðîéêè", 1)
  Loop Until IsNumeric(B) Or B = ""
  
  If CInt(A) > 0 And CInt(B) > 0 Then
    Set Tmp = Sheets("Ëèñò1")
    Set Sh = Tmp
    For I = 1 To A
      Tmp.Copy After:=Sh
      Set Sh = ActiveSheet
      Sh.Name = "Ïðîáà_" & I & "_" & Format(Now(), "hhmmss")
      Sh.[A3] = 1
      If B > 1 Then
        Sh.[A4] = 2
        If B > 2 Then
          Set R = Sh.Range("A3:A" & B + 2)
          Sh.[A3:A4].AutoFill R, xlFillSeries
        End If
      End If
    Next I
  End If
End Sub

Можно использовать что-то вроде этого. только доработать нужно...

[TimeStopper]

Что-то я сразу не подумал...
Первый лист, это шаблон. Вротой лист, это уже скопированный первый, в котором продолжена нумерация...

[TimeStopper]

Что-то я сразу не подумал...
Первый лист, это шаблон. Вротой лист, это уже скопированный первый, в котором продолжена нумерация...

Алекс, почти работает! только не учитывает что в таблице есть шапка...он бы начинал с 3ей строки...
И еще у меня строки спаренные, вот это бы еще учитывать...если не сложно )

[Казанский]

Предлагаю создавать новую книгу, а в шаблоне оставить одну строку. Жмите на кнопку.

[TimeStopper]

а ни как нельзя в этой книге оставаться? ) просто там будут листы другого типа, с которыми налажена взаимосвязь...

[Казанский]

Да, еще проще. Правда, при повторном запуске макроса возникает ошибка, т.к. лист с именем "1" уже есть. Подумайте, следует ли что-то еще делать в этой ситуации.

[TimeStopper]

Большое спасибо, проверьте почту пожалуйста)