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

[RESOLVIDO] FILTRAR EXATAMENTE A STRING SELECIONADA

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
pedrobb
Colaborador
Colaborador
Mensagens: 74
Registrado em: Qua Jul 25, 2012 12:42 pm
Localização: Montes Claros-MG

[RESOLVIDO] FILTRAR EXATAMENTE A STRING SELECIONADA

Mensagem por pedrobb »

Pessoal,
Na ComboBox2.List = Array("ON", "PN", "PNA", "PNB", "PNC", "PND", "PNE", "PNF"), ao selecionar PN (por exemplo), são carregados também ítens do tipo PNA, PNB, etc. e, no caso, era para carregar somente ítens do tipo PN.
Existe algum código para filtrar exatamente (exclusivamente) a string selecionada?
Editado pela última vez por pedrobb em Seg Fev 19, 2018 6:59 pm, em um total de 1 vez.


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.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: FILTRAR EXATAMENTE A STRING SELECIONADA

Mensagem por webmaster »

carregados onde? Quem esta filtrando?


pedrobb
Colaborador
Colaborador
Mensagens: 74
Registrado em: Qua Jul 25, 2012 12:42 pm
Localização: Montes Claros-MG

Re: FILTRAR EXATAMENTE A STRING SELECIONADA

Mensagem por pedrobb »

Em uma ListView.
No modelo anexo, selecione PN e observe e vem registros com Tipo PNA, PNB, etc....
Grato,
Pedro
Anexos
Busca.zip
(199.29 KiB) Baixado 200 vezes


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 EXATAMENTE A STRING SELECIONADA

Mensagem por Reinaldo »

Sua rotina "BuscaPersonalizada", no controle ..>LookAt<.. consta como xlPart, assim e feita uma pesquisa caracter a caracter procurando uma combinação. Notivo de quando procura PN tambem recebe PNA....
Para sanar essa desconformidade, deve ser alterado esse trecho para ..>xlWhole<..

Código: Selecionar todos

With Planilha11
            If sSearchInCol = "" Then
                Set Busca = .Cells.Find(What:=TermoPesquisado, After:=.Range("A1"), LookIn:=xlFormulas, _
                    LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                    MatchCase:=False, SearchFormat:=False)
            Else
                Set Busca = .Range(sSearchInCol & ":" & sSearchInCol).Find( _
                    What:=TermoPesquisado, _
                    After:=.Range(sSearchInCol & "1"), _
                    LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                    MatchCase:=False, SearchFormat:=False)
            End If
Obsevação.: Como trata-se de uma pesquisa valida para diversos campos,não sei como afetara as demais pesquisas


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.


pedrobb
Colaborador
Colaborador
Mensagens: 74
Registrado em: Qua Jul 25, 2012 12:42 pm
Localização: Montes Claros-MG

Re: FILTRAR EXATAMENTE A STRING SELECIONADA

Mensagem por pedrobb »

Novamente, muito obrigado, Reinaldo!
:D :D :D


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