none
Busca avançada - Critério palavra contém carácter aleatório RRS feed

  • Pergunta

  • Bom dia caros usuários do fórum, sou novo aqui e tenho uma dúvida de extrema importância para dar continuidade no meu trabalho...

    O meu problema é o seguinte:

    Tenho uma planilha onde guardamos patrimônios, com vários itens e me falaram para fazer uma nova planilha que contenha uma busca avançada (textbox em cima do nome da categoria), até então o que eu tenho é isto:

    Private Sub Descrição_Change()
    If Descrição.Text <> "" Then
        Selection.AutoFilter Field:=3, Criteria1:="=" & Descrição.Text
      Else
        Selection.AutoFilter Field:=3
      End If
    End Sub

    E ele realmente funciona, acha em toda a planilha o que eu botar no text box. O problema é que, eu teria que digitar a palavra INTEIRA (ex: Monitor LCD 19"), ou seja, eu gostaria que nesta busca, ele me apontasse TODOS os valores na planilha que contenha tal palavra. (ex: Se digitar "Mo" no textbox, deverá encontrar Monitor // Moedor // Monica e etc).

    Será de grande ajuda para mim, muito obrigado por qualquer ajuda!

    quinta-feira, 24 de outubro de 2013 12:46

Respostas

  • Troque

        Selection.AutoFilter Field:=3, Criteria1:="=" & Descrição.Text

    por

        Selection.AutoFilter Field:=3, Criteria1:="=*" & Descrição.Text & "*"


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    sexta-feira, 25 de outubro de 2013 01:00
    Moderador

Todas as Respostas

  • Troque

        Selection.AutoFilter Field:=3, Criteria1:="=" & Descrição.Text

    por

        Selection.AutoFilter Field:=3, Criteria1:="=*" & Descrição.Text & "*"


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    sexta-feira, 25 de outubro de 2013 01:00
    Moderador
  • Muito obrigado Felipe!!

    Resolveu o meu problema, muito bom mesmo!

    Ficando assim o código para futuros usuários:

    Private Sub Descrição_Change()
    If Descrição.Text <> "" Then
        Selection.AutoFilter Field:=4, Criteria1:="=*" & Descrição.Text & "*"
      Else
        Selection.AutoFilter Field:=4
      End If
    End Sub

    sexta-feira, 25 de outubro de 2013 11:42