VBA - Erro ao executar uma Macro

Esta resposta foi traduzida automaticamente. Portanto, pode conter erros gramaticais ou termos incomuns.

Olá, @Ericka Galvão,

Espero que esteja tendo um ótimo dia.

Entrarei em contato novamente para acompanhar o seu problema e verificar se tudo foi resolvido. Meu objetivo é garantir que sua experiência seja tranquila e sem complicações. Se você ainda estiver com problemas ou se deparou com novos desafios, informe-me em quais etapas está travado e ficarei feliz em ajudar sempre que precisar.

Se tiver mais alguma dúvida, sinta-se à vontade para me marcar na sua resposta para que eu possa ajudá-lo diretamente.

Aguardo sua atualização.

Esta resposta foi traduzida automaticamente. Portanto, pode conter erros gramaticais ou termos incomuns.

Bom dia @Ericka Galvão,

Espero que tudo esteja funcionando perfeitamente.

Continuando com o tópico de suporte em que estamos trabalhando. Você teve tempo de verificar a resposta anterior? Se você ainda estiver enfrentando o mesmo problema ou precisar de ajuda com qualquer outra coisa, responda a este e-mail e terei prazer em ajudar.

Queremos garantir que tudo esteja funcionando conforme o esperado e que sua experiência permaneça ininterrupta.

Agradecemos sua paciência e compreensão durante todo o processo de solução de problemas.

Aguardo seu contato em breve.

Esta resposta foi traduzida automaticamente. Portanto, pode conter erros gramaticais ou termos incomuns.

Olá, @Ericka Galvão,

Obrigado por postar sua pergunta no fórum de perguntas e respostas da Microsoft.

O erro "Erro de execução '1004': Falha no método 'Range' do objeto '_Global'" é causado quando um dos seus objetos Range está incorreto ou sem referência. No seu script, como você usou Range("Exercício5!Criteria") e Range("A5"), o Excel não sabe a qual planilha esses intervalos pertencem e causou o erro.

Você pode tentar modificar sua macro para:

Sub FilterAdvanced()

Application.CutCopyMode = False

Sheets("Exercício4").Range("Tabela2[#All]").AdvancedFilter _

Action:=xlFilterCopy, _

CriteriaRange:=Sheets("Exercício5").Range("Criteria"), _ CopyToRange:=Sheets("Exercício5").Range("A5"), _

Unique:=False

End Sub

Espero que as informações acima sejam úteis. Você pode tentar uma solução alternativa e nos contar como foi o processo ou se precisar de ajuda com alguma etapa. Estou aqui para ajudar e garantir que tudo volte a funcionar corretamente.

Agradeço sua compreensão e cooperação. Aguardo sua resposta.

Se a resposta for útil, clique em "Aceitar Resposta" e, por favor, vote positivamente. Caso tenha mais alguma dúvida sobre esta resposta, clique em "Comentar".

Observação: siga as etapas em nossa documentação para habilitar as notificações por e-mail caso queira receber notificações por e-mail relacionadas a este tópico.