Sorting a listbox

[Roderick_E]

I found this code and it works great to sort by the first column of my 4 column list box but I want the open to sort by the other columns. I will have the user click the label above the column so I only need to know what to change to indicate sorting by column 1 2 3 (default column 0 as listbox columns start with 0)

Private Sub Label3_Click() ' sort list box by quote number
 'Sorts ListBox List
     Dim i As Long, j As Long, x As Long, sTemp As String
    With mainform.searchbox
        For j = LBound(.List) To UBound(.List) - 1 Step 1
            For i = LBound(.List) To UBound(.List) - 1 Step 1
                If .List(i) > .List(i + 1) Then
                    [COLOR=#ff0000]For x = 0 To (.ColumnCount - 1) Step 1
[/COLOR]                        sTemp = .List(i, x)
                        .List(i, x) = .List(i + 1, x)
                        .List(i + 1, x) = sTemp
                    Next x
                End If
            Next i
        Next j
    End With
End Sub

I thought changing the zero in red would do it, but nope

 

[Momentman]

i hope am right about this Try

Since the second argument in .List is left out, it assumes column 1, so i have included the second argument to be P. So P=1 is 2nd column, P=2, 3rd column.....

o all you need to be able to do is return an integer depending on which label was clicked(select case maybe) and feed that into the code

Private Sub Label3_Click() ' sort list box by quote number
 'Sorts ListBox List
     Dim i As Long, j As Long, x As Long, sTemp As String, P As Long
     P = 1 'sorts using column 2
    With mainform.searchbox
        For j = LBound(.List) To UBound(.List) - 1 Step 1
            For i = LBound(.List) To UBound(.List) - 1 Step 1
                If .List(i, P) > .List(i + 1, P) Then
                    For x = 0 To (.ColumnCount - 1) Step 1
                        sTemp = .List(i, x)
                        .List(i, x) = .List(i + 1, x)
                        .List(i + 1, x) = sTemp
                    Next x
                End If
            Next i
        Next j
    End With
End Sub

 

[Roderick_E]

That did the trick Momentman! Thanks much from the USA!