Help! Search for data on one workbook and paste on another workbook.

Hello,

I was wondering how can I search with a push of a button for a certain name from a workbook and paste the rest of the data that comes along with name to another workbook.


Looking for the data of the people mentioned:

(Workbook A)

Name	Birthday	Gender
Dylon
Angel
Cassy
Benjamin

Raw data workbook, this is the workbook that the data would be extracted from:

(Workbook B)

Name	Birthday	Age	Gender	Weight
Angel	10 Jan 1988	27	Female	60
Benjamin	20 February 1988	27	Male	56
Cassy	30 November 1995	20	Female	49
Dylon	15 December 1992	23	Male	55

Results that i expect:

(Workbook A)

Name	Birthday	Gender
Dylon	15 December 1992	Male
Angel	10 Jan 1988	Female
Cassy	30 November 1995	Female
Benjamin	20 February 1988	Male

If possible, any kind souls able to help me out with this creating the workbooks for me? Very much appreciated and thanks in advance everybody!

Maybe:

Sub elizevonne()
Dim x As Long, y As Range, wbkA As Workbook, wbkB As Workbook
Set wbkA = Workbooks("Workbook A.xls")
Set wbkB = Workbooks("Workbook B.xls")
With wbkA.Sheets("Sheet1")
For i = 2 To .Range("A" & Rows.Count).End(3).row
    Set y = wbkB.Sheets("Sheet1").Columns(1).Find(.Cells(i, "A").Value, LookIn:=xlValues, lookat:=xlWhole)
        If Not y Is Nothing Then
            .Cells(i, "B") = wbkB.Sheets("Sheet1").Cells(y.row, "B")
            .Cells(i, "C") = wbkB.Sheets("Sheet1").Cells(y.row, "D")
        End If
    Set y = Nothing
Next i
.Columns(2).NumberFormat = "[$-409]d-mmm-yy;@"
End With
End Sub