none
Como filtrar buscando vários valores no excel? RRS feed

Respostas

  • Sub pMain()
        Dim rData As Excel.Range
        
        'Altere abaixo o nome da planilha e o intervalo da tabela a filtrar conforme desejado.
        Set rData = ThisWorkbook.Worksheets("Plan1").Range("A1:D100")
        rData.AutoFilter
        rData.AutoFilter Field:=1, Criteria1:=Array("10w", "15w", "20w")
    End Sub


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

    terça-feira, 27 de janeiro de 2015 11:07
    Moderador

Todas as Respostas

  • Sub pMain()
        Dim rData As Excel.Range
        
        'Altere abaixo o nome da planilha e o intervalo da tabela a filtrar conforme desejado.
        Set rData = ThisWorkbook.Worksheets("Plan1").Range("A1:D100")
        rData.AutoFilter
        rData.AutoFilter Field:=1, Criteria1:=Array("10w", "15w", "20w")
    End Sub


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

    terça-feira, 27 de janeiro de 2015 11:07
    Moderador
  • Amigo,

    Poderia me ajudar ? como eu faço para ao invés de colocar no array os critérios, eu selecionar um intervalo de criterio da minha planilha.

    quarta-feira, 21 de fevereiro de 2018 13:10
  • Aproveitando o exemplo do colega Felipe, segue com a alteração solicitada.

    Sub pMain()
        Dim rData As Excel.Range
        Dim SeuInterval As Range
        
        'Altere abaixo o nome da planilha e o intervalo da tabela a filtrar conforme desejado.
        Set rData = ThisWorkbook.Worksheets("Plan1").Range("A1:D100")
        
        Set SeuInterval = Application.InputBox(Prompt:="Por favor selecione o intervalo", Title:="Seleção de Intervalo", Type:=8)
        
        rData.AutoFilter
        
        rData.AutoFilter Field:=1, Criteria1:=SeuInterval
    End Sub


    Marque como util a resposta se foi util a voce. ricardodm@outlook.com.br


    • Editado Ricardo Vba quarta-feira, 21 de fevereiro de 2018 14:07
    quarta-feira, 21 de fevereiro de 2018 14:07
  • Valeeuu Ricardo, deu certo. Show
    quarta-feira, 21 de fevereiro de 2018 18:11
  • Não funcionou aqui.

    Nem a primeira opção, nem essa segunda com a Seleção de Intervalo.

    A macro sempre está considerando apenas o último termo a ser filtrado.

    sexta-feira, 9 de março de 2018 12:48