Copy data from sheet 1 to sheet 2 using matching names to determine the destination cell

[Katie152]

Hi,

I have a spreadsheet which uses the VBA coding on sheet 1 to create data entry on the next available row in sheet 2 for new starters.

I'd like to create another form on sheet 3 to populate additional columns in sheet 2 based on the name of the employee.

Could anyone please advise of a VBA code that would enter information from B1 in sheet 3 to column G in sheet 2, selecting the row when the values in Column A in Sheet 2 and Sheet 3 are the same.

Thank you

 

[JLGWhiz]

The data layout is not real clear, but you can try this. The code goes in a standard code module (module1)/

Sub t()
Dim sh2 As Worksheet, sh3 As Worksheet, c As Range, fn As Range
Set sh2 = Sheets("Sheet2")
Set sh3 = Sheets("Sheet3")
    With sh3
        For Each c In .Range("A2", .Cells(Rows.Count, 1).End(xlUp))
            Set fn = sh2.Range("A:A").Find(c.Value, , xlValues, xlWhole)
                If Not fn Is Nothing Then
                    c.Offset(, 1).Copy fn.Offset(, 6)
                End If
        Next
    End With
End Sub