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

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