Comments on: Populate a MultiColumn ListBox From an Unsorted Range

By: Hoo Lien Wee

Hoo Lien Wee — Fri, 15 Jan 2010 06:35:00 +0000

Instead of add & delete temporary worksheet, I've used the code found from the book "Numerical Recipes in C#". Just create a ComboBox to select which column in the ListBox to be set as first key sort order.

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False

ReDim SortedList(TotalRow, 4)
For k = 0 To TotalRow
For i = 0 To 4
SortedList(k, i) = ListBox1.List(k, i)
Next i
Next k

SortByColumn = ComboBox1.ListIndex
Call SimpleSort(TotalRow, SortedList, SortByColumn)

Application.ScreenUpdating = True
End Sub

Sub SimpleSort(TotalRow, SortedList, SortByColumn)
Dim tmp(5)

For k = 1 To TotalRow

For i = 0 To 4
tmp(i) = SortedList(k, i)
Next i

For j = k - 1 To 0 Step -1

For i = 0 To 4
If SortByColumn = i And SortedList(j, i) < tmp(i) Then GoTo Line2
Next i

For i = 0 To 4
SortedList(j + 1, i) = SortedList(j, i)
Next i

Next j
j = -1

Line2:
For i = 0 To 4
SortedList(j + 1, i) = tmp(i)
Next i

Next k

End Sub

There are other quick sorting methods where you can find in the book.

By: Geb Blum

Geb Blum — Sat, 05 Apr 2008 22:26:00 +0000

Thank you so much. This article has been a great help!

By: hui

hui — Fri, 02 Mar 2007 09:11:00 +0000

Hi ,

I tried the code. But this portion is not working:

With Sheet1.QueryTables(1).ResultRange
Set rCopy = .Offset(1).Resize(.Rows.Count - 1)
End With

Could anyone help?

By: Pradeep

Pradeep — Fri, 19 Jan 2007 01:47:00 +0000

Hi,
i am software engg working in tokyo,japan.
in my project i have to sort the list coloumn if its corresponding header is clicked.
i need its solution as soon as possible,it is very very urgently required.
please help me with the solution.

rgds
pradeep

By: Antoine Dubuc

Antoine Dubuc — Sat, 09 Dec 2006 05:58:00 +0000

Hi!

Thank you for this website. It is full of good ideas. Publish a book! (or did you?)

I have a question...

If the data is just a worksheet, then what changes in this code?

Also, whats the difference between a worksheet and a sheet!!!!!????

Best regards,

Antoine Dubuc

By: PaCoCourt

PaCoCourt — Wed, 29 Nov 2006 15:54:00 +0000

Hello,

It's verry fast to sort with your code.
In the listbox, i'd like to modify an element (a colomn from a row)Or
the most interesting, is to paste directly data in a raw.

It's verry kind if you could help me.

bye
P.

By: Jon Peltier

Jon Peltier — Thu, 17 Nov 2005 12:56:00 +0000

I actually do this with a row of labels. I give the labels the button type appearance and put the sort into their on-click event. The label buttons make less obtrusive headers than command buttons.

By: Dave

Dave — Wed, 16 Nov 2005 23:15:00 +0000

Betsy,

I would add a row of CommandButtons just above the listbox that would look like headers (headers are a good idea anyway). They could pass the column to sort on as a parameter to Dick's code. You could even toggle ascending and descending sorts with successive clicks.

Dave

By: tony

tony — Thu, 02 Jun 2005 15:24:00 +0000

I am use less

By: Jake Marx

Jake Marx — Mon, 17 Jan 2005 22:53:00 +0000

Betsy,

When you have to deal with different alignments per column or other column-related activities, you should look at the ListView control. I'm not sure if it's included in Windows or if it comes with Visual Studio (or VB). But if you have it on your machine, you may want to take a look at it.

I have a sample workbook if you'd like me to email it to you.