- 19 Ago 2022 às 18:47
#72131
Boa noite a todos, estou com uma listbox carregando os dados normalmente, precisava fazer um filtro onde
na TxtEquipamento eu digitasse o equipamento procurado e na ComoboSecretaria eu escolhesse a Secretaria,
de acordo com esse dois critérios ele me mostrasse o resultado:
Coluna B = Equipamento, Coluna G= Secretaria
segue o código que estou usando. Desde já agradeço.
Private Sub TxtConsultaEquipamento_Change()
LblObs.Caption = ""
TextoDigitado = TxtConsultaEquipamento
Range("A2").Select
Dim ws As Worksheet
Dim linha As Integer
Dim LinhaListbox As Integer
Dim TextoCelula As String
Set ws = ThisWorkbook.Worksheets("dados")
linha = 2
LinhaListbox = 0
formCad.ListBoxEquipamentos.Clear
With ws
While .Cells(linha, 1).Value <> Empty
TextoCelula = .Cells(linha, 2).Value
If UCase(Left(TextoCelula, Len(TextoDigitado))) = UCase(TextoDigitado) Then
With formCad.ListBoxEquipamentos
.AddItem
.List(LinhaListbox, 0) = Sheets("dados").Cells(linha, 1) 'ID 'A
.List(LinhaListbox, 1) = Sheets("dados").Cells(linha, 2) 'Equipamento 'A
.List(LinhaListbox, 2) = Sheets("dados").Cells(linha, 3) 'Categoria 'B
.List(LinhaListbox, 3) = Sheets("dados").Cells(linha, 4) 'Status "C
.List(LinhaListbox, 4) = Sheets("dados").Cells(linha, 5) 'N de Serie 'D
.List(LinhaListbox, 5) = Sheets("dados").Cells(linha, 6) 'Patrimonio 'E
.List(LinhaListbox, 6) = Sheets("dados").Cells(linha, 7) 'secretaria "F
.List(LinhaListbox, 7) = Sheets("dados").Cells(linha, 8) 'Setor "G
.List(LinhaListbox, 8) = Sheets("dados").Cells(linha, 9) 'Responsavel " 'H
.List(LinhaListbox, 9) = Sheets("dados").Cells(linha, 10) 'Obs 'I
LinhaListbox = LinhaListbox + 1
End With
End If
LblRegistros.Caption = LinhaListbox & " Registro(s) Encontrado(s)."
'End If
linha = linha + 1
Wend
End With
End Sub
na TxtEquipamento eu digitasse o equipamento procurado e na ComoboSecretaria eu escolhesse a Secretaria,
de acordo com esse dois critérios ele me mostrasse o resultado:
Coluna B = Equipamento, Coluna G= Secretaria
segue o código que estou usando. Desde já agradeço.
Private Sub TxtConsultaEquipamento_Change()
LblObs.Caption = ""
TextoDigitado = TxtConsultaEquipamento
Range("A2").Select
Dim ws As Worksheet
Dim linha As Integer
Dim LinhaListbox As Integer
Dim TextoCelula As String
Set ws = ThisWorkbook.Worksheets("dados")
linha = 2
LinhaListbox = 0
formCad.ListBoxEquipamentos.Clear
With ws
While .Cells(linha, 1).Value <> Empty
TextoCelula = .Cells(linha, 2).Value
If UCase(Left(TextoCelula, Len(TextoDigitado))) = UCase(TextoDigitado) Then
With formCad.ListBoxEquipamentos
.AddItem
.List(LinhaListbox, 0) = Sheets("dados").Cells(linha, 1) 'ID 'A
.List(LinhaListbox, 1) = Sheets("dados").Cells(linha, 2) 'Equipamento 'A
.List(LinhaListbox, 2) = Sheets("dados").Cells(linha, 3) 'Categoria 'B
.List(LinhaListbox, 3) = Sheets("dados").Cells(linha, 4) 'Status "C
.List(LinhaListbox, 4) = Sheets("dados").Cells(linha, 5) 'N de Serie 'D
.List(LinhaListbox, 5) = Sheets("dados").Cells(linha, 6) 'Patrimonio 'E
.List(LinhaListbox, 6) = Sheets("dados").Cells(linha, 7) 'secretaria "F
.List(LinhaListbox, 7) = Sheets("dados").Cells(linha, 8) 'Setor "G
.List(LinhaListbox, 8) = Sheets("dados").Cells(linha, 9) 'Responsavel " 'H
.List(LinhaListbox, 9) = Sheets("dados").Cells(linha, 10) 'Obs 'I
LinhaListbox = LinhaListbox + 1
End With
End If
LblRegistros.Caption = LinhaListbox & " Registro(s) Encontrado(s)."
'End If
linha = linha + 1
Wend
End With
End Sub