Macro para seleccionar dato de un listbox, buscar el dato en una Base de Datos y señalar la fila
Tratare de ser claro y explicarme lo mejor posible.
Existe este formulario
Y una vez el usuario llene las listas desplegables le quedar algo así
Como notaran la listbox es con opciones, y lo que necesito es que cuando el seleccione una de esas opciones y le de click al botón "Ver APU" el programa se vaya a la base de datos busque el item (Por código seria lo mas fácil y apropiado) que el selecciono y se lo señale de la siguiente forma, por ejemplo el usuario selecciono el ítem con el código 4040301, el programa debe ir a la base de datos buscar ese código y mostrar esto:
2 Respuestas
Respuesta de Dante Amor
2
Te anexo el código
Private Sub CommandButton1_Click()
If ListBox1.ListIndex = -1 Then
MsgBox "Selecciona un registro del list"
Exit Sub
End If
'
codigo = Val(ListBox1.List(ListBox1.ListIndex, 0))
Set h = Sheets("APU")
Set b = h.Columns("B").Find(codigo, lookat:=xlWhole)
If Not b Is Nothing Then
h.Select
h.Range("B" & b.Row & ":P" & b.Row).Select
Unload Me
Else
MsgBox "El código no existe"
End If
End SubCambia "listbox1" por el nombre de tu listbox.
.
.
Respuesta de Programar Excel
1
