Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Filtrar Listbox Com Determinada Palavra Em TExtbox

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
SOUZA1983
Acabou de chegar
Acabou de chegar
Mensagens: 3
Registrado em: Ter Mai 03, 2016 12:39 pm

Filtrar Listbox Com Determinada Palavra Em TExtbox

Mensagem por SOUZA1983 »

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


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


avgsantos
Colaborador
Colaborador
Mensagens: 93
Registrado em: Ter Fev 02, 2016 6:39 pm

Re: Filtrar Listbox Com Determinada Palavra Em TExtbox

Mensagem por avgsantos »

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


Avatar do usuário
Reinaldo
Jedi
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

Mensagem por Reinaldo »

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?


SOUZA1983
Acabou de chegar
Acabou de chegar
Mensagens: 3
Registrado em: Ter Mai 03, 2016 12:39 pm

Re: Filtrar Listbox Com Determinada Palavra Em TExtbox

Mensagem por SOUZA1983 »

avgsantos escreveu: Seg Nov 11, 2019 9:56 pm 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



era isso mesmo que eu queria, muito obrigado meu amigo.
Obrigado mesmo...


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


SOUZA1983
Acabou de chegar
Acabou de chegar
Mensagens: 3
Registrado em: Ter Mai 03, 2016 12:39 pm

Re: Filtrar Listbox Com Determinada Palavra Em TExtbox

Mensagem por SOUZA1983 »

Reinaldo escreveu: Ter Nov 12, 2019 10:02 am 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?
boa noite amigo,

:mrgreen: :mrgreen: :mrgreen: :mrgreen:

tudo resolvido já muito obrigado


avgsantos
Colaborador
Colaborador
Mensagens: 93
Registrado em: Ter Fev 02, 2016 6:39 pm

Re: Filtrar Listbox Com Determinada Palavra Em TExtbox

Mensagem por avgsantos »

Boa noite, Souza

Ok, favor marcar no tópico [Resolvido]

Vlw
Avgsantos


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder