¿Como llenar uno UserForm de manera automática con datos de una hoja de Excel?
Tengo una base de datos en Excel y un menú desplegable en un UserForm, lo que quiero saber es como le hago para que, ¿a la hora de elegir un valor de mi lista desplegable se muestren de manera automática los demás datos?
Por ejemplo; al elegir el numero de licencia deseo que se muestren de manera automática los campos de nombre, tipo de licencia, edad y experiencia
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 SubPrivate 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.
Cuenta con mi apoyo pero crea una nueva pregunta saludos!
