Hello I not sure how to resolve this. I am new to VBA.
I have a template workbook ( named "Template") that I copy multiple times and rename from a list ( name " list " from cell A2 downwards)
the second step which is where I need help ,
is to have the new worksheet template filled with the information from List
B2 downwards from list to A1 on new copied and named template
C2 downwards from list to G1 on new copied and named template
D1 downwards from list to M1 on new copied and named template
Any help would be greatly appreciated.
List
Template
Below is is the VBA that I have been using to create my new workbook template and rename them from list
Sub SaveMasterAs()
Dim wb As Workbook
Dim rNames As Range, c As Range, r As Range
Set rNames = Worksheets("Sheet1").Range("A2", Worksheets("Sheet1").Range("A2").End(xlDown))
Set wb = Workbooks.Open(ThisWorkbook.Path & "\Template.xlsx")
For Each c In rNames
With wb
.SaveAs Filename:=ThisWorkbook.Path & "\Template Copy\" & c.Value & ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End With
Set wb = ActiveWorkbook
Next c
wb.Close
End Sub
I have a template workbook ( named "Template") that I copy multiple times and rename from a list ( name " list " from cell A2 downwards)
the second step which is where I need help ,
is to have the new worksheet template filled with the information from List
B2 downwards from list to A1 on new copied and named template
C2 downwards from list to G1 on new copied and named template
D1 downwards from list to M1 on new copied and named template
Any help would be greatly appreciated.
List
Template
Below is is the VBA that I have been using to create my new workbook template and rename them from list
Sub SaveMasterAs()
Dim wb As Workbook
Dim rNames As Range, c As Range, r As Range
Set rNames = Worksheets("Sheet1").Range("A2", Worksheets("Sheet1").Range("A2").End(xlDown))
Set wb = Workbooks.Open(ThisWorkbook.Path & "\Template.xlsx")
For Each c In rNames
With wb
.SaveAs Filename:=ThisWorkbook.Path & "\Template Copy\" & c.Value & ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End With
Set wb = ActiveWorkbook
Next c
wb.Close
End Sub