Página 1 de 1
Pesquisar em listBox com critérios
Enviado: 19 Abr 2023 às 21:34
por vilc
Boa Noite, preciso de uma ajuda para fazer um filtro numa listbox, selecionando dois ou mais critérios.
desde já agradeço.
Re: Pesquisar em listBox com critérios
Enviado: 20 Abr 2023 às 09:52
por Foxtri
Bom dia.
Veja se era isso.
Até
Foxtri
Re: Pesquisar em listBox com critérios
Enviado: 20 Abr 2023 às 13:10
por vilc
Foxtri, Muito Obrigado mais uma vez, ficou excelente, era exatamente isso.
Re: Pesquisar em listBox com critérios
Enviado: 20 Abr 2023 às 17:55
por 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
Re: Pesquisar em listBox com critérios
Enviado: 22 Abr 2023 às 12:18
por 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