Create new sheets based on template from master sheet data/information?

'FILL OUT A TEMPLATE FROM A DATABASE
I have a macro for taking the data from a database sheet and filling out a template sheet over and over again with the data.

Data Into Template

The macro fills out the template and saves each one as a separate file OR creates a separate sheet, your choice. That last part can be tweaked to do other things, this is mainly to demonstrate a simple way to fill out a form from a row-based database.


THe code you will need to edit or expand on is highlighted in red to make it obvious. For instance, change the Sheets("Data") to Sheets("MASTER") for your project. And down in the "fill out the form" section, you'll need to just add more lines to transfer values from each column of your master to the constant positions in your new sheets.

Hmm, I guess you would need to add a new column to your data. In that column you can flag each row as "exported". So when the macro is running, it would skip any rows that have any value in that column. Also, when it DOES run, it would need to add "processed" into that column.

Let's use column N.

So the whole "looping" section would need to check column N before it did anything, something like:

    For Rw = 2 To LastRw
        If dsht.Range("N" & Rw).Value <> "Exported" Then
            tSht.Copy After:=Worksheets(Worksheets.Count)   'copy the template
            With ActiveSheet                                'fill out the form
                'edit these rows to fill out your form, add more as needed
                .Name = dsht.Range("A" & Rw)
                .Range("B3").Value = dsht.Range("A" & Rw).Value
                .Range("C4").Value = dsht.Range("B" & Rw).Value
                .Range("D5:D7").Value = dsht.Range("C" & Rw, "E" & Rw).Value
            End With
            
            If MakeBooks Then       'if making separate workbooks from filled out form
                ActiveSheet.Move
                ActiveWorkbook.SaveAs SavePath & Range("B3").Value, xlNormal
                ActiveWorkbook.Close False
            End If
            Cnt = Cnt + 1
            dsht.Range("N" & Rw).Value = "Exported"
        End If
    Next Rw

How'd that go? All done?

If that takes care of your need, please select Thread Tools from menu above and set this topic to SOLVED.