De una tabla cargar registros a un combobox

H o l a:

Entonces los nombres que digan "cajero" se cargan el combobox1 y los que digan "encargado" se cargan en el combo2.

Te anexo la macro para que la pongas en un módulo, cambia en la macro"Hoja1" por el nombre de la hoja donde tienes los nombres; cambia "Hoja2" por el nombre de la hoja donde tienes los combos, cambia "Tabla1" por el nombre de tu tabla, cambia combobox1 y combobox2 por los nombres de tus combos.

Sub CargarCombos()
'Por.Dante Amor
    Set h1 = Sheets("Hoja1")
    Set h2 = Sheets("Hoja2")
    Set r = h1.Range("Tabla1")
    f = r.Cells(1, 1).Row
    c = r.Cells(1, 1).Column
    h2.ComboBox1.Clear
    h2.ComboBox2.Clear
    Do While h1.Cells(f, c) <> ""
        Select Case h1.Cells(f, c + 1)
            Case "cajero": h2.ComboBox1.AddItem h1.Cells(f, c)
            Case "encargado": h2.ComboBox2.AddItem h1.Cells(f, c)
        End Select
        f = f + 1
    Loop
End Sub

Sigue las Instrucciones para poner la macro en un módulo:

1. Abre tu archivo de excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. En el menú elige Insertar / Módulo
4. En el panel del lado derecho copia la macro

Para que los combos se carguen en automático pon el siguiente código en los eventos de ThisWorkbook

Private Sub Workbook_Open()
'Por.Dante Amor
    CargarCombos
End Sub
'
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'Por.Dante Amor
    If Sh.Name = "Hoja2" Then
        CargarCombos
    End If
End Sub

Instrucciones para poner la macro en los eventos ThisWorkbook

1. Abre tu libro de excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. Del lado izquierdo dice: VBAProject, abajo dale doble click a ThisWorkbook
4. Del lado derecho copia la macro

:)
S aludos. D a n t e A m o r. Recuerda valorar la respuesta. G r a c i a s
;)