Aproveitando o post, como faço para adicionar dois critérios de busca? Seguem abaixo os dois para unificar em um só.

    
ActiveSheet.Range("$A$1:$AQ$65000").AutoFilter Field:=22, Criteria1:="PAGAMENTO ATRASADO", _
        Operator:=xlAnd
ActiveSheet.Range("$A$1:$AQ$65000").AutoFilter Field:=22, Criteria1:="COBRANÇA IMEDIATA", _
        Operator:=xlAnd

Boa noite!!

o que é

"PAGAMENTO ATRASADO" e "COBRANÇA IMEDIATA"

, um intervalo nomeado?

Uma dica você pode usar o intervalo que tem os critérios.

Att

chook, se realizar a pesquisa no Forum por "Criteria1" encontrará varios tópicos referente a este assunto.

Um site que eu recomendo é o da Contexture:
Excel Advanced Filter Introduction
http://www.contextures.com/xladvfilter01.html

[]s

Boa noite!!

o que é

"PAGAMENTO ATRASADO" e "COBRANÇA IMEDIATA"

, um intervalo nomeado?

Uma dica você pode usar o intervalo que tem os critérios.

Att

Amigo são valores válidos dentro do intervalo.

Boa noite!!

Considerando que os nomes estão em A1 e A2, o critério deve pegar as células células. =Range("A1:A2")

Atente se a dica do Mauro, use a pesquisa do fórum

Então, estes valores "PAGAMENTO ATRASADO" e "COBRANÇA IMEDIATA" são dados na planilha, registrados na columa Situação, que no filtro corresponde ao comando abaixo:

ActiveSheet.Range("$A$1:$AQ$65000").AutoFilter Field:=22, Criteria1:="PAGAMENTO ATRASADO", _
Operator:=xlAnd

O que preciso é que ative o filtro para os dois dados que informe anteriormente.

Dados
*******************
Situação

COBRANÇA IMEDIATA
COBRANÇA IMEDIATA
COBRANÇA IMEDIATA

PAGAMENTO ATRASADO

PAGAMENTO ATRASADO
PAGAMENTO ATRASADO
COBRANÇA IMEDIATA
COBRANÇA IMEDIATA
COBRANÇA IMEDIATA
COBRANÇA IMEDIATA
COBRANÇA IMEDIATA
*******************

Problema resolvido com o código abaixo:

ActiveSheet.Range("$A$1:$AQ$65000").AutoFilter Field:=22, Criteria1:="=COBRANÇA IMEDIATA", Operator:=xlOr, Criteria2:="=PAGAMENTO ATRASADO", _
Operator:=xlAnd