Ayuda Foro: Combobox inteligente !

18/10/2004 - 19:13 por Evacolors | Informe spam
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

Preguntas similare

Leer las respuestas

#1 Adolfo Aparicio
18/10/2004 - 23:55 | Informe spam
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



Respuesta Responder a este mensaje
#2 Evacolors
19/10/2004 - 16:53 | Informe spam
Señor es usted un genio y le agradezco muchisimo la molestia que se tomo al
responderme, estoy a sus ordenes en lo poco que yo le pudiera ayudar.

Gracias y Reciba un caluroso saludo desde Leon, Gto, Mexico


"Adolfo Aparicio" escribió en el
mensaje news:
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



email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida