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
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