Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Filtrar Listbox Com Determinada Palavra Em TExtbox
Filtrar Listbox Com Determinada Palavra Em TExtbox
Boa noite amigos,
Sou novo na questão de VBA ainda, peguei um codigo de vba para consulta de listbox apos digitar a palavra em textbox porem, ele só consulta a primeira palavra, exemplo:
em uma frase: "Aço Inox 304 Com diametro de raio 157mm"
gostaria de Consultar as partes das frase:
"Aço Inox 304 Com diametro de raio 157mm" - caso consulte por "aço" este deva aparecer no listbox
"Aço Inox 304 Com diametro de raio 157mm" - caso consulte por "Diametro" Também apareça este no listbox
"Aço Inox 304 Com diametro de raio 157mm"-Caso Consulte "Raio" também apareça.
eu quero um consulta contendo determinada palavra e mostre tudo no lisitbox.
segue meu codigo:
Private Sub PreencheLista(ByVal TextoDigitado As String)
Dim ws As Worksheet
Dim i As Integer
Dim x As Integer
Dim indiceLista As Integer
Dim coluna As Integer
Dim TextoCelula As String
Set ws = ThisWorkbook.Worksheets(NomePlanilha)
Dim Lista()
ReDim Lista(ws.UsedRange.Columns.Count, 0)
i = LinhaCabecalho + 1
indiceLista = 1
coluna = Me.ComboBoxCampos.ListIndex + 1
Call PreencheCabecalho(Lista)
ListBoxLista.Clear
With ws
While .Cells(i, coluna).Value <> Empty
TextoCelula = .Cells(i, coluna).Value
If UCase(Left(TextoCelula, Len(TextoDigitado))) = UCase(TextoDigitado) Then
For x = 0 To ws.UsedRange.Columns.Count - 1
ReDim Preserve Lista(ws.UsedRange.Columns.Count, indiceLista)
Lista(x, indiceLista) = .Cells(i, x + 1)
Next
indiceLista = indiceLista + 1
End If
i = i + 1
Wend
End With
Lista = Array2DTranspose(Lista)
Me.ListBoxLista.List = Lista
End Sub
Sou novo na questão de VBA ainda, peguei um codigo de vba para consulta de listbox apos digitar a palavra em textbox porem, ele só consulta a primeira palavra, exemplo:
em uma frase: "Aço Inox 304 Com diametro de raio 157mm"
gostaria de Consultar as partes das frase:
"Aço Inox 304 Com diametro de raio 157mm" - caso consulte por "aço" este deva aparecer no listbox
"Aço Inox 304 Com diametro de raio 157mm" - caso consulte por "Diametro" Também apareça este no listbox
"Aço Inox 304 Com diametro de raio 157mm"-Caso Consulte "Raio" também apareça.
eu quero um consulta contendo determinada palavra e mostre tudo no lisitbox.
segue meu codigo:
Private Sub PreencheLista(ByVal TextoDigitado As String)
Dim ws As Worksheet
Dim i As Integer
Dim x As Integer
Dim indiceLista As Integer
Dim coluna As Integer
Dim TextoCelula As String
Set ws = ThisWorkbook.Worksheets(NomePlanilha)
Dim Lista()
ReDim Lista(ws.UsedRange.Columns.Count, 0)
i = LinhaCabecalho + 1
indiceLista = 1
coluna = Me.ComboBoxCampos.ListIndex + 1
Call PreencheCabecalho(Lista)
ListBoxLista.Clear
With ws
While .Cells(i, coluna).Value <> Empty
TextoCelula = .Cells(i, coluna).Value
If UCase(Left(TextoCelula, Len(TextoDigitado))) = UCase(TextoDigitado) Then
For x = 0 To ws.UsedRange.Columns.Count - 1
ReDim Preserve Lista(ws.UsedRange.Columns.Count, indiceLista)
Lista(x, indiceLista) = .Cells(i, x + 1)
Next
indiceLista = indiceLista + 1
End If
i = i + 1
Wend
End With
Lista = Array2DTranspose(Lista)
Me.ListBoxLista.List = Lista
End Sub
Re: Filtrar Listbox Com Determinada Palavra Em TExtbox
Boa noite, Souza
Substitua a linha
If UCase(Left(TextoCelula, Len(TextoDigitado))) = UCase(TextoDigitado) Then
Por
If InStr(UCase(TextoCelula), UCase(TextoDigitado)) > 0 Then
Avgsantos
Substitua a linha
If UCase(Left(TextoCelula, Len(TextoDigitado))) = UCase(TextoDigitado) Then
Por
If InStr(UCase(TextoCelula), UCase(TextoDigitado)) > 0 Then
Avgsantos
- Reinaldo
- Jedi
- Mensagens: 1537
- Registrado em: Sex Ago 01, 2014 4:09 pm
- Localização: Garça - SP / SCS - SP
Re: Filtrar Listbox Com Determinada Palavra Em TExtbox
Particularmente não entendi a demanda?
"...em uma frase: "Aço Inox 304 Com diametro de raio 157mm"
gostaria de Consultar as partes das frase:..."
Onde estáessa frase? Como pretende/espera "indicar" qual parte/termo pesquisado?
"...em uma frase: "Aço Inox 304 Com diametro de raio 157mm"
gostaria de Consultar as partes das frase:..."
Onde estáessa frase? Como pretende/espera "indicar" qual parte/termo pesquisado?
Re: Filtrar Listbox Com Determinada Palavra Em TExtbox
era isso mesmo que eu queria, muito obrigado meu amigo.
Obrigado mesmo...
Re: Filtrar Listbox Com Determinada Palavra Em TExtbox
boa noite amigo,
tudo resolvido já muito obrigado
Re: Filtrar Listbox Com Determinada Palavra Em TExtbox
Boa noite, Souza
Ok, favor marcar no tópico [Resolvido]
Vlw
Avgsantos
Ok, favor marcar no tópico [Resolvido]
Vlw
Avgsantos