[RESOLVED] sorting record in Listbox

[Siddharth Rout]

Hi

Does this helps?

Here’s a sub that you can call to sort the data in a ListBox. It sorts in alphabetical order.

Sub SortListBox(oLb As MSForms.ListBox)
    Dim vaItems As Variant
    Dim i As Long, j As Long
    Dim vTemp As Variant
    
    ‘Put the items in a variant array
    vaItems = oLb.List
    
    For i = LBound(vaItems, 1) To UBound(vaItems, 1) - 1
        For j = i + 1 To UBound(vaItems, 1)
            If vaItems(i, 0) > vaItems(j, 0) Then
                vTemp = vaItems(i, 0)
                vaItems(i, 0) = vaItems(j, 0)
                vaItems(j, 0) = vTemp
            End If
        Next j
    Next i
    
    ‘Clear the listbox
    oLb.Clear
    
    ‘Add the sorted array back to the listbox
    For i = LBound(vaItems, 1) To UBound(vaItems, 1)
        oLb.AddItem vaItems(i, 0)
    Next i
    
End Sub

Hope this helps...