AutoFiltro - Selecionar dados diferentes de ...

Question

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.

Answer 1

Alguém saberia por favor???

Answer 2

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

Answer 3

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

Answer 4

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