Bom dia!!

Retire a coluna em barnco (coluna "P") e tente

Sub Filtrar_PedidosII()
Worksheets("Plan4").Activate
Plan4.Range("A1:P50000").AdvancedFilter Action:=xlFilterCopy, _
                        CriteriaRange:=Range("AA2:AP3"), _
                        CopyToRange:=Range("AA6"), _
                        Unique:=False
       
    'MsgBox "Consulta efetuada com sucesso!", vbInformation + vbOKOnly, "Consulta"
       
    'Range("B2").Select
       
End Sub

Altere esse para

Private Sub Worksheet_Activate()
Call Filtrar_PedidosII
On Error Resume Next
End Sub

Fonte:
http://www.cpearson.com/excel/errorhandling.htm

alexandrevba,

te agradeço pela ajuda, mas não funcionou como esperado. Como sempre faço cópia de tudo antes de cada alteração, peguei a cópia anterior e recomeçei o projeto. Gostaria que vc desse uma olhada pois os códigos que estavam antes estão funcionando....ainda não entendi o porque apresentou o erro 1004. Vou deixar o arquivo refeito, se puder dar uma olhada, eu agradeço.

Desde já meu muito obrigado a vc, por ter respondido a minha pergunta

Arquivo: Dados_II

http://www.4shared.com/file/L8Rb7_S7ce/Dados_II.html

Boa Noite

Estou Com Esse Problema Também, Tentei Varias Coisas Mais Como Sou Novo em Excel, Não Consegui Resolver.....
Gostaria de Saber se Alguem pode me Ajudar!!!!

Em Anexo Uma Planilha Teste..... e Um Arquivo JPG mostrando o Erro....

https://www.4shared.com/file/rW2fQlVice ... Teste.html

https://www.4shared.com/photo/EVESxX4Jce/Erro_1004.html

Bom dia!!

Onde eu trabalho eu não tenho acesso ao sites de hospedagem de arquivos

Att

Estou tb com este problema ... ora funciona ora não funciona este é o meu código

Sheets("Tabela").Range("A1:K1106").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("A1:B2"), CopyToRange:=Range("A3:K3"), Unique:=False

e esta a mensagem de erro

"o intervalo de extração contém nome de campo ilegal ou em falta"

Cheguei à conclusão que só funciona até à coluna "I" (i)!!
Será possivel? A ser verdade há correcção?
Obrigado

Não, não é nada disto, creio eu!!
A coluna "J" tinha "Livro" e a Coluna "K" o nome "Termo" alterei os nomes e já funciona.
Obrigado