exporting data from master file to template file (autopopulate a template)

this should help, i suppose i'd need to bring in a loop too

master.Range("A" & Row) = template.Range("B1")  'Reference no.
master.Range("B" & Row) = template.Range("B2")  'Title
master.Range("C" & Row) = template.Range("B4")  'Confidentiality
master.Range("D" & Row) = template.Range("B3")  'Name
master.Range("E" & Row) = template.Range("B6")  'Department
master.Range("F" & Row) = template.Range("B8")  'Priority
master.Range("G" & Row) = template.Range("B7")  'Building
master.Range("H" & Row) = template.Range("B10") 'Current Stage
master.Range("I" & Row) = template.Range("C11") 'Stage 1
master.Range("J" & Row) = template.Range("C12") 'Stage 2
master.Range("K" & Row) = template.Range("C13") 'Stage 3
master.Range("L" & Row) = template.Range("C14") 'Stage 4
master.Range("M" & Row) = template.Range("B16") 'Value

How do you need to populate your Template?

On double click? with a userform search? I mean you have 4 rows of information in your Master and only space for one project in your template. Do you need to save every row from Master to Template

or

Save individual rows from Master to save in accordance to Column A_B (Copy one row from Master then create new workbook, then add the information in accordance, then save as?)

bump back up to page 1

Give me a couple, I have a similar code that does the same thing.

It creates a Folder and then a workbook, just trying to delete the folder part. For the transfer I also have a similar code that will create and paste the information, save then close.
The issue, out of my scope, will be looping through rows and creating each rows vs a new workbook.

That would be great, i may have some loop code i could try integrate

First, add the following to a module in your Master workbook: this will need tweeking but you will get the idea

This code was provided by shg

Function MakeDir(ByVal sDir As String) As Long

' Returns -1 if sDir already exists
'     1 if sDir is successfully created
'     0 if sDir cannot be created

Dim sPS         As String
Dim astr()      As String
Dim iLvl        As Long

If Len(Dir(sDir, vbDirectory)) Then
MakeDir = -1

Else
sPS = Application.PathSeparator

If Right(sDir, 1) = sPS Then sDir = Left(sDir, Len(sDir) - 1)
astr = Split(sDir, sPS)
sDir = vbNullString

' MkDir will fail if sDir contains character codes 0-31
' or any of the characters ' < > : " / \ | ? *
' or if the drive does not exist,
' or if the user does not have permissions, so ...
On Error GoTo Oops

For iLvl = 0 To UBound(astr)
sDir = sDir & astr(iLvl) & sPS
If Len(Dir(sDir, vbDirectory)) = 0 Then MkDir sDir
Next iLvl

MakeDir = 1
End If
OuttaHere:
Exit Function
 
Oops:
Err.Clear
Resume OuttaHere
End Function

wow Excelnoub, have no idea how i'd tweak that to fit my scenario

I did manage to find a mixture of code and tweak it for this example and seems to work as required

Sub Create()

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.DisplayAlerts = False
Application.AskToUpdateLinks = False

Dim AWB As Workbook 'Active Workbook
Dim NWB As Workbook 'New Workbook
Dim AWS As Worksheet 'Active Worksheet
Dim LastRow As Long
Dim i As Long

Const Path As String = "C:\Users\User\Desktop\"
Const TPath As String = "C:\Users\User\Desktop\Template.xlsx"
    
    Set AWB = ActiveWorkbook
    Set AWS = AWB.Sheets(1)
    
    LastRow = AWS.Range("A" & Rows.Count).End(xlUp).Row
    
    For i = 2 To LastRow
    
        Set NWB = Workbooks.Add(Template:=TPath)
        With NWB.Sheets(1)
        
Range("B1") = AWS.Range("A" & i)  'Reference no.
Range("B2") = AWS.Range("B" & i)  'Title
Range("B4") = AWS.Range("C" & i)  'Confidentiality
Range("B3") = AWS.Range("D" & i)  'Name
Range("B6") = AWS.Range("E" & i)  'Department
Range("B8") = AWS.Range("F" & i)  'Priority
Range("B7") = AWS.Range("G" & i)  'Building
Range("B10") = AWS.Range("H" & i)  'Current Stage
Range("C11") = AWS.Range("I" & i)  'Stage 1
Range("C12") = AWS.Range("J" & i)  'Stage 2
Range("C13") = AWS.Range("K" & i)  'Stage 3
Range("C14") = AWS.Range("L" & i)  'Stage 4
Range("B16") = AWS.Range("M" & i)  'Value

        End With
        NWB.SaveAs Path & CStr(AWS.Range("A" & i) & "_" & AWS.Range("B" & i)) & ".xlsx"
        
                NWB.Close 0
        Set NWB = Nothing
        
    Next i
    Set AWB = Nothing
    Set AWS = Nothing
    
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.AskToUpdateLinks = True

End Sub

Nice... I was making a way longer code then expected with Matching / Find. I am at work so limited time frame to play around with it...