Hello,
I am successfully able to sort through a range of cells and allocate names to various arrays based on specified criteria. Those arrays are then used to populate listboxes in a userform.
I am stuck on how to sort the array alphabetically before populating the listbox with the names.
Any help would be great...please see bottom of code below for populating listbox section
'!CREATE NEW ARRAY TO RETRIEVE MANAGER NAMES FOR POSITIONS IN THE ORIGINAL ARRAY THAT MEET CRITERIA (HAVE VALUES)!
RowCounter = 6
ListCounter = 0
Do While Not IsEmpty(Sheets("matrix").Range("A" & RowCounter).Value)
If CorrelArray4(ListCounter) <> 0 Then
CorrelArrayADDNAME(ListCounter) = Sheets("matrix").Range("E" & RowCounter).Value
Else: End If
ListCounter = ListCounter + 1
RowCounter = RowCounter + 1
Loop
'!REMOVE BLANKS FROM ARRAYS (MANAGERS THAT DO NOT MEET CRITERIA)
ReDim CorrelArrayADD(LBound(CorrelArrayADDNAME) To UBound(CorrelArrayADDNAME))
For h = LBound(CorrelArrayADDNAME) To UBound(CorrelArrayADDNAME)
If CorrelArrayADDNAME(h) <> "" Then
CorrelArrayADD(K) = CorrelArrayADDNAME(h)
K = K + 1
End If
Next
ReDim Preserve CorrelArrayADD(LBound(CorrelArrayADDNAME) To K)
'Populate list boxes
With OutputRep.listMANUAL
.Clear
.List = CorrelArrayADD
End With
OutputRep.Show
End Sub
Bookmarks