Create Multiple Workbooks with Data from Single Workbook

[WaterSkiExcel]

I have a TEMPLATE workbook that has 106 cells (all in the same worksheet) that need to have data input in them.

I have a separate DATA workbook with 3,000 rows of data, each row has 106 columns that correspond to the cells in the TEMPLATE workbook.

I need to create 3,000 new workbooks that are populated with the data from the DATA workbook.

Is this possible?

Thanks,

Ryan

 

[JLGWhiz]

Here is one way to do what I interpret your post describes. This Assumes that Row 1 of the Data worksheet is a header row. Copy this code to he standard code module of the workbook with 3000 rows of data.

Sub wkBk3000()
Dim wb As Workbook, sh As Worksheet, i As Long, lr As Long
Set sh = ThisWorkbook.Sheets("DATA") 'Edit sheet name
lr = sh.Cells.Find("*", sh.Range("A1"), xlFormulas, xlPart, xlByRows, xlPrevious).Row
    For i = 2 To lr
        Set wb = Workbooks.Add
        sh.Rows(1).Copy wb.Sheets(1).Range("A1")
        sh.Rows(i).Copy wb.Sheets(1).Range("A2")
        wb.SaveAs "newDATA" & i & ".xlsx" 'Edit name and file extension
        wb.Close False
    Next
End Sub

This code creates a new workbook for each row of data in the host workbook, sheet DATA. It copies the header row of sheet Data to row one of sheet1 in the new workbook. It then copies the current row (designated by the value i) to row 2 of the new workbook. It saves the new workbook as a standard workbook, without macros, and names the workbook "newDATA" and concatenates the value of i to that name so you will know which row created that workbook. If you are not using xl2007 or later, you will need to edit the file extension. You also might want to use a different name for the new workbooks. The new workbook is then closed and the process is repeated for as many times as there are rows of data.

 

[WaterSkiExcel]

Thanks JLGWhiz, i'll give that a try tonight. I appreciate you taking the time to help with that.

 

[JLGWhiz]

No problem,
Regards, JLG