............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Añadir datos automáticamente a una lista desplegable

Ver el tema anterior Ver el tema siguiente Ir abajo

Añadir datos automáticamente a una lista desplegable

Mensaje por pedrosilv el Mar Jun 23, 2009 4:45 pm

Hola de nuevo a todos...

Espero no aburrirlos con consultas casi a cada rato.

Mi consulta, ahora, va enfocada a listas desplegables.. En el siguiente documento presento el archivo en el que tengo problemas
[Tienes que estar registrado y conectado para ver este vínculo]

El ejemplo que muestro trata de lo siguiente: En el rango A1:A10 tengo un listado de nombres de personas, las que quiero visualizar en una lista desplegable en la celda D1, pero también quisiera que si en dicho listado no apareciera algún nombre, desde la lista desplegable en D1 se pueda escribir el nuevo nombre y que este automáticamente se agregue en la primera fila vacía de la columna A, que en este caso, sería a partir de A11.

Para lo anterior, a partir de la celda A11 escribo la sigueinte formula: =si(o($D$1="",CONTAR.S($A$1:A10,$d$1)),"x",$d$1) y la arrastro hasta la celda A50.
Como segundo paso defino un nombre para el listado que me servirá visualizar en D1(en mi caso le pongo un nombre MiLista): y agrego la siguiente función =DESREF(Hoja1!$A$1,0,0,CONTAR.SI (Hoja1!$A;$A,"<>x"),1)

En D1 agrego la Lista, y finalmente voy al editor de visual basic y agrego lo siguiente:
Private Sub Worksheet_Calculate()
On Error Resume Next
Application.EnableEvents = False
Range("MiLista") = Range("MiLista").Value
Application.EnableEvents = True
On Error GoTo 0

End Sub


Pues bien, al probar con el primer nombre funciona a la perfección, ya que éste se agrega a la columna de A, pero el problema surge cuando yo quiero agregar un segundo nombre, ya que se queda estático el procedimiento y el nombre ya no se agrega a la columna A, en este caso sería en la celda A12.

Acudo al foro para ver si me pueden ayudar e indicarme porque no funciona el procedimiento y como corregirlo, o quizás exista otro proceso más eficiente.

De antemano, muchas gracias, y

saludos desde Guatemala

Att. Pedro Silvestre

PS: Mil disculpas GalileoGali si incluí un tema en este subforo, ya que también puede estar en Macros.
avatar
pedrosilv

Masculino Cantidad de envíos : 85
Edad : 32
Ciudad - Pais : Guatemala
Version de Excel : 2003-2007
Fecha de inscripción : 16/04/2009

Volver arriba Ir abajo

Re: Añadir datos automáticamente a una lista desplegable

Mensaje por GalileoGali el Mar Jun 23, 2009 7:01 pm

No he podio revisar, pero te sugiero dar vista a esto...
[Tienes que estar registrado y conectado para ver este vínculo]

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Añadir datos automáticamente a una lista desplegable

Mensaje por pedrosilv el Miér Jun 24, 2009 12:01 pm

Pues de nuevo, muchisimas gracias... como siempre, atinado con sus respuestas Galileo

Este documento funciona de maravillas.

Saludos desde Guatemala.

Att. Pedro Silvestre
avatar
pedrosilv

Masculino Cantidad de envíos : 85
Edad : 32
Ciudad - Pais : Guatemala
Version de Excel : 2003-2007
Fecha de inscripción : 16/04/2009

Volver arriba Ir abajo

Re: Añadir datos automáticamente a una lista desplegable

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.