Jump to content
Sign in to follow this  
Andrey Fernández

Ordenar listbox por fecha

Recommended Posts

Saludos

Tengo un listbox donde se cargan datos de diferentes hojas, lo que deseo es que en la visualización de los datos (en el listbox) se ordenen por fecha, de menor a mayor, pero sin modificar el orden de los datos en las hojas de excel. Me refiero a que solo ordene en la visualización y no en los datos como tal.

Gracias de antemano.

HojaVida.xls

Share this post


Link to post
Share on other sites

Hola lo que te toca analizar el código y adaptar de acuerdo a tus necesidades

de todos modos te adjunto el ejemplo

Private Sub CommandButton1_Click()
Columns("A:B").Copy
Hoja3.Activate
Columns("A:B").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("Hoja2").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Hoja2").Sort.SortFields.Add Key:=Range("A1"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Hoja2").Sort
.SetRange Range("A1:B41")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A1").Select
ListBox1 = ""
UserForm_Initialize
End Sub
Private Sub UserForm_Initialize()
ListBox1.RowSource = "A1:B50"
End Sub
Private Sub UserForm_Terminate()
Hoja3.Activate
Cells.Select
Selection.ClearContents
Range("A1").Select
Hoja1.Activate
Range("A1").Select
End Sub[/CODE]

Saludos

Libro1.xls

Share this post


Link to post
Share on other sites

HolaDiego, perdona por mi intromision para recomendar al amigo Andrey Fernández para que use la linea

ListBox1.RowSource = "hoja1!A2:D" & Sheets("hoja1").Range("a" & Rows.Count).End(xlUp).Row[/CODE]

[/size]

[size=3]D para 4 columnas en las propiedades ColumnCount, B para las 2

para que pueda seguir agregando datos en A hasta el infinito[b] y no verse en el Listbox las lineas en vacio[/b][/size]

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png