Buscar dato y mostrarlo con más datos
Hola,
tengo una base de datos muy grande de Clientes
Lo que quiero hacer es asignar un código único a cada uno y usar ese código para buscarlo con inputbox y mostrarlo en msgbox con TODOS sus datos: Nombre, Dirección, Teléfono, Correo y más.
Espero me puedan ayudar estaré muy agradecido
1 Respuesta
Tu base necesita entonces de 1 col para los códigos, imaginemos que sea la col A
Te sugiero utilizar una hoja de consulta, o un sector de una hoja de trabajo distinta a la base donde en 1 celda colocarás el cód, x ej en A1 y en el resto de la fila, en cada celda una función buscarv (o consultav) para obtener los otros campos.
Si de todos modos preferís solicitar el código por Inputbox sería:
codi = inputbox("Ingresa el código a buscar"
if codi <> "" then sheets("aux"),range("A1") = codi
'ya pasé el código a la celda y como el resto tenía función ya podes mostrar el resultado en el msgbox:
Msgbox Sheets("aux").range("B1").value & " " & sheets("aux").range("C1")
Allí le agregás todas las celdas . Probalo y si te queda alguna duda podés solicitar aclaraciones. Si el tema queda resuelto no olvides FINALIZAR
PD) queda solo 1 semana para que termine la promo de los manuales 2010 !
