Проблема с Combobox и TextBox

[ARud]

Ребята привет,
помогите плиз в приложенной форме, чтобы при выборе табельного номера, в форме, в textbox поле, появлялись фамилия и имя, что внесено как данные на странице excel.

смотрите вложенный файл

спасибо большое!!!

[EducatedFool]

Вот весь код:

Private Sub ComboBox1_Change()
    On Error Resume Next
    Me.TextBox1 = "": Me.TextBox2 = ""
    Dim cell As Range: Set cell = [c:c].Find(Me.ComboBox1, , , xlWhole)
    Me.TextBox1 = cell.EntireRow.Cells(1): Me.TextBox2 = cell.EntireRow.Cells(2)
End Sub

Пример файла:

[doober]

См.вложение.Первое,что пришло в голову

[Maxx]

Ну и до кучи мое неочень оптимальное решение :

Private Sub ComboBox1_Change()
    x = UserForm1.ComboBox1.Value
    Range([C2], Cells(Cells(Rows.Count, "C").End(xlUp).Row, "C")).Find(x).Select
    UserForm1.TextBox1.Value = ActiveCell.Offset(0, -2)
    UserForm1.TextBox2.Value = ActiveCell.Offset(0, -1)
End Sub

Private Sub UserForm_Activate()
Application.ScreenUpdating = False
    Sheets("Test").Select

    Dim r As Range, vars As Variant
    Set r = Range([C2], Cells(Cells(Rows.Count, "C").End(xlUp).Row, "C"))

    For Each vars In r
        UserForm1.ComboBox1.AddItem (vars)
    Next vars

Application.ScreenUpdating = True
End Sub

Private Sub UserForm_Activate() позволит заполнить комбобокс независимо от того, сколько ячеек заполнено в столбце C.

[ARud]

Спасибо народ!!!