Создание листов из значений столбцов и вставка значений в столбец в определенных ячейках на каждом листе

Question

Я нашел макрос, который читает значения в столбце А на вкладке «Вставка листов», создает отдельные листы на основе этих значений, а затем копирует «Шаблон» на каждую новую страницу.

Sub NewSheets()
Dim i As Integer
Dim ws As Worksheet
Dim sh As Worksheet
Set ws = Sheets("Template")
Set sh = Sheets("Sheets Insert")
Application.ScreenUpdating = 0

For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
        Sheets("Template").Copy Before:=sh
        ActiveSheet.Name = sh.Range("A" & i).Value
Next i
End Sub

Отлично работает,

Итак, следующий шаг для меня - взять значение, из которого был создан лист, в столбце «Вставка листов», и вставить это значение в G3 созданного листа.

Затем янужно, чтобы оно взяло значение в той же строке в столбце B «Вставка листов» и скопировало его в C3 на этой странице.

Так, например:

«Вставка листов»

Column A   |   Column B

Motor A         12345
Motor B         23456

Код создает лист двигателя А и вставляет двигатель А в [g3] и вставляет 12345 - [c3] на лист двигателя А.

Код создает лист двигателя В и вставляет двигатель В в [g3]и вставляет 23456 в [c3] на листе двигателя B.

И так далее в списке.Я искал пару часов и мне не повезло.Надеюсь, кто-то может помочь.Спасибо.

Answer 1

Если я понял ваш вопрос, вы должны добавить две строки кода:

Sub NewSheets()
Dim i As Integer
Dim ws As Worksheet
Dim sh As Worksheet
Set ws = Sheets("Template")
Set sh = Sheets("Sheets Insert")
Application.ScreenUpdating = 0

For i = 2 To Range("A" & rows.count).End(xlUp).Row
        Sheets("Template").Copy Before:=sh
        ActiveSheet.Name = sh.Range("A" & i).Value

        'add code
        Range("G3") = sh.Range("A" & i) 'copy name into cell G3
        Range("C3") = sh.Range("B" & i) ' copy data into cell C3
Next i
End Sub

Надеюсь, это поможет