Macro to Copy Tab Multiple Times w/ Reference to Sequential Cells

[hebehemonkey]

Hi Everyone,

I have to create 79 tabs in excel using a standard template [see below], but that references sequential values in a separate worksheet. We will call the template worksheet "Template" and the worksheet that contains the reference values "Reference". I need help creating a macro to do the following:

1. Copy the template 79 times.
2. Name each new worksheet according to the sequential rows in column F of "Reference" (so the first copy of "Template" would have a name defined in F3 in the "Reference" sheet. the second copy of "Template" would have a name defined by F4, etc. etc. etc).
3. Set the values of cells in the new worksheets (i.e. the copies of "Template") equal to sequential rows in Column A, B, C, D, E of the worksheet "Reference", such that copy 1 of the "Template" references cells A3, B3, C3, D3 and E3; copy 2 of the "Template" references cells A4, B4, C4, D4, E4; etc.

I tried to start something, but my skills (and knowledge of the correct vocabulary) have my hopelessly lost. Can anyone help?


Sub CopyWorkSheets()
Dim xNumber As Integer
Dim xWsName As String
On Error Resume Next
xTitleId = "Enter Value"
xWsName = Application.InputBox("Copy worksheet name", xTitleId, , Type:=2)
xNumber = Application.InputBox("Copy number", xTitleId, , Type:=1)
For i = 1 To xNumber
Application.ActiveWorkbook.Sheets(xWsName).Copy _
After:=Application.ActiveWorkbook.Sheets(xWsName)
Next
End Sub

 

[Fluff]

Hi & welcome
Try this

Sub CopyTemplate()

    Dim Cnt As Long
    Dim RefSht As Worksheet
    
    Set RefSht = Sheets("[COLOR=#0000ff]Reference[/COLOR]")
    For Cnt = 3 To 81
        Sheets("[COLOR=#0000ff]Template[/COLOR]").Copy after:=Sheets("[COLOR=#0000ff]Template[/COLOR]")
        With ActiveSheet
            .Name = RefSht.Range("F" & Cnt).Value
            .Range("[COLOR=#ff0000]B4[/COLOR]").Value = RefSht.Range("A" & Cnt)
            .Range("[COLOR=#ff0000]B5[/COLOR]").Value = RefSht.Range("B" & Cnt)
            .Range("[COLOR=#ff0000]B6[/COLOR]").Value = RefSht.Range("C" & Cnt)
            .Range("[COLOR=#ff0000]B7[/COLOR]").Value = RefSht.Range("D" & Cnt)
            .Range("[COLOR=#ff0000]B8[/COLOR]").Value = RefSht.Range("E" & Cnt)
        End With
    Next Cnt

End Sub

Make sure that the sheet names in blue are correct.
Also check that the range references in red are correct, I've taken a guess based on the image you supplied

 

[hebehemonkey]

Hi & welcome
Try this

Sub CopyTemplate()

    Dim Cnt As Long
    Dim RefSht As Worksheet
    
    Set RefSht = Sheets("[COLOR=#0000ff]Reference[/COLOR]")
    For Cnt = 3 To 81
        Sheets("[COLOR=#0000ff]Template[/COLOR]").Copy after:=Sheets("[COLOR=#0000ff]Template[/COLOR]")
        With ActiveSheet
            .Name = RefSht.Range("F" & Cnt).Value
            .Range("[COLOR=#ff0000]B4[/COLOR]").Value = RefSht.Range("A" & Cnt)
            .Range("[COLOR=#ff0000]B5[/COLOR]").Value = RefSht.Range("B" & Cnt)
            .Range("[COLOR=#ff0000]B6[/COLOR]").Value = RefSht.Range("C" & Cnt)
            .Range("[COLOR=#ff0000]B7[/COLOR]").Value = RefSht.Range("D" & Cnt)
            .Range("[COLOR=#ff0000]B8[/COLOR]").Value = RefSht.Range("E" & Cnt)
        End With
    Next Cnt

End Sub

Make sure that the sheet names in blue are correct.
Also check that the range references in red are correct, I've taken a guess based on the image you supplied

Thanks! I tried it out, and it starts to work, but throws an error on the line,

.Name = Refsht.Range("C" & Cnt).Value

Error: "Run-time error '424': Object Required". I tried playing around and I can't figure it out.

 

[Fluff]

What was the value of Cnt when it failed & what was the value of F & Cnt?
Ie if Cnt was 11 what was the value of F11

 

[hebehemonkey]

What was the value of Cnt when it failed & what was the value of F & Cnt?
Ie if Cnt was 11 what was the value of F11

Figured it out! It was F3, which prompted me to look at the values of F, and I realized that the character length was too long for a tab name. I shortened the cell values and it worked! Thank you!!!

 

[Fluff]

Glad to help & thanks for the feedback