¿Como llenar uno UserForm de manera automática con datos de una hoja de Excel?

[Hola 

Que no nombre tienen tus controles

Te paso la macro, pon esto el evento clic del combobox.

Cambia el nombre de la hoja no estoy seguro si puse bien y también los controles combobox, textbox

Private Sub ComboBox1_Click()
'
'***Por Adriel Ortiz
    Set h1 = Sheets("Base de datos empleado")
    Set r = h1.Columns("B")
    Set b = r.Find(ComboBox1, lookat:=xlWhole)
    If Not b Is Nothing Then
        TextBox1 = Cells(b.Row, "B")
        TextBox2 = Cells(b.Row, "C")
        TextBox3 = Cells(b.Row, "D")
        TextBox4 = Cells(b.Row, "E")
        Else
        MsgBox "No existe"
    End If
End Sub

¡Gracias! 

Mira esto es lo que tengo dentro del UserForm 

Había puesto la búsqueda en la columna B, te paso la macro actualizada.

Quita la macro de initialize y pon la segunda macro en el evento Activate del formulario

Private Sub ComboBox1_Click()
'
'***Por Adriel Ortiz
    Set h1 = Sheets("Hoja1")
    Set r = h1.Columns("A")
    Set b = r.Find(ComboBox1, lookat:=xlWhole)
    If Not b Is Nothing Then
        TextBox1 = Cells(b.Row, "B")
        TextBox2 = Cells(b.Row, "C")
        TextBox3 = Cells(b.Row, "D")
        TextBox4 = Cells(b.Row, "E")
        Else
        MsgBox "No existe"
    End If
End Sub

Private Sub UserForm_Activate()
Set h1 = Sheets("Hoja1")
For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row
    ComboBox1.AddItem h1.Cells(i, "A")
Next i
End Sub

Creo que ya lo hice de la manera en que tu me lo muestras pero me arroja un error al parecer por no especificar algún rango o tipo de variable 

Cambia el nombre de la hoja yo puse hoja1

¡Gracias! 

En efecto mi error era el nombre de mi hoja.

Hola buenos días, una pregunta,como puedo usar dos ComboBox en un mismo UserFrom?

El primero si me arroja los datos de manera automática pero el segundo no he podido hacer que funcione de la misma manera.