4 combobox dependientes en un userform

Tengo un primer combobox1 donde se van a cargar dos nombres:willian, jose

Como hago para que al seleccionar willian en el combobox2 me cargue mi apellido=vargas

Y en el tercer combobox3 me cargue mi segundo apellido=ramírez, en el cuarto combobox me cargue mi profesión=electrónico.

Y si selecciono jose en el primer combobox, que en el segundo combobox2 me cargue su

apellido=rodriguez y en el tercer combobox3 me cargue su otro apellido=linares,

Y en el cuarto combobox4 me cargue su profesión=electricista

1 respuesta

Respuesta
2

Espero estés bien.

Te adjunto un linck con el ejemplo.

Para armarlo se necesitan, listas de nombres, nombre de rangos y un pequeño código de VBA.

Si necesitas alguna aclaración de como o porque se hace no dudes en consultar.

https://www.dropbox.com/s/9gff33utbznrbdm/Ejemplo%20de%20Autocompletar%20TextBox.xlsm

Bendiciones!

Lucas.

buenas tardes gracias por su ayuda y me ha ayudado bastante ,por favor me gustaría

que me explicara a detalle lo que hace el código q realmente no lo entiendo.

gracias por su ayuda.

saludos,willian desde perú....!!

Espero estés bien.

Te cuento que se creo una macro para que abra un formulario.

Sub Abrir()
UserForm1.Show
End Sub

Se creo en la hoja de datos una tabla. De la misma tabla se obtienen dos listas. "Nombre" y "Rangos".

Se creo un ComboBox y 3 TextBox. A la instrucción de Exit del ComboBox (esto quiere decir, que suceda luego que salgo del ComboBox) se crea el siguiente código:

Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dato = ComboBox1
Set Busco = Sheets("Hoja1").Range("Rango").Find(Dato, LookIn:=xlValues, lookat:=xlWhole)
If Not Busco Is Nothing Then
TextBox1 = Busco.Offset(0, 1)
TextBox2 = Busco.Offset(0, 2)
TextBox3 = Busco.Offset(0, 3)
Else
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
End If
End Sub

Se determina el "Dato". Va a estar ubicado en ComboBox1

Luego se una una instrucción de buscqueda, en Hoja 1, en el "Rango". Si encuentra el dato Then (entonces) completar el TextBox 1 con la celda donde esta "Busco" pero una mas a la derecha, por eso Busco.Offset (0,1). Lo mismo con el 2 y el 3.

Si no encuentra el valor "Busco" entonces deja los TextBox = "" (nada).

Bendiciones!

Lucas.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Crear Formulario Excel (ayuda a un principiante)

Gurús del excel, estoy trabajando en un formulario de ingreso de datos y mi intención es aprender todo sobre la herramientas de formularios. El objetivo del formulario es entregar un código al usuario que lo ejecute y almacenar en otra hoja los datos...
1 respuesta

Copiar datos a hojas desde formulario con 2 paginas

Tengo un UserForm que quiero utilizar como formulario, para introducir datos a dos hojas distintas (Hoja1 y Hoja2); de tal manera que los datos que introduzca en los distintos TextBox y ComboBox, de la "Page1" del UserForm se copien en la Hoja1; y...
1 respuesta

De un elemento de ComboBox llenar un textBox

Tengo un ComboBox que lo lleno de un rango de datos que están en una columna (a) ya teniendo esto deseo llenar 2 textbox de acuerdo a la posición que tiene el ComboBox... Ejemplo: A B C 1 351 daniel manzano moreno 2 352 adrian quaas blanco 3 5402...
1 respuesta

Imprimir los datos de consulta

Ahora puedes ayudarme... Mira Tengo la siguiente consulta... Lo que quiero es esta misma consulta imprimirla, que ya no se envíe a pantalla sino a la impresora... Besos Private Sub CommandButton1_Click() On Error GoTo noencontro...
1 respuesta

¿Cómo hago para añadir en una nueva hoja de calculo?VBA

Tengo el siguiente código que copie de un ejemplo que descargue pero cuando quiero añadir lo que hace es hacerlo en la misma hoja de calculo toda la información de las textbox, ¿Cómo haría para hacer que cada vez que añada un nuevo cliente aparezca...
3 respuestas

Crear un filtro para un combobox

Algún experto que me pueda ayudar con este detalle, tengo 2 combobox en un userform en el primero quiero que me filtre por familias( a, b, .. F) y en el segundo combo muestre las claves que pertenezca a la familia elegida. Yo lo inicialice en el form...
1 respuesta

VBA excel: autofiltro con varias condiciones

He hecho un formulario de carga de datos de comprobantes, el cual tiene unos 30 campos entre textbox y combobox. Quisiera saber como puedo hacer para poder buscar un comprobante ya almacenado con hasta 4 datos de búsqueda. Por ejemplo: necesito poder...
1 respuesta

Impedir registros repetidos considerando 2 columnas

En una Hoja Excel, a modo de base de datos, utilizo un UserForm para ingresar estos datos. Nos centraremos en las columnas"A" y "B" que es donde me surgen los problemas. En la Columna "A" van números de registro y en la "B", la fecha en la que se...
1 respuesta

Necesito un código en visual basic 6.0 para copiar información de celdas en varios textbox

Tengo una macro que carga un formulario y cuando este se carga copia la información de varias celdas, organizadas horizontalmente, a varios controles (textbox y combobox). El código que tengo es ActiveCell.Offset(0, 1).Select txtfechalec = ActiveCell...
1 respuesta