Este fórum está sendo desativado

[vilc]

Boa Noite, preciso de uma ajuda para fazer um filtro numa listbox, selecionando dois ou mais critérios.
desde já agradeço.

[Foxtri]

Bom dia.
Veja se era isso.
Até
Foxtri

[vilc]

Foxtri, Muito Obrigado mais uma vez, ficou excelente, era exatamente isso.

[vilc]

Foxtri teria como colocar um botão, para colocar em ordem alfabética por secretária?
Mas quando fechar o formulário não salvar, manter a ordem que foi cadastrado,
Esse botão seria mesmo só pra colocar em ordem alfabética, que ando eu precisasse imprimir.
A parte de impressão já está funcionando!
Desde já agradeço

[vilc]

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