En un formulario; cargue un combobox todos los gerentes y en otro todos lo cajeros

En la columna A tengo los nombres y en la columna B los puestos:Gerente, cajero; lo que necesito es que en un combobox cargue los nombres de los gerentes y en otro combobox cargue los nombres de los cajeros automáticamente.

2 respuestas

Respuesta
3

H   o l a:

Te anexo el código, para que lo pongas dentro de tu userform.

Cambia en el código "Datos" por el nombre de la hoja donde tienes tus datos

En el combobox1 te va a cargar los nombres de los "gerentes" y en el combobox2 los nombres de los cajeros.

Private Sub UserForm_Activate()
'---
'   Por.Dante Amor
'---
    Set h1 = Sheets("Datos")
    For i = 1 To h1.Range("A" & Rows.Count).End(xlUp).Row
        Select Case LCase(h1.Cells(i, "B"))
            Case "gerente"
                ComboBox1.AddItem h1.Cells(i, "A")
            Case "cajero"
                ComboBox2.AddItem h1.Cells(i, "A")
        End Select
    Next
End Sub

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
Respuesta
2

H o l a 

te paso la macro.

Private Sub UserForm_Initialize()
'//Por Aortiz
Set h1 = Sheets("Hoja1")
'
For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row
ComboBox1.AddItem h1.Cells(i, "A")
ComboBox2.AddItem h1.Cells(i, "B")
Next i
'
End Sub

Valora la respuesta para finalizar saludos!

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas