Ashgaroth

[ashgaroth]

I am trying to sort a spreadsheet by 2 columns and putting the names in a combo box in alphabetical order. Unfortunately, I keep getting a <subscript out of range? error.

This is the code that I am using and I have highlighted the line that is causing the error.

SortColumm1 = 0
SortColumn2 = 1
For i = LBound(ArrayName, 1) To UBound(ArrayName, 1) - 1
For j = LBound(ArrayName, 1) To UBound(ArrayName, 1) - 1
Condition1 = ArrayName(j, SortColumn1) > ArrayName(j + 1, SortColumn1)
Condition2 = ArrayName(j, SortColumn1) = ArrayName(j + 1, SortColumn1) And _
ArrayName(j, SortColumn2) > ArrayName(j + 1, SortColumn2)
If Condition1 Or Condition2 Then
For y = LBound(ArrayName, 2) To UBound(ArrayName, 2)
t = ArrayName(j, y)
ArrayName(j, y) = ArrayName(j + 1, y)
ArrayName(j + 1, y) = t
Next y
End If
Next
Next

 

[Andrew Poulsom]

Welcome to the Board.

Maybe this will help you:

http://www.dailydoseofexcel.com/archives/2004/05/24/sorting-a-multicolumn-listbox/

 

[ashgaroth]

I found the problem with this text.
The first line of the code reads Columm1=0 instead of Column1=0, so it works now.

Thanks Andrew for the link, this lokks good as it looks like it will help me with the sorting. The problem I have now is getting the names into the combox. At the moment it just shows surnames but where I have more than one person sharing the same surname I only get to see details for the first person. What I want to do is somehow concatenate the surname and first name details into the combo box.

 

[Andrew Poulsom]

You can have more than one column in a ComboBox.