Cambiar orden en Combobox
Publicado por Albert (204 intervenciones) el 20/05/2012 21:50:37
Buenas taredes foreros, ante todo gracias por su tiempo.
Necesito que en un combobox el resultado me lo muestre "invertido" , se trata de una lista de facturas para dar la orden de imprimir ,siempre muestra de las primeras que se hicieron hasta las de hoy,como supondreis esto es muy engorroso pues ya empiezan a ser bastantes.
He provado con varias cosas que he encontrado por aqui y en otros foros pero el resultado es siempre que ordene primero la hoja donde estan los datos pero no puedo hacerlo por que si lo invierto en la hoja desmonto el contador de facturas y el resultado es peor que el beneficio.
A alguien se le ocurre que podria hacer?
Adjunto el codigo con que cargo en combobox por si es de utilidad.
Mil gracias
Private Sub ComboBox7_Enter()
Dim i As Double
Dim Final As Double
Dim tareas As String
ComboBox7.BackColor = &H80000005
For i = 1 To ComboBox7.ListCount
'Remove an item from the ListBox.
ComboBox7.RemoveItem 0
Next i
For i = 4 To 10000
If Entradas.Cells(i, 20) = "" Then
Final = i - 1
Exit For
End If
Next
For i = 4 To Final
tareas = Entradas.Cells(i, 20)
ComboBox7.AddItem (tareas)
Next
End Sub
Necesito que en un combobox el resultado me lo muestre "invertido" , se trata de una lista de facturas para dar la orden de imprimir ,siempre muestra de las primeras que se hicieron hasta las de hoy,como supondreis esto es muy engorroso pues ya empiezan a ser bastantes.
He provado con varias cosas que he encontrado por aqui y en otros foros pero el resultado es siempre que ordene primero la hoja donde estan los datos pero no puedo hacerlo por que si lo invierto en la hoja desmonto el contador de facturas y el resultado es peor que el beneficio.
A alguien se le ocurre que podria hacer?
Adjunto el codigo con que cargo en combobox por si es de utilidad.
Mil gracias
Private Sub ComboBox7_Enter()
Dim i As Double
Dim Final As Double
Dim tareas As String
ComboBox7.BackColor = &H80000005
For i = 1 To ComboBox7.ListCount
'Remove an item from the ListBox.
ComboBox7.RemoveItem 0
Next i
For i = 4 To 10000
If Entradas.Cells(i, 20) = "" Then
Final = i - 1
Exit For
End If
Next
For i = 4 To Final
tareas = Entradas.Cells(i, 20)
ComboBox7.AddItem (tareas)
Next
End Sub
Valora esta pregunta


0