ordenar alfabeticamente un combobox

¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
Hola!

a mi se me ocurre hacerlo así
http://www.mvp-access.com/emilio/Ex...binado.zip

metiendo sus datos en una matriz, ordenandola y reconstruir el cuadro
combinado.

Saludos a
Emilio
miliuco56 ALGARROBA hotmail.com
http://www.mvp-access.com/foro
http://www.mvp-access.com/emilio


"Zoraida" escribió en el mensaje
news:
Hola

Alguien sabe ¿como se hace para ordenar un combo alfabeticamente
utilizando macros?, la propiedad sorted solo es valida en visual basic
6 y en la compatible con excel no funciona.
¿Existe otra forma?

Muchas gracias

hola, Zoraida !

Alguien sabe como se hace para ordenar un combo alfabeticamente utilizando macros?
la propiedad sorted solo es valida en visual basic 6 y en la compatible con excel no funciona.
Existe otra forma?

seria bueno si comentas 'de donde' [o como] se llenan los datos del combo :))
en via de mientras... el siguiente ejemplo, con un listado de 10,000 elementos de los cuales existen 300 'unicos'...
-> carga el listado ordenado al combobox1 de un userform1, en 'cosa de... un suspiro' :))

-> los supuestos son:
a) los datos se toman de la columna 'D' y la celda 'D1' son titulos o encabezados [necesarios para filtro avanzado]
b) la columna 'libre' a donde se pasan los 'unicos' es la columna 'H'
la macro filtra los unicos a la columna 'H', los ordena, y los pasa 'directo' al combobox ;)

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

la fraccion del codigo en un modulo 'X' que -en su caso- utiliza a la hoja activa == [h:h].ClearContents
Range([d1], [d65536].End(xlUp)).AdvancedFilter xlFilterCopy, , [h1], True
[h2].Sort Key1:=[h2], Order1:=xlAscending, Header:=True
With UserForm1.ComboBox1
.Clear
.List = Range([h2], [h65536].End(xlUp)).Value
End With