Ordenar ComboBox

hola, Snash [¿danny?] !

como puedo ordenar los elementos listados en un combobox, existe alguna propiedad???

- ¿que 'tipo' de combo? [cuadro de controles... formularios]
- ¿de donde [y/o como] se 'cargan' los elementos en el combo?

¿comentas?
saludos,
hector.

Gracias Hector por contestar!!!

Ok lamento haber sido tan breve!!!

Bueno es un combobox tomado desde los controles y la forma en que cargo los
datos es por medio de un macro que busca valores con ciertas características
y los agrega al combo con el método AddItem.

Mi pregunta surge porque en Visual y Foxpro existe una propiedad para los
combos llamada Sort. Pero en Exel no la encontre.

Gracias por tu tiempo!!!




"Héctor Miguel" escribió en el mensaje
news:

hola, Snash [¿danny?] !

> como puedo ordenar los elementos listados en un combobox, existe alguna

propiedad???

- ¿que 'tipo' de combo? [cuadro de controles... formularios]
- ¿de donde [y/o como] se 'cargan' los elementos en el combo?

¿comentas?
saludos,
hector.

hola, Daniel !

Ok lamento haber sido tan breve!!!
... combobox ... de... controles ... cargo ... por ... macro ... valores con ciertas caracteristicas... con ... AddItem.
... en Visual y Foxpro existe una propiedad para los combos llamada Sort ... en Exel no la encontre.

[me parece que]... tampoco ahora has sido lo suficiente 'explicito' :((
[asi que]... tuve que 'inventar' [mis propias] situaciones, pero [creo que] el ejemplo te sera de utilidad :))
los 'supuestos' son:
- un combobox [de la barra de herramientas 'cuadro de controles'] llamado 'ComboBox1' =>incrustrado<= en 'Hoja1'
- se 'cargan' los elementos del rango 'A1:Axxx' [de hoja1] 'siempre y cuando' 'B1:Bxxx' 'diga': =>"Agregar"<- ANTES de 'cargarlos' al combobox... se ordena la matriz y ... :))

¿comentas?
saludos,
hector
___ en un modulo de codigo 'normal' ___
Public Elementos() As Variant
Sub Cargar_Elementos()
Dim Fila As Long, Sig As Long, _
May As Long, Men As Long, _
Bajar As Variant, Subir As Variant
With Worksheets("Hoja1")
' aqui se cargan los elementos de 'A'... si 'B' dice 'Agregar' '
For Fila = 1 To .Range("a65536").End(xlUp).Row
If .Range("b" & Fila) = "Agregar" Then
Sig = Sig + 1
ReDim Preserve Elementos(Sig)
Elementos(Sig) = .Range("a" & Fila)
End If
Next
' aqui se ordenan los elementos de la matriz en orden ascendente '
For Men = 1 To UBound(Elementos)
For May = Men + 1 To UBound(Elementos)
If Elementos(Men) > Elementos(May) Then
Bajar = Elementos(Men)
Subir = Elementos(May)
Elementos(Men) = Subir
Elementos(May) = Bajar
End If
Next
Next
' finalmente, se cargan los elementos ordenados al combo '
With .OLEObjects("ComboBox1").Object
.Clear
For Sig = 1 To UBound(Elementos)
.AddItem Elementos(Sig)
Next
End With
End With
End Sub

Gracias Hector, no es exactamente lo que buscaba pero tu respuesta me ayuda
para otras cosas


"Héctor Miguel" escribió en el mensaje
news:

hola, Daniel !

> Ok lamento haber sido tan breve!!!
> ... combobox ... de... controles ... cargo ... por ... macro ... valores

con ciertas caracteristicas... con ... AddItem.

> ... en Visual y Foxpro existe una propiedad para los combos llamada Sort

... en Exel no la encontre.

[me parece que]... tampoco ahora has sido lo suficiente 'explicito' :((
[asi que]... tuve que 'inventar' [mis propias] situaciones, pero [creo

que] el ejemplo te sera de utilidad :))

los 'supuestos' son:
- un combobox [de la barra de herramientas 'cuadro de controles'] llamado

'ComboBox1' =>incrustrado<= en 'Hoja1'

- se 'cargan' los elementos del rango 'A1:Axxx' [de hoja1] 'siempre y

cuando' 'B1:Bxxx' 'diga': =>"Agregar"<> - ANTES de 'cargarlos' al combobox... se ordena la matriz y ... :))

¿comentas?
saludos,
hector
___ en un modulo de codigo 'normal' ___
Public Elementos() As Variant
Sub Cargar_Elementos()
Dim Fila As Long, Sig As Long, _
May As Long, Men As Long, _
Bajar As Variant, Subir As Variant
With Worksheets("Hoja1")
' aqui se cargan los elementos de 'A'... si 'B' dice 'Agregar' '
For Fila = 1 To .Range("a65536").End(xlUp).Row
If .Range("b" & Fila) = "Agregar" Then
Sig = Sig + 1
ReDim Preserve Elementos(Sig)
Elementos(Sig) = .Range("a" & Fila)
End If
Next
' aqui se ordenan los elementos de la matriz en orden ascendente '
For Men = 1 To UBound(Elementos)
For May = Men + 1 To UBound(Elementos)
If Elementos(Men) > Elementos(May) Then
Bajar = Elementos(Men)
Subir = Elementos(May)
Elementos(Men) = Subir
Elementos(May) = Bajar
End If
Next
Next
' finalmente, se cargan los elementos ordenados al combo '
With .OLEObjects("ComboBox1").Object
.Clear
For Sig = 1 To UBound(Elementos)
.AddItem Elementos(Sig)
Next
End With
End With
End Sub

hola, Daniel !

... no es exactamente lo que buscaba

'me lo temia'... :(( [por eso te decia]...

[me parece que]... tampoco ahora has sido lo suficiente 'explicito' :((
[asi que]... tuve que 'inventar' [mis propias] situaciones [...]

pero tu respuesta me ayuda para otras cosas

precisamente... era la 'intencion' [cuando te dije]...

pero [creo que] el ejemplo te sera de utilidad :))

saludos,
hector.