Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Erro em tempo de ex...
 
Notifications
Clear all

Erro em tempo de execução.

 
2024 - VBA & Macros
Post Recente por robertonl 7 anos atrás
5 Posts
3 Usuários
0 Reactions
1,289 Visualizações
RSS
 robertonl
(@robertonl)
Posts: 0
New Member
Topic starter
 

Bom dia.
Estava lançando alguns dados na planilha normalmente até a linha 15 da coluna resumo.
Quando ela foi salvar os dados na linha 16 apareceu a seguinte mensagem.
Erro em tempo de execução 6. Estouro
Estava utilizando o codigo. Se alguém puder ajuda, pois tentei seguir algumas orientações da internet e se tiver alguma sugestão para alterar o código

Private Sub TQAcet_Res_afterupdate()
Dim retorno_Acetona As Integer
retorno_Acetona = 1

TQAcet_Res = Format(TQAcet_Res, "0.00")
Ent_Acet.Caption = Application.SumIf(Sheets("recebacet").[A:A], CDate(Txt_DataLcto.Value), Sheets("recebacet").[i:i])
Ent_Acet = Format(Ent_Acet, "0.00")
Saida_Acet.Caption = Application.SumIf(Sheets("Lancamentos").[A:A], CDate(Txt_DataLcto.Value), Sheets("Lancamentos").[e:e])
Saida_Acet = Format(Saida_Acet, "0.00")
Transf_Acet.Caption = Application.SumIf(Sheets("transferencia").[A:A], CDate(Txt_DataLcto.Value), Sheets("transferencia").[b:b])
Transf_Acet = Format(Transf_Acet, "0.00")
Saldo_Acet = Val(Me.TQAcet_1) + Val(Me.TQAcet_2) + Val(Me.TQAcet_Res)
Util_Acet = Val(SdIniAcet.Caption) + Val(Ent_Acet.Caption) - Val(Saldo_Acet.Caption)
Util_Acet = Format(Util_Acet, "0.00")
Label24 = ((Val(Util_Acet) / Val(Saida_Acet)) - retorno_Acetona)
Label24 = Format(Label24, "0.##%")

End Sub
 
Postado : 20/12/2017 2:06 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

O ideal seria anexar o seu modelo ou a rotina que está utilizando para lançar na planilha, nas instruções desta que postou só temos preenchimento de alguns controles tipo textboxa (acho) e label.

[]s

 
Postado : 20/12/2017 5:31 am
 klarc28
(@klarc28)
Posts: 0
New Member
 

https://www.youtube.com/watch?v=r6v4ZHVQi7A

 
Postado : 20/12/2017 5:51 am
 robertonl
(@robertonl)
Posts: 0
New Member
Topic starter
 

Os dados são lançados no formulário resumo

 
Postado : 20/12/2017 9:52 am
 robertonl
(@robertonl)
Posts: 0
New Member
Topic starter
 

Boa tarde.
Obrigado pela atenção de vocês que se empenharam em ajudar-me.
Consegui resolver a questão em si.
Utilizei o tratamento de erro.
Segue a sintaxe utilizada e graças a Deus funcionou.
Caso haja mais algum erro inesperado na planilha, solicitarei a ajuda de vocês,

Private Sub TQAcet_Res_afterupdate()
TQAcet_Res = Format(TQAcet_Res, "0.00")
Ent_Acet.Caption = Application.SumIf(Sheets("recebacet").[A:A], CDate(Txt_DataLcto.Value), Sheets("recebacet").[i:i])
Ent_Acet = Format(Ent_Acet, "0.00")
Saida_Acet.Caption = Application.SumIf(Sheets("Lancamentos").[A:A], CDate(Txt_DataLcto.Value), Sheets("Lancamentos").[e:e])
Saida_Acet = Format(Saida_Acet, "0.00")
[b]On Error GoTo trataErro[/b]
Transf_Acet.Caption = Application.SumIf(Sheets("transferencia").[A:A], CDate(Txt_DataLcto.Value), Sheets("transferencia").[b:b])
Transf_Acet = Format(Transf_Acet, "0.00")
Saldo_Acet = Val(Me.TQAcet_1) + Val(Me.TQAcet_2) + Val(Me.TQAcet_Res)
Saldo_Acet = Format(Saldo_Acet, "0.00")
Util_Acet = Val(SdIniAcet.Caption) + Val(Ent_Acet.Caption) - Val(Saldo_Acet.Caption)
Util_Acet = Format(Util_Acet, "0.00")
Label24 = ((Val(Util_Acet) / Val(Saida_Acet)) - retorno_Acetona)
Label24 = Format(Label24, "0.##%")
[b]trataErro:
  Saida_Acet = "0.00"
   Label24 = "0.00"[/b]
End Sub
 
Postado : 20/12/2017 1:34 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico