Vincular Combobox, para lllamar los datos a una celda

19/09/2005 - 21:48 por Jesus Peralta | Informe spam
Que tal amigos del foro y a la maestros de excel,.. saludos.

Me pordian ayudar, ya le di algunas y grandes vueltas a un comobobox pero no
le encuentro bien. haber,...

tengo mi combobox, dentro de el tengo una lista que llama de la hoja LISTA,
ahi tengo Nombre || Direccion || Telefono || son 7 campos en total , el
combobox que realize me llama la LISTA con los datos del Nombre, .. se
podra? al momento de que seleccione el nombre por medio del combobox me
llame en la hoja que es donde lo tengo el Combobox BUSQUEDA , ponga por
ejemplo con seleccionar nombre en el combobox, me ponga en la celda A5
Direccion. B5 Casa Tel.Celular C5 Tel. Casa D5 Fecha Nacimiento E5 Lugar
Nacimiento F5Comentarios.

Muchas gracias por su ayuda,.. y como simpre un gran saludo.
 

Leer las respuestas

#1 Héctor Miguel
20/09/2005 - 08:25 | Informe spam
hola, Jesus !

... combobox... lista que llama de la hoja LISTA... Nombre || Direccion || Telefono || son 7 campos en total
... llama la LISTA con los datos del Nombre
... al momento de que seleccione el nombre... en la hoja... donde... tengo el Combobox
... ponga en... A5 Direccion. B5 Casa Tel.Celular C5 Tel. Casa D5 Fecha Nacimiento E5 Lugar Nacimiento F5 Comentarios.



estoy suponiendo que el listado [en la hoja 'lista'] tiene un nombre [digamos... 'listado'] que incluye a las 7 columnas ;)

op1: si el combo es de la barra de herramientas 'formularios' y que la celda 'vinculada' al control fuera 'B2' -?-
prueba con las siguientes formulas [NO macros]...
[A5] =indice(listado,$b$2,columna()+1) [y la copias hasta 'F5'] ;)

op2: si el combo es de la barra de herramientas 'cuadro de controles' y que se llama 'ComboBox1'...
y que en la propiedad 'ColumnCount' le has especificado que son 7 campos
puedes establecer los anchos +/- en: 24,95 pt;0 pt;0 pt;0 pt;0 pt;0 pt;0 pt [para que solo 'muestre' el primer campo]
y prueba con las siguientes macro-lineas
en el modulo de codigo de 'la hoja' donde esta incrustado el combo ==Private Sub ComboBox1_Change()
With ComboBox1
Range("a5:f5") = Array( _
.List(.ListIndex, 1), _
.List(.ListIndex, 2), _
.List(.ListIndex, 3), _
.List(.ListIndex, 4), _
.List(.ListIndex, 5), _
.List(.ListIndex, 6))
End With
SendKeys "{esc}"
End Sub

si cualquier duda... informacion adicional... o mis supuestos no son acertados...
comentas?
saludos,
hector.

Preguntas similares