Erro em tempo de execução '424':

Question

Boa tarde pessoal!

Estou com dificuldade na execução de um código simples vba. Quando executo o código retorna o erro '424'.

              

Sub Cadastrar_FICHA_CADASTRO()

Dim Linha As Integer

  Linha = plan7.Range("A10000").End(xlUp).Offset(1, 0).Row

   If Plan5.Range("C8,D8,C25,E25").Value = "" Then
    MsgBox "Verifique! todos os campos deverão ser Preenchidos!", vbExclamation, "Aviso"
   Exit Sub
   End If

  plan7.Range("A" & Linha).Value = Plan5.Range("C4").Value
  plan7.Range("B" & Linha).Value = Plan5.Range("C8").Value
  plan7.Range("C" & Linha).Value = Plan5.Range("D8").Value
  plan7.Range("D" & Linha).Value = Plan5.Range("C25").Value
  plan7.Range("E" & Linha).Value = Plan5.Range("E25").Value
  plan7.Range("F" & Linha).Value = Plan5.Range("D10").Value
  plan7.Range("G" & Linha).Value = Plan5.Range("I10").Value
  plan7.Range("H" & Linha).Value = Plan5.Range("G17").Value
  plan7.Range("I" & Linha).Value = Plan5.Range("G18").Value
  plan7.Range("J" & Linha).Value = Plan5.Range("H19").Value
  plan7.Range("K" & Linha).Value = Plan5.Range("C14").Value
  plan7.Range("L" & Linha).Value = Plan5.Range("E14").Value

  plan7.Range("M" & Linha).Value = Plan5.Range("F22").Value
  plan7.Range("N" & Linha).Value = Plan5.Range("H22").Value
  plan7.Range("O" & Linha).Value = Plan5.Range("E14").Value
  plan7.Range("P" & Linha).Value = Plan5.Range("I26").Value
  plan7.Range("Q" & Linha).Value = Plan5.Range("B38").Value

  End Sub

Me ajudem por favor.

Answer 1

Olá.

Em qual linha ocorre o erro?

Além disso, a expressão:

if Plan5.Range("C8,D8,C25,E25").Value = "" then

Não faz sentido. Ela avaliará apenas a célula "C8".

Dica: Execute a depuração linha a linha e veja o valor de cada expressão.

---

Filipe Magno

Answer 2

Felipe o erro ocorre na linha 

Linha = plan7.Range("A10000").End(xlUp).Offset(1, 0).Row

Como relação a linha 

if Plan5.Range("C8,D8,C25,E25").Value = "" then
Deixei apenas a celula "C8"

Answer 3

Este erro pode estar relacionado a não haver nenhuma planilha cujo CodeName (e não Name!) seja "plan7".

Verifique por favor: CodeName é a parte que fica fora do parêntesis no VBE.

Obs.: em algumas versões do Excel pode ser necessária ativar a planilha antes de executar uma instrução como esta, mas normalmente não é necessário.

---

Filipe Magno

Answer 4

Felipe boa noite!

Deu certo. De falto o problema estava na nome da planilha.

Muito obrigado.