Combobox con datos únicos

[andrestorales]

Hola a todos.
En el ejemplo que adjunto necesito que el cuadro de lista del formulario me cargue los valores de la columna CIUDADES y me los presente sin repetir y sin tener en cuenta los blancos...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Sustituye tu código por este.
Uso la columna C como columna columna de trabajo.

Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
Columns("A").Copy
With Columns("C")...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[FGV]

Hola @andrestorales (y Antoni),
Algo más clásico (y con el esquema del original), ya que lo he hecho:

Private Sub UserForm_Initialize()
    Dim wsHoja As Worksheet...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[andrestorales]

Hola @andrestorales (y Antoni),
Algo más clásico (y con el esquema del original), ya que lo he hecho:

Private Sub...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[andrestorales]

Sustituye tu código por este.
Uso la columna C como columna columna de trabajo.

Private Sub UserForm_Initialize()...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[FGV]

Gracias, Fernando. No recoge los blancos pero siguen apareciendo duplicadas las ciudades.

No vi lo de los repetidos... La de Antoni...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Adrian]

Hola, subo alternativa.

 

[Adrian]

Otra forma

 

[FGV]

Me encanta la increíble versatilidad de VBA. Un saludo, Fernando

 

[Gabriel Raigosa]

Sustituye tu código por este.

Hola,

He probado el código y pierde un registro - "Albacete"

[ATTACH type="full"...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Gabriel Raigosa]

Con truco...
Usando una lista de provincias únicas, ordenadas y sin celdas vacías

Sin permisos de acceso

La lista se ubica una hoja que puede ir oculta, ya que usa una...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Adrian]

Pequeños y sutiles "retoques"

 

[Macro Antonio]

Hola,

He probado el código y pierde un registro - "Albacete"

Sin permisos de acceso

Y El titulo pasa a ser parte de los datos...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Gracias, Macro Antonio. Perfecto con ordenación añadida, pero aparece la cabecera: en este caso "Provincia"

​

...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[FGV]

Hola a todos,
Estoy encantado con la dinámica de aprendizaje de este post. He visto que en lugar de Script.Dictionary puede ser mejor utilizar New Collection, ya que directamente...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[andrestorales]

Unos genios. De verdad, muy agradecido. No pensé que este tema diera para tanto. Mil gracias.