erro em tempo de execução '1004' do Excel, erro de definição de aplicativo ou de objeto

Question

eu tenho uma planilha de excel. sempre usei esta planilha mas de um tempo pra ca surgiu um problema. eu tenho a seguinte macro. "Private Sub Workbook_Open() ActiveWorkbook.Sheets("BEMVINDO").Activate Range("CaminhoAtividades") = ThisWorkbook.Path Range("NomePasta") = ActiveWorkbook.Name End Sub" porém apareceu o seguinte erro: " erro em tempo de execução '1004' do Excel, erro de definição de aplicativo ou de objeto. Como posso corrigir este erro?

Answer 1

Oi!

Bem-vindo ao Microsoft Q&A!

O erro de tempo de execução ‘1004’ no Excel geralmente ocorre devido a problemas com a referência a objetos ou métodos que não existem ou não estão acessíveis no momento da execução. No seu caso, o problema pode estar relacionado às referências de intervalo ou à ativação da planilha. Aqui estão algumas sugestões para corrigir o erro:

Verifique os nomes dos intervalos: Certifique-se de que os intervalos “CaminhoAtividades” e “NomePasta” existem na planilha “BEMVINDO”. Se esses intervalos não existirem, o código falhará.

Ative a planilha antes de definir os intervalos: Às vezes, é necessário ativar a planilha antes de definir os intervalos. Tente modificar seu código para garantir que a planilha esteja ativa antes de definir os valores dos intervalos.

Aqui está uma versão modificada do seu código:

Private Sub Workbook_Open()

With ActiveWorkbook

.Sheets("BEMVINDO").Activate

.Sheets("BEMVINDO").Range("CaminhoAtividades").Value = .Path

.Sheets("BEMVINDO").Range("NomePasta").Value = .NameEnd With End Sub

1. Verifique a existência da planilha “BEMVINDO”: Certifique-se de que a planilha “BEMVINDO” realmente existe no seu workbook. Se o nome estiver incorreto ou a planilha não existir, o código falhará.
2. Depuração: Utilize a ferramenta de depuração do VBA para verificar linha por linha onde o erro ocorre. Isso pode ajudar a identificar exatamente qual parte do código está causando o problema.

Espero que essas dicas ajudem a resolver o problema! Se precisar de mais assistência, estou à disposição.

Saudações

Jonathan.

-----------

Se a resposta for a solução correta, clique em "Aceitar resposta" e vote educadamente nela. Se você tiver perguntas adicionais sobre essa resposta, clique em "Comentar". Nota: Siga as etapas em nossa documentação para habilitar notificações por e-mail se você gostaria de receber notificações por e-mail relacionadas a este tópico.