none
Erro em tempo de execução '424': RRS feed

  • Pergunta

  • 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.

    quarta-feira, 27 de fevereiro de 2019 17:30

Todas as Respostas

  • 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

    • Marcado como Resposta BTCURRENCY quinta-feira, 28 de fevereiro de 2019 12:35
    • Não Marcado como Resposta BTCURRENCY quinta-feira, 28 de fevereiro de 2019 12:35
    quarta-feira, 27 de fevereiro de 2019 22:35
  • 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"

    quinta-feira, 28 de fevereiro de 2019 12:37
  • 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

    quinta-feira, 28 de fevereiro de 2019 21:11
  • Felipe boa noite!

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

    Muito obrigado.

    quinta-feira, 28 de fevereiro de 2019 22:47