Ir para conteúdo
Fórum Script Brasil
  • 0

Erro no tempo de execução 1004: erro de definição de aplicativo ou definição de objeto


Ana Flavia Oliveira

Pergunta

Trata-se de um formulário simples, porém muito extenso. O erro está aparecendo na linha" Sheets("Lançamentos").Cells(Linha, 316).Value = hora_inicio20.Value". Quando tento cadastrar os dados, ele apresenta esse erro, ainda que o form abra normalmente. Segue o código (a linha que está em verde é onde está apresentando o erro):

Private Sub CommandButton14_Click()
Call proc1
Call proc2
Call proc3
Call proc4
Call proc5
End Sub

Private Sub proc1()

Linha = Sheets("Lançamentos").Range("A1048576").End(xlUp).Row + 1
Sheets("Lançamentos").Cells(Linha, 1).Value = caixadata.Value
Sheets("Lançamentos").Cells(Linha, 2).Value = caixacodigo.Value
Sheets("Lançamentos").Cells(Linha, 3).Value = hora_inicio.Value
Sheets("Lançamentos").Cells(Linha, 4).Value = hora_fim.Value
Sheets("Lançamentos").Cells(Linha, 5).Value = executante.Value

If botaoveri1 = True Then
Sheets("Lançamentos").Cells(Linha, 6).Value = "X"
End If
If botaoajuste1 = True Then
Sheets("Lançamentos").Cells(Linha, 7).Value = "X"
End If
If botaotroca1 = True Then
Sheets("Lançamentos").Cells(Linha, 8).Value = "X"
End If
If botaolubri1 = True Then
Sheets("Lançamentos").Cells(Linha, 9).Value = "X"
End If
Sheets("Lançamentos").Cells(Linha, 10).Value = hora_inicio2.Value
Sheets("Lançamentos").Cells(Linha, 11).Value = hora_fim2.Value
Sheets("Lançamentos").Cells(Linha, 12).Value = executante2.Value
If botaoveri2 = True Then

...

End sub

(O código se repete por mais várias linhas, mudando apenas as colunas e o índice de hora_inicio, hora_fim e executante)

...

Private Sub proc2()

...

If botaoveri65 = True Then
Sheets("Lançamentos").Cells(Linha, 312).Value = "X"
End If

If botaoajuste65 = True Then
Sheets("Lançamentos").Cells(Linha, 313).Value = "X"
End If

If botaotroca65 = True Then
Sheets("Lançamentos").Cells(Linha, 314).Value = "X"
End If

If botaolubri65 = True Then
Sheets("Lançamentos").Cells(Linha, 315).Value = "X"
End If

Sheets("Lançamentos").Cells(Linha, 316).Value = hora_inicio20.Value
Sheets("Lançamentos").Cells(Linha, 317).Value = hora_fim20.Value
Sheets("Lançamentos").Cells(Linha, 318).Value = executante20.Value
...

Sheets("Lançamentos").Cells(Linha, 894).Value = observacao.Value
MsgBox ("Cadastrado com sucesso!"), vbInformation, "CADASTRO"

End sub

...

Link para o comentário
Compartilhar em outros sites

0 respostass a esta questão

Posts Recomendados

Até agora não há respostas para essa pergunta

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...