Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
[RESOLVIDO] FILTRAR EXATAMENTE A STRING SELECIONADA
-
- Colaborador
- Mensagens: 74
- Registrado em: Qua Jul 25, 2012 12:42 pm
- Localização: Montes Claros-MG
[RESOLVIDO] FILTRAR EXATAMENTE A STRING SELECIONADA
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?
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.
-
- Colaborador
- Mensagens: 74
- Registrado em: Qua Jul 25, 2012 12:42 pm
- Localização: Montes Claros-MG
Re: FILTRAR EXATAMENTE A STRING SELECIONADA
Em uma ListView.
No modelo anexo, selecione PN e observe e vem registros com Tipo PNA, PNB, etc....
Grato,
Pedro
No modelo anexo, selecione PN e observe e vem registros com Tipo PNA, PNB, etc....
Grato,
Pedro
- Anexos
-
- Busca.zip
- (199.29 KiB) Baixado 206 vezes
- Reinaldo
- 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
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<..
Obsevação.: Como trata-se de uma pesquisa valida para diversos campos,não sei como afetara as demais pesquisas
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