Populate to Sheet 2 from information on Sheet 1

[NY_Rican]

Sheet 1 has column A, with a list of names...column B has the list of ID numbers that correspond to each name. Sheet 2 Column A has a data validation list, which was created from the names on Sheet 1, column A. Sheet 2 column B is blank. I would like to choose a name from Column A in Sheet 2 and have the corresponding ID number from Column B in Sheet 1, populate to Column B in Sheet 2. I hope I'm clear. Thank you in advance.

 

[mumps]

Copy and paste this macro into the worksheet code module. Do the following: right click the tab name for your Sheet2 and click 'View Code'. Paste the macro into the empty code window that opens up. Close the code window to return to your sheet. Make a selection in column A of Sheet2.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
    Dim rName As Range
    Set rName = Sheets("Sheet1").Range("A:A").Find(Target.Value, LookIn:=xlValues, lookat:=xlWhole)
    If Not rName Is Nothing Then
        Target.Offset(, 1) = rName.Offset(, 1)
    End If
End Sub

 

[NY_Rican]

Copy and paste this macro into the worksheet code module. Do the following: right click the tab name for your Sheet2 and click 'View Code'. Paste the macro into the empty code window that opens up. Close the code window to return to your sheet. Make a selection in column A of Sheet2.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
    Dim rName As Range
    Set rName = Sheets("Sheet1").Range("A:A").Find(Target.Value, LookIn:=xlValues, lookat:=xlWhole)
    If Not rName Is Nothing Then
        Target.Offset(, 1) = rName.Offset(, 1)
    End If
End Sub

Oh yes !!! I have the Mumps !!!! Thank you brother

 

[mumps]

You are very welcome.