- 22 Abr 2023 às 12:18
#73209
Boa tarde, consegui listar em ordem alfabética com esse código abaixo:
Private Sub CBOrdemAlfabetica_Click()
' CLASSIFICA EM ORDEM ALFABÉTICA PELA COLUNA SECRETARIA O LISTBOX EQUIPAMENTOS
Dim Lista() As Variant
Dim TEMP As String
Dim i, j, X As Long
Lista = Me.ListBoxEquipamentos.List
For i = LBound(Lista) To UBound(Lista) - 1
For j = i + 1 To UBound(Lista)
If UCase(Lista(i, 4)) > UCase(Lista(j, 4)) Then
For X = 0 To (Me.ListBoxEquipamentos.ColumnCount - 1) Step 1
On Error Resume Next
TEMP = Lista(i, X)
Lista(i, X) = Lista(j, X)
Lista(j, X) = TEMP
Next X
End If
Next j
Next i
Me.ListBoxEquipamentos.List = Lista
End Sub