none
AutoFiltro - Selecionar dados diferentes de ... RRS feed

  • Pergunta

  • Bom dia!

    Tenho um problema.

    Possuo uma planilha em que carrego diariamente seus dados.

    Preciso, usando o autofiltro, selecionar apenas os dados diferentes de, conforme abaixo.

    Já utilizei:

    ActiveSheet.Range("$A$1:$AD$300000").AutoFilter Field:=3, Criteria1:=Array( _
            "<>E01", "<>E05", "<>E98", "<>E59", "<>E54", "<>E61", "<>E65", "<>E72", "<>E04", "<>E52", "<>E51", _
            "<>E86", "<>E96", "<>E03", "<>E56", "<>E50", "<>E63", "<>E53", "<>E60", "<>E90", "<>E81", "<>E87", "<>182" _
    ), Operator:=xlFilterAnd

    Porém, estes critérios não se aplicam, somente o último (182) é tirado do filtro.

    Alguém por favor conhece alguma solução?

    Muito obrigado.

    quinta-feira, 21 de novembro de 2013 13:43

Respostas

  • Você terá que resolver seu problema de outra forma. Não é possível dar o comando "não quero ver no filtro valores iguais de a, b e c no autofiltro" por VBA, mas sim "quero ver os valores d, e, f e g no filtro".

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

    • Marcado como Resposta Fábio Benetton terça-feira, 26 de novembro de 2013 10:27
    segunda-feira, 25 de novembro de 2013 23:36
    Moderador

Todas as Respostas

  • Alguém saberia por favor???
    sexta-feira, 22 de novembro de 2013 12:19
  • Você terá que resolver seu problema de outra forma. Não é possível dar o comando "não quero ver no filtro valores iguais de a, b e c no autofiltro" por VBA, mas sim "quero ver os valores d, e, f e g no filtro".

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

    • Marcado como Resposta Fábio Benetton terça-feira, 26 de novembro de 2013 10:27
    segunda-feira, 25 de novembro de 2013 23:36
    Moderador
  • Realmente Felipe, suspeitei que não era possível esse comando. Procurei em livros, sites e tudo mais e não encontrei!

    Muito obrigado pela ajuda!

    Abraços

    terça-feira, 26 de novembro de 2013 10:29
  • Você pode tentar uma alternativa, como por exemplo ocultar linhas que não possuam os critérios desejados ao invés de filtrá-los:

    Sub fnc()
      Dim lngLast As Long
      Dim lngRow As Long
      Dim wks As Excel.Worksheet
      
      Set wks = Excel.ActiveSheet
      With wks
        lngLast = .Cells(.Rows.Count, "C").End(xlUp).Row
        For lngRow = lngLast To 2 Step -1
          If Not IsError(Application.Match(.Cells(lngRow, "C").Value _
          , Array("E01", "E05", "E98") _
          , 0)) Then
            .Rows(lngRow).Hidden = True
          End If
        Next lngRow
      End With
    End Sub


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

    terça-feira, 26 de novembro de 2013 23:35
    Moderador