none
Como utilizar um valor copiado de uma célula para utiliza-lá no filtro de dados de forma direta RRS feed

  • Pergunta

  • O problema está na parte em destaque. Eu não consigo fazer ele ler a variável que eu criei (var1) que contem o texto que deve ser usado como filtro. Ficaria muito agradecido se alguém me ajudasse com esse problema.

    Sub filtro()
    '
        Sheets("apoio").Select
        Range("A1").Select
        Selection.End(xlDown).Select
        var1 = Selection.Value
        Sheets("Plan8").Select

    ActiveSheet.Range("$A$1:$C$1").AutoFilter Field:=1, Criteria1:= _
            "=*var1*", Operator:=xlAnd
            
    End Sub

    quinta-feira, 5 de julho de 2018 19:21

Respostas

  • Boa noite Rafael.

    Se entendi bem o que deseja, basta concatenar sua variável:

    ActiveSheet.Range("$A$1:$A$1").AutoFilter Field:=1, Criteria1:= _
            "=*" & var1 & "*", Operator:=xlAnd

    É isso?


    Filipe Magno

    • Marcado como Resposta Rafael Marcocio sexta-feira, 6 de julho de 2018 13:27
    sexta-feira, 6 de julho de 2018 02:50