Ir ao conteúdo

Excel Excel VBA Listbox filtrar criterio no meio da coluna


Ir à solução Resolvido por Visitante,

Posts recomendados

Postado

Bom dia, adaptei o seguinte código que achei na web em um Listbox no Excel.

Ele pesquisa correto na segunda coluna do listbox, porém somente busca os valores digitados que "começam" com o ditigado.

Se a palavra estiver no meio da string na coluna, não busca.

Ex: Se buscar  " João de Deus " e digitar " João " encontra, más se eu quiser buscar " de Deus " não localiza visto não começar com " de Deus".

Tentei colocar "*" & TextBox1.Text & "*"

Não funciona.

Alguma ideia ?

 

Private Sub TextBox11_Change()
    
    valor_pesquisado_i = TextBox11.Text
    Dim guia As Worksheet
    Dim linha As Integer
    Dim coluna As Integer
    Dim linhalistbox As Integer
    Dim valor_celula As String
        
    Set guia = ThisWorkbook.Worksheets("ListaFormPregao")
    
    codigo = txt_codigo
    linha = 2
    coluna = 2
    linhalistbox = 0
    
    frmListaPregoes.ListBox1.RowSource = ""
    
    With guia
        While .Cells(linha, coluna).Value <> Empty
            valor_celula = .Cells(linha, coluna).Value
            
            If UCase(Left(valor_celula, Len(valor_pesquisado_i))) = UCase(valor_pesquisado_i) Then
                
             With frmListaPregoes.ListBox1
                .AddItem
                .List(linhalistbox, 0) = Sheets("ListaFormPregao").Cells(linha, 1)
                .List(linhalistbox, 1) = Sheets("ListaFormPregao").Cells(linha, 2)
                linhalistbox = linhalistbox + 1
             End With
                             
            End If
            linha = linha + 1
        Wend
    End With

End Sub

 

  • Solução
Postado

substitua esta linha

If UCase(Left(valor_celula, Len(valor_pesquisado_i))) = UCase(valor_pesquisado_i) Then

 

por esta

If InStr(UCase(valor_celula), UCase(valor_pesquisado_i)) > 0 Then

 

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

LANÇAMENTO!

eletronica2025-popup.jpg


CLIQUE AQUI E BAIXE AGORA MESMO!