Unicos en Combobox ActiveX

[Gerson Pineda]

Hola

En el enlace siguiente pueden obtener el archivo

.: Unicos en Combobox ActiveX

Espero sea útil!

Saludos

[Antoni]

Hola:

Otra opción con AdvancedFilter, pero filtrando sobre la última columna de la hoja, de esta forma podemos ordenar la lista por orden alfabético

Por supuesto que esa columna debe estar disponible.

Válido para todas las versiones de Excel.

La macro debe estar en la Hoja/Formulario en función de la ubicación del combobox.

Saludos

[SIZE=3][B]Sub Unicos_Combobox_MA[/B][/SIZE]()


[U][COLOR=#008000]'Obtenemos la dirección de la última columna[/COLOR][/U]

últimacolumna = Split(Cells(1, Columns.Count).Address, "$")(1)


[U][COLOR=#008000]'Filtramos sobre la última columna[/COLOR][/U]

Columns(1).AdvancedFilter xlFilterCopy, Unique:=True, CopyToRange:=Range(últimacolumna & "1")


[U][COLOR=#008000]'Obtenemos la última fila de datos del filtro[/COLOR][/U]

últimafila = Range(últimacolumna & Rows.Count).End(xlUp).Row


[COLOR=#008000]'Ordenamos y llenamos el combobox con el filtrado[/COLOR]

Columns(Columns.Count).Sort Key1:=Columns(Columns.Count)

ComboBox1.List() = Range(últimacolumna & "1:" & últimacolumna & últimafila).Value


[U][COLOR=#008000]'Eliminamos la última columna[/COLOR][/U]

Columns(Columns.Count).Delete


[B]End Sub[/B]

[/CODE]

[Gerson Pineda]

Antoni me gusta!, de hecho (tu propuesta) es la que mas utilizo... pero me propuse a trabajarlo desde la misma columna (en memoria), sin la necesidad de recurrir a otra parte de la hoja, el primer método que aplico es precisamente "AdvancedFilter", el segundo y muy conocido "Dictionary"

Saludos

[Onardem]

Hace unos dias estaba buscando algo parecido para un formulario que hice para un control de almacen, estudiare el codigo para aprender y aplicarlo.

Saludos.