Página 1 de 1
Código VBA para filtro com múltiplos itens
Enviado: 29 Nov 2018 às 13:26
por 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!
Re: Código VBA para filtro com múltiplos itens
Enviado: 29 Nov 2018 às 13:48
por 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.
Re: Código VBA para filtro com múltiplos itens
Enviado: 29 Nov 2018 às 15:11
por Wieniawski
olá osvaldomp!
Segue anexo
O 3º critério é excluir do filtro o termo Lotrans
Obgd!
Re: Código VBA para filtro com múltiplos itens
Enviado: 30 Nov 2018 às 06:29
por osvaldomp
Experimente:
Código: Selecionar todosSub 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
Código VBA para filtro com múltiplos itens
Enviado: 30 Nov 2018 às 09:51
por Wieniawski
Deu certo Osvaldo, mais uma vez muito obrigado!
Código VBA para filtro com múltiplos itens
Enviado: 30 Nov 2018 às 10:21
por Wieniawski
Só mais uma pergunta, o que significa este 27 que aparece no final do código?
AutoFilter 27, 0
Re: Código VBA para filtro com múltiplos itens
Enviado: 30 Nov 2018 às 12:59
por 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.
Re: Código VBA para filtro com múltiplos itens
Enviado: 30 Nov 2018 às 13:37
por Wieniawski
Show!!!
