añadir y ordenar un combobox estando Runtime

[mgcarbajal]

Hola que tal
LLeno mi combobox al iniciar el userform y toma los valores de una columna de una hoja especifica y voy descartando al mismo tiempo los elementos duplicados.(estoy manejando en todos...

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í

 

[cubaezb]

Buen dí­a
Creo que esto es lo que estás buscando. Solo ajústalo un poco

 Private Sub UserForm_Activate()
ThisWorkbook.Sheets(1).Activate
Label2.Visible = True
TextBox2.Visible = True...

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]

Una alternativa es ordenar la lista si esta en una hoja, si por ejemplo sabemos que la lista que carga el controlesta en A1:A12, ordenamos allí­:

Range("A1:A12").Select
Selection.Sort...

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í

 

[mgcarbajal]

Gracias por el código cubaezb pero no entiendo en que parte se ordenan los datos que se agregan al rango, podrias ayudarme a entender tu proceso.



Gracias Adrian por la sugerencia el...

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í

 

[cubaezb]

Sólo te dije cómo usar un arreglo para cargar un combobox pero si quieres podrí­as publicar el código con el que buscas los valores diferentes y te digo que cambios hay que hacerle para que el...

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í

 

[mgcarbajal]

Parte del código que utilizo
For Each z In Lrange

For j = 0 To CBxdepto.ListCount - 1
If z.Value = CBxdepto.List(j) Then Exit For...

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í