Hola a todos;

En un formulario cargo manualmente los datos de en el ListBox.

Tengo un botón que me sirve para añadir registros a este ListBox

Los registros son fechas.

Entonces la pregunta es,  ¿si yo añado un nuevo registro  hay posibilidad de que se ordenen los items  por fecha?

Imagino que me la solución que me vais a dar pasará por pasar los datos a la hoja y ordenarlos desde ahí. 

Esta opción para el caso no me serviría.

Buenos días a todos.

MOrdenarList.xlsm

Editado el el 20 de diciembre3 años por Benito Bartolomé
SE AÑADE IMAGEN

Ahí va.

MOrdenarList(1).xlsm

Hola Antoni;

-Excelente propuesta, no veía muy factible que se pudiese hacer tal y como lo planteé.

Solo se me ocurren dos frases:

"Me he equivocado y no volverá a ocurrir" o  "Eres el MacGyver de Excel"

Un abrazo Antoni,  sigue así y aprobarás el curso de Excel??

 

Algo más corto:

Private Sub btnAñadir_Click()
Dim x As Integer, Festivos()
If Not IsDate(txtAñadirFestivo) Then
   MsgBox "Fecha errónea", vbCritical
   Exit Sub
End If
'---------------
'Añadir ordenado
With ListBox1
.AddItem
For x = .ListCount - 2 To 0 Step -1
   If CDate(.List(x)) < CDate(txtAñadirFestivo) Then Exit For
   .List(x + 1) = .List(x)
Next
.List(x) = txtAñadirFestivo
End With
End Sub

 

Editado el el 20 de diciembre3 años por Antoni

hace 12 minutos , Antoni dijo:

Algo más corto:

Private Sub btnAñadir_Click()
Dim x As Integer, Festivos()
If Not IsDate(txtAñadirFestivo) Then
   MsgBox "Fecha errónea", vbCritical
   Exit Sub
End If
'---------------
'Añadir ordenado
With ListBox1
.AddItem
For x = .ListCount - 2 To 0 Step -1
   If CDate(.List(x)) < CDate(txtAñadirFestivo) Then Exit For
   .List(x + 1) = .List(x)
Next
.List(x) = txtAñadirFestivo
End With
End Sub

 

 

hace 12 minutos , Antoni dijo:

Algo más corto:

Private Sub btnAñadir_Click()
Dim x As Integer, Festivos()
If Not IsDate(txtAñadirFestivo) Then
   MsgBox "Fecha errónea", vbCritical
   Exit Sub
End If
'---------------
'Añadir ordenado
With ListBox1
.AddItem
For x = .ListCount - 2 To 0 Step -1
   If CDate(.List(x)) < CDate(txtAñadirFestivo) Then Exit For
   .List(x + 1) = .List(x)
Next
.List(x) = txtAñadirFestivo
End With
End Sub

 

Si bueno es el primero buenísimo el segundo. 

Dos brillantes opciones.

Esto si que es un 2x1 y no las ofertas del Carrefour. 

No hay más  preguntas ??

 

Hay un error en el código del post anterior, debe ser:

.List(x + 1) = txtAñadirFestivo '<---------------

 

Hace 1 hora, Antoni dijo:

Hay un error en el código del post anterior, debe ser:

.List(x + 1) = txtAñadirFestivo '<---------------

 

Sólo me había dado tiempo ha hacer una prueba y me ordenó bien.

Mañana lo compruebo y corrijo.

@AntoniNo te preocupes, maestro. A Mac Gyver en algunos capítulos tampoco le salía todo bien a la primera ?

Si algún día descubres cómo poder ordenar todos los elementos a la vez, compártelo....

Cuídate!!

Tese

hace 14 horas, Antoni dijo:

Hay un error en el código del post anterior, debe ser:

.List(x + 1) = txtAñadirFestivo '<---------------

 

Hola Antoni, he probado a modificar lo que me dices  pero para que funcione bien tengo que comentar la línea que esta después del Next.

        With ListBox1
        .AddItem
        For x = .ListCount - 2 To 0 Step -1
           If CDate(.List(x)) < CDate(txtAñadirFestivo) Then Exit For
           .List(x + 1) = .List(x)
            .List(x) = txtAñadirFestivo
        Next
'        .List(x) = txtAñadirFestivo '<----He comentado esto para que funcione
        End With

Si no comento la línea el resultado no es correcto.

¿Sería correcto así?

 

Quizás no me expliqué lo suficiente:

Private Sub btnAñadir_Click()
Dim x As Integer, Festivos()
If Not IsDate(txtAñadirFestivo) Then
   MsgBox "Fecha errónea", vbCritical
   Exit Sub
End If
With ListBox1
.AddItem
For x = .ListCount - 2 To 0 Step -1
   If CDate(.List(x)) < CDate(txtAñadirFestivo) Then Exit For
   .List(x + 1) = .List(x)
Next
.List(x + 1) = txtAñadirFestivo '<---------------
End With
End Sub

 

hace 32 minutos , Antoni dijo:

Quizás no me expliqué lo suficiente:

Private Sub btnAñadir_Click()
Dim x As Integer, Festivos()
If Not IsDate(txtAñadirFestivo) Then
   MsgBox "Fecha errónea", vbCritical
   Exit Sub
End If
With ListBox1
.AddItem
For x = .ListCount - 2 To 0 Step -1
   If CDate(.List(x)) < CDate(txtAñadirFestivo) Then Exit For
   .List(x + 1) = .List(x)
Next
.List(x + 1) = txtAñadirFestivo '<---------------
End With
End Sub

 

Ahora perfecto, disculpa .

Si no  volvemos a coincidir desearte una Feliz Navidad ou Noiteboa.??

A ver si este año recibes algo más que carbón.

Yo ya estoy pensando en empezar a exportar ?

hace 19 horas, Benito Bartolomé dijo:

"Eres el MacGyver de Excel"

Opino lo mismo, @Benito Bartolomé

Buenas a todos y perdón por estas horas intempestivas en plena Nochebuena...jejeje

He dado con un truquito para poder ordenar todo un listbox a la vez, en este caso con datos de fechas, pero con pequeñas modificaciones se podría hacer con cualquier tipo de datos, o eso al menos es lo que pienso yo en mi bendita ignorancia.

No es que haya descubierto la piedra filosofal, pero al usuario le parecerá que realmente se ha ordenado el listbox.

En fin, me parecía un aporte divertido y quizás pueda servir para suplir esa dificultad de ordenar dentro de ese tipo de control.

Ya me diréis, @Antoni@Sergio@Benito Bartolomé

Un saludo,

Tese

ORDENAR LISTBOX.xlsm

EL último bucle para copiar el ListBox2 al ListBox1, se podría sustituir por:

ListBox1.List = ListBox2.List

 

Editado el el 25 de diciembre3 años por Antoni

hace 24 minutos , Antoni dijo:

EL último bucle para copiar el ListBox2 al ListBox1, se podría sustituir por:

ListBox1.List = ListBox2.List

 

Profundizando un poco más en el método de utilizar un listbox de apoyo, la cosa podría quedar así:

Private Sub CommandButton1_Click()
   With Me.ListBox1
      Do Until .ListCount = 0
         Mayor = 0
         For i = 0 To .ListCount - 1
            If Mayor < CDate(.List(i)) Then
              Mayor = CDate(.List(i))
              Elimina = i
            End If
         Next i
         ListBox2.AddItem Mayor
         .RemoveItem Elimina
      Loop
      .List = ListBox2.List
      ListBox2.Clear
   End With
End Sub

 

Buenas, @Antoni

¿Ves por qué los autodidactas tenemos nuestras limitaciones? jejejeje

Mucho más elegante y sencillo lo tuyo. Incluir en el código todo eso de "pasado" era porque no sabía muy bien cómo eliminar el item que había pasado al Listbox2 y se me ocurrió ese "atajo".

Obviamente tampoco conocía que con

hace 44 minutos , Antoni dijo:

ListBox1.List = ListBox2.List

podía pasar todos los datos de uno a otro. Los bucles dan mucho juego pero cuando sobran, sobran....jejeje

En fin, al menos espero haber aportado la semilla para que después tu sabiduría la haya mejorado.

Saludos,

Tese

hace 19 horas, tese1969 dijo:

Buenas, @Antoni

¿Ves por qué los autodidactas tenemos nuestras limitaciones? jejejeje

Mucho más elegante y sencillo lo tuyo. Incluir en el código todo eso de "pasado" era porque no sabía muy bien cómo eliminar el item que había pasado al Listbox2 y se me ocurrió ese "atajo".

Obviamente tampoco conocía que con

podía pasar todos los datos de uno a otro. Los bucles dan mucho juego pero cuando sobran, sobran....jejeje

En fin, al menos espero haber aportado la semilla para que después tu sabiduría la haya mejorado.

Saludos,

Tese

Hola @tese1969 tú ejemplo está muy bien.

En el caso que planteé quería evitar cargar los datos desde una hoja aún así te agradezco el detalle.

Estoy terminando de desarrollar un procedimiento para cargar datos  en un combobox sin usar hoja, módulo ni carga manual, es decir en un combobox vacío yo voy agregando los ítems y estos van quedando almacenados y repito no los guardo en ninguna parte del libro.

En breve os lo mostraré. 

Saludos y buen día 

Editado el el 26 de diciembre3 años por Benito Bartolomé