Página 1 de 1

[RESOLVIDO] FILTRAR EXATAMENTE A STRING SELECIONADA

Enviado: Seg Fev 19, 2018 1:58 am
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?

Re: FILTRAR EXATAMENTE A STRING SELECIONADA

Enviado: Seg Fev 19, 2018 4:54 pm
por webmaster
carregados onde? Quem esta filtrando?

Re: FILTRAR EXATAMENTE A STRING SELECIONADA

Enviado: Seg Fev 19, 2018 6:07 pm
por pedrobb
Em uma ListView.
No modelo anexo, selecione PN e observe e vem registros com Tipo PNA, PNB, etc....
Grato,
Pedro

Re: FILTRAR EXATAMENTE A STRING SELECIONADA

Enviado: Seg Fev 19, 2018 6:24 pm
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

Re: FILTRAR EXATAMENTE A STRING SELECIONADA

Enviado: Seg Fev 19, 2018 6:56 pm
por pedrobb
Novamente, muito obrigado, Reinaldo!
:D :D :D