Create multiple files from template

[ahmedmohamedkamal]

Hi every one
I have a code edited from old thread that create new excel files based on template and named after specified range in the master sheet
i have a problem that it copy the first cell A1 in every C6 for all generated files
i need A1 copied to C6 1st file and A2 copied to C6 2nd file ...........etc also i need to make the range dynamic according to used cells no just from a1 to a8
The code is

Public Sub SaveTemplate()
  Const strSavePath As String = "C:\My Documents\"
  Const strTemplatePath As String = "C:\My Documents\template.xls"


  Dim rngNames As Excel.Range
  Dim rng As Excel.Range
  Dim wkbTemplate As Excel.Workbook

  Set rngNames = ThisWorkbook.Worksheets("Sheet1").Range("A1:A8").Values

  Set wkbTemplate = Application.Workbooks.Open(strTemplatePath)

  For Each rng In rngNames.Cells
    wkbTemplate.Worksheets("Sheet1").Range("C6").Value = ThisWorkbook.Worksheets("Sheet1").Range("A1:A8").Value
    wkbTemplate.SaveAs strSavePath & rng.Value
  Next rng

  wkbTemplate.Close SaveChanges:=False
End Sub

 

[ahmedmohamedkamal]

Ok, add this line

    With wkbTemplate.Worksheets("Sheet1")
        .Range("C6").Value = rng.Value
        .Range("F15").Value = rng.Offset(3, 6).Value
        .Range("C14").Resize(rngC.Count).Value = rngC.Value
        .Range("L6").Value = thisworkbbok.Sheets("Sheet1").Range("H2").Value
    End With

Sorry but it didn't fo any thing

 

[Fluff]

Are you sure there are values in G4, G5 etc of the Master sheet? If so they should have been copied to F15 of the new file.

 

[ahmedmohamedkamal]

Are you sure there are values in G4, G5 etc of the Master sheet? If so they should have been copied to F15 of the new file.

it worked thank you very much
i wanted f14 and the code was f15 which was hidden any way thanks alot

 

[Fluff]

Glad you sorted it & thanks for the feedback