Este fórum está sendo desativado

[Wieniawski]

Srs, preciso criar um código para executar um filtro que desprezasse 3 itens ou mais, o que eu estou utilizando só despreza 2 itens:

Range("H1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$L$100").AutoFilter Field:=8, Criteria1:= _
"<>*PEG*", Operator:=xlAnd, Criteria2:="<>*PRIMOS*"

Como eu poderia fazer?

abc!

[osvaldomp]

Sugestão: disponibilize uma amostra do seu arquivo Excel, com alguns dados na planilha, informe qual é o terceiro critério, aplique o filtro manualmente para exibir o resultado desejado.

[Wieniawski]

olá osvaldomp!

Segue anexo

O 3º critério é excluir do filtro o termo Lotrans

Obgd!

[osvaldomp]

Experimente:

Código: Selecionar todos

Sub AutoFiltroMúltiplosCritérios()
 ActiveSheet.AutoFilterMode = False
 [AA:AA] = ""
 Range("AA1:AA" & Cells(Rows.Count, 1).End(3).Row).Formula = "=IF(OR(ISNUMBER(FIND({""PRIMOS"",""PEG"",""LOTRANS""},B1))),1,0)"
 Range("A1:AA" & Cells(Rows.Count, 1).End(3).Row).AutoFilter 27, 0
End Sub

[Wieniawski]

Deu certo Osvaldo, mais uma vez muito obrigado!

[Wieniawski]

Só mais uma pergunta, o que significa este 27 que aparece no final do código?

AutoFilter 27, 0

[osvaldomp]

O código utiliza a coluna AA como coluna auxiliar. Insere nela fórmulas que detectam se algum dos critérios está presente na coluna B. Se sim, retorna 1,se não, zero. Em seguida filtra as linhas que contém zero em AA, e AA é a coluna 27.

[Wieniawski]

Show!!!