Ayuda Foro: Combobox inteligente !

Hola.

Se puede hacer lo que quieres, pero necesitas seguir unos cuantos pasos.

1. En la hoja 1 escribe tu tabla poniendo como primera columna los números
del 1 al n. La columna B serán los nobres y la columna C los códigos.

2. El combobox me imagino que lo quieres relacionar únicamente con la
columna correspondiente a los nombres de las personas.

3. En el combobox pon la célda con la que se vincula (la D3, por ejemplo).
De esta forma si se elige en el combobox la quinta opción aparecerá en la
célda un 5.

4. Ahora debemos usar un BuscarV para convertir ese 5 en el ´codigo. En la
celda D4 pon la fórmula:
=BUSCARV(D3;Hoja1!A2:C5;2;0)
Con esto hemos conseguido que en la celda D4 aparezca el código que
correponde al nombre cada vez que se elige una opción en el combobox.

5. Ahora hemos de hacer una pequeña macro que haga que el valor de la celda
D4 se copie a la derecha de la celda activa. La macro es muy facil.

Sub copia()
Worksheets("Hoja2").Select
ActiveCell.Offset(0, 1).Value = Range("D4").Value
End Sub

6. Finalmente debes pulsar con el botón derecho del ratón sobre el combobox
y asignarle la macro que has creado, que se llama copia().

Pruebalo y verás que funciona de maravilla.

Un saludo.

Adolfo Aparicio
mi página: www.excelavanzado.com







"Evacolors" wrote:

Hola, antes que nada felicidades a este foro, he aprendido varios tips y
trucos. Por esto acudo a ustedes ya que no se mucho de programacion en
excel, y quisiera me ayudaran con lo siguiente.

Tengo un libro, en una hoja(hoja1) tengo una pequeña base de datos
COLUMNA-A COLUMNA-B
121 JUAN
229 SANDRA
342 OSCAR
478 LUPITA



En otra hoja (hoja2) puse un combobox en la celda A1, ahi le especifique el
rango de datos hoja1!A2:B10.

Lo que quisiera hacer es poner el cursor en una celda, p,ej la A10 y
seleccionar el tercer nombre del combobox (que el combobox muestre "OSCAR")
y que en la celda derecha B10 coloque su clave (342),

Esto mismo repetirlo en la celda de abajo A11, seleccionar otro nombre del
combobox y que en la celda derecha B11 coloque su clave,

Esto mismo hacerlo cuantas veces desee

De antemano muchas gracias por su ayuda