Codigo VBA para realizar búsqueda de datos de una hoja de excel en un formulario, seleccionando de un combobox?

Todo expertos, mi duda es la siguiente:

Tengo 1 hoja de excel con nombres de personas en la primera columna y en 11 columnas mas todos los datos correspondientes al nombre de la persona, he hecho una "Pagina inicio" que permite abrir un formulario en el cual quiero que dependiendo del nombre seleccionado (en un combobox) me muestre los 11 datos restantes en textboxs, he buscado el código necesario para esto y no lo encuentro, no es posible realizarlo en access ya que me lo solicitaron en excel.

2 respuestas

Respuesta
4

Pon lo siguiente en tu formulario

Private Sub ComboBox1_Change()
'Por.Dante Amor
    Set h1 = Sheets("Hoja1")
    f = ComboBox1.ListIndex + 2
    For i = 1 To 11
        Controls("TextBox" & i) = h1.Cells(f, i + 1)
    Next
End Sub
Private Sub UserForm_Activate()
'Por.Dante Amor
    Set h1 = Sheets("Hoja1")
    u = h1.Range("A" & Rows.Count).End(xlUp).Row
    ComboBox1.RowSource = h1.Name & "!A2:A" & u
End Sub

Si los textbox no los tienes consecutivos, entonces cambia el evento change por esto

Private Sub ComboBox1_Change()
'Por.Dante Amor
    Set h1 = Sheets("Hoja1")
    f = ComboBox1.ListIndex + 2
    TextBox1 = h1.Cells(f, "B")
    TextBox2 = h1.Cells(f, "C")
    TextBox3 = h1.Cells(f, "D")
    TextBox4 = h1.Cells(f, "E")
    TextBox5 = h1.Cells(f, "F")
    TextBox6 = h1.Cells(f, "G")
    TextBox7 = h1.Cells(f, "H")
    TextBox8 = h1.Cells(f, "I")
    TextBox9 = h1.Cells(f, "J")
    TextBox10 = h1.Cells(f, "K")
    TextBox11 = h1.Cells(f, "L")
End Sub

Te anexo mi archivo para que veas el funcionamiento.

https://www.dropbox.com/s/ubtm207mjlxsq64/combo%20y%20textobox.xlsm?dl=0 

Respuesta
2

COMBOBOX lo llamaremos combobox2, al hacerle click:

Private Sub ComboBox2_Enter()
On Error Resume Next
Application.ScreenUpdating = False
ComboBox2.Clear
Sheets(hoja_elegida).Select
Range("A1").Select
Do While Not IsEmpty(ActiveCell)
  If InStr(datos, ActiveCell) = 0 Then
    datos = datos & "," & ActiveCell
  End If
  ActiveCell.Offset(1, 0).Select
Loop
datos = Right(datos, Len(datos) - 1)
dato_individual = Split(datos, ",")
For i = 0 To UBound(dato_individual)
ComboBox2.AddItem dato_individual(i)
Next
Application.ScreenUpdating = True
End Sub

Al elegir el dato:

Private Sub ComboBox2_Change()
On Error Resume Next
dato_elegido = ComboBox2.List(ComboBox2.ListIndex)
Cells.Find(What:=dato_elegido).Activate
textbox1.value = activecell.offset(0,1).value
textbox2.value = activecell.offset(0,2).value
textbox3.value = activecell.offset(0,3).value
textbox4.value = activecell.offset(0,4).value
End Sub

También puedes usar variables dependerá de lo que necesites.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Corregir macro para que pegue los datos modificados en base de datos.

He tratado de buscarle el simple error a esta macro pero solo con el apoyo de expertos lograré la solución. Es una agenda de nombres y datos generales por municipio; uno en cada hoja. Con el CmdBtn1, ingresa perfectamente los datos y ordena por...
1 respuesta

Encontrar dato y modificar "fila" mediante Userform

De todoexpertos, tengo un problema que aun no le he podido dar solución, bien les explicare tengo una hoja donde esta la base de datos de alumnos(que esta oculta) que tengo (nombre, apellido, asistencia, 1 examen, 2 examen, 3 examen, Estado), y he...
1 respuesta

Combobox que dependa de otro y me de resultados en un textbox.

Te queria preguntar, ya habiendo agregado un combobox sin que me repita datos y que me de la suma total de valores en un textbox por mes como le hago si quiero colocar otro combobox que me deje escoger la región donde se vendió el producto, como...
1 respuesta

Como guardar el valor de un textbox dependiendo de la selección de un combobox

Tengo un formulario y dentro de el tengo un textbox vacío y un combobox con varias opciones que toma de la fila 1. Se supone que en este formulario tengo que elegir una opción del combobox y en seguida agregarle una descripción, me gustaría saber...
2 respuestas

¿Como enlazar Combobox dependientes y unir con Textbox al finalizar filtro?

Soy bastante novato y estoy aprendiendo sobre este lenguaje. Tengo un formulario en cual tengo 6 combobox los cuales están enlazados entre sí, es decir, cuando selecciono algún valor en el primer combobox este condiciona el segundo y así...
1 respuesta

Combobox sin repetir dato y con celdas vacías

Espero logres ayudarme si te es posible con esta duda, veras tengo un userform con 2 combobox uno para mostrarme las hojas de calculo y otro para mostrarme lo valores de las celdas de la columna "B" a partir del B3 sin repetir los valores..: ....
1 respuesta

Cómo cargar un combobox2 de un formulario dependiendo del combobox1

Tengo el siguiente código para cargar los datos únicos en un combobox. Lo que ahora necesito es que al seleccionar un dato del combobox1, busque todas las marcas que de ese combobox y cargue el tipo de la columna de a un lado en el combobox2. Y...
1 respuesta

Comportamiento irregular de una macro dentro de un formulario

Mi consulta trata de encontrar una macro que actualice los nombres de los clientes en la hoja Pedidos, cuando se modifican en la hoja Clientes. En la pregunta realizada anteriormente “Actualizar datos de una hoja a otra”, la rutina propuesta funciona...
2 respuestas

Tres ComboBox Dependientes

Mi inquietud es sobre lo siguiente deseo hacer un archivo en excel el cual contiene tres combobox dependientes, en el primero seleccionar el Estado, el segundo seleccionar las Ciudades del Estado seleccionado y en el tercer los barrios de la ciudad...
1 respuesta

Excel - Copiar Ciertos Datos de una Excel a Otra Excel

Quiero copiar ciertos datos de una excel a otra excel al pulsar el boton. Necesito que cuando estoy sobre una celda del libro origen, y pulso el botón, coja ciertas celdas relativas a la que me encuentro y las copie en otra hoja excel que tengo en...
1 respuesta