ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

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 » Seg Nov 11, 2019 8:14 pm

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 » 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



Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1433
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 » 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?


Reinaldo
:oops: :D :mrgreen: :geek:

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 » Ter Nov 12, 2019 8:44 pm

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 » Ter Nov 12, 2019 8:46 pm

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 » Ter Nov 12, 2019 8:51 pm

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