Generate multiple xls files from excel list

no one now ifi it´s possible??

Maybe you could upload your worksheet (or a mockup of your worksheet)?

Sub CreateFiles()
    Dim wsThis As Worksheet
    Dim wbNew As Workbook
    Dim sPath As String
    Dim i As Long
   
    sPath = ThisWorkbook.Path
    ' Or for example: sPath = "C:\Users\UserName\Desktop\Development\Test"
    Set wsThis = ThisWorkbook.Worksheets(1)
    With wsThis
        For i = 2 To .Cells(.Rows.Count, "A").End(xlUp).Row
            Set wbNew = Workbooks.Add
            ActiveWorkbook.SaveAs sPath & "/" & .Cells(i, "A")
            wbNew.Worksheets(1).Range("A2") = .Cells(i, "B")
            wbNew.Worksheets(1).Range("A4") = .Cells(i, "C")
            wbNew.Worksheets(1).Range("C5") = .Cells(i, "D")
            wbNew.Close SaveChanges:=True
        Next i
    End With
End Sub

See: j_r_m_c_test to forum.xlsm

Thank you

Excelent!!!!

I'm having a hard time understanding your question.
Do you want the above code to work with existing worksheets rather than creating new worksheets?
If so, do you want to create a new worksheet when an existing worksheet cannot be found?
If so, so you want to overwrite cells which already have information?

When I create a new workbook and add the name, age and birthday, would you like me to add the headers "Name", "Age", and "Birthday" as well?
Would you like the surrounding region in yellow also?

How about this?

Sub CreateFiles()
    Dim wsThis As Worksheet
    Dim wbNew As Workbook
    Dim sPath As String
    Dim i As Long
    Dim nLastRow As Long
   
    sPath = ThisWorkbook.Path
    ' Or for example: sPath = "C:\Users\UserName\Desktop\Development\Test"
    Set wsThis = ThisWorkbook.Worksheets(1)
    
    With wsThis
        nLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
    End With
    
    For i = 2 To nLastRow
        Set wbNew = Workbooks.Add
        ActiveWorkbook.SaveAs sPath & "/" & wsThis.Cells(i, "A")
        With wbNew.Worksheets(1)
            .Range("A1") = "Name"
            .Range("A2") = wsThis.Cells(i, "B")
            .Range("A3") = "Age"
            .Range("A4") = wsThis.Cells(i, "C")
            .Range("C4") = "Birthday"
            .Range("C5") = wsThis.Cells(i, "D")
        End With
        wbNew.Close SaveChanges:=True
    Next i
End Sub

StevenM, i understand this way
but for achive my goal i need to open a file with "Name", "Age", Birthday" already writen

this is a example, the original aplication will have lots of information, and will have more than one sheet.

how can i tell in a macro to open a spefic xls insert some values and save with a diferent name!!

how can i tell in a macro to open a specific xls insert some values and save with a different name!!

(1) Will all the worksheets be in one folder? And will only those worksheets be in that folder? Or do I get the names of these worksheets from the master worksheet?

(2) What data do you want to add to these worksheets? I assume that you will have a master worksheet which will contain the new information needed to be added, yes?

(3) How do you want to rename the worksheets?

(4) And in what folder do you want to save these worksheets? The same folder, or different folder?

Before, we had "file of John", "file of Sue" and "file of Mary"
Would you like a macro which opens "John" adds age and birthday, then saves it as "file of John"?

i need to use a xls file with A1, A3,C4 already with this cell

remenber this is a example the use of this function will be for a xls with lot´s of information

1)all in same folder
2) iwill have a master file that i will create lots of file connecting this file with each line from the other file
3)the name of worksheet will be same of A1 (example file of John)
4)in same folder

i hope i was clear in the explanations above

Backup your data.
Change sPath as needed.
This macro opens files found in column A.
Adds headers & info found in columns B, C, & D.
Saves the changes & closes the file.

Sub CreateFiles()
    Dim wsThis As Worksheet
    Dim wb As Workbook
    Dim sPath As String
    Dim i As Long
    Dim nLastRow As Long
    Dim sFileName As String
   
    sPath = ThisWorkbook.Path
    ' Or for example: sPath = "C:\Users\UserName\Desktop\Development\Test"
    Set wsThis = ThisWorkbook.Worksheets(1)
    
    With wsThis
        nLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
    End With
    
    For i = 2 To nLastRow
        ' File name plus extension xlsx
        sFileName = wsThis.Cells(i, "A") & ".xlsx"
        If Dir(sPath & "\" & sFileName) <> sFileName Then
            MsgBox "Could not find file: " & sFileName
        Else
            Set wb = Workbooks.Open(sPath & "\" & sFileName)
            If wb Is Nothing Then
                MsgBox "Could not open file: " & wsThis.Cells(i, "A")
            Else
                With wb.Worksheets(1)
                    .Range("A1") = "Name"
                    .Range("A2") = wsThis.Cells(i, "B")
                    .Range("A3") = "Age"
                    .Range("A4") = wsThis.Cells(i, "C")
                    .Range("C4") = "Birthday"
                    .Range("C5") = wsThis.Cells(i, "D")
                End With
                wb.Close SaveChanges:=True
            End If
        End If
    Next i
End Sub

i didn´t understand!!
>
i need a macro to open the data.xls, insert the information collected from info.xls of John in the field A2;A4 and C5, and to finish, save as "A1=file of john.xls", close and star over to the next line in the info.xls file.

reading the macro above i think it doesn´t do like that.

(1) What is "Data.xls"? What is in it?

(2) And what is "info.xls"? What is in it?

(3) How does "text to forum" (which is what I've been using) related to the other files? What file will the macro be stored in?

(4) Will there be a "john.xls"?

(5) And the information is saved in a new "file of john.xls", yes?

i send directly the files

(1) What is "Data.xls"? What is in it? see file attached

(2) And what is "info.xls"? What is in it? see file attached

(3) How does "text to forum" (which is what I've been using) related to the other files? What file will the macro be stored in? I rename as info.xlsm

(4) Will there be a "john.xls"? no

(5) And the information is saved in a new "file of john.xls", yes? the execution of the macro will create file of John.xls; file of Mary.xls; file of Sue.xls

Your file didn't attach. Try again and I'll try to finish the code for you.

Try this: info.xlsm

it does exactly what i want
Thank you StevenM for your patient

excelent!!!!!!!!!!!!!!!!

You are welcome.