Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Erros ao Fechar o p...
 
Notifications
Clear all

Erros ao Fechar o projeto.

 
2024 - VBA & Macros
Post Recente por Lorenzon 9 anos atrás
3 Posts
2 Usuários
0 Reactions
1,114 Visualizações
RSS
Lorenzon
 Lorenzon
(@lorenzon)
Posts: 355
Reputable Member
Topic starter
 

Pessoal,

Tenho um projeto que ''funciona perfeitamente'', mas, algumas vezes, quando eu clico no botão sair, ele apresenta os seguintes erros:

Vejam o código de Sair (fechar e salvar o programa).

Private Sub Image6_Click()
Application.OnKey "{Escape}", ""
Dim RESPONDA

RESPONDA = MsgBox("Deseja realmente sair do Sistema?", vbYesNo, "Atenção!")

Select Case RESPONDA

Case 1


Application.OnKey "{Escape}", ""


ThisWorkbook.Close SaveChanges:=True

Application.Quit

Case 2

End Select


End Sub

Quais são os possíveis códigos que acarretam esse erro? Como corrigir isso?

 
Postado : 31/03/2015 5:01 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Esse gráfico está alimentado por um intervalo dinâmico ?
Isso não parece erro de VBA e sim de Excel, pq de repente o gráfico ficou sem dados, ou os dados que o alimentam , que deveriam ser unidimensionais (ou seja, uma linha, ou uma coluna) de repente passaram a ser multidimensionais...

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 31/03/2015 7:30 am
Lorenzon
 Lorenzon
(@lorenzon)
Posts: 355
Reputable Member
Topic starter
 

Fernando,

Desculpa-me pela minha ignorância, mas não consigo responder muito bem a sua pergunta.

O gráfico é preenchido através de um intervalo, o qual os valores são resultados de um procv referente ao valor de um célula.

Pessoal,

Deduzindo que os problemas estivessem na geração dos gráficos no controle de Imagem, eu os excluir, bem como todos os códigos pertinentes a essa ação.

Além disso, inseri esse comandos no código de encerramento do projeto:

on error resume next

call códigoQueFechaSistema

On Error GoTo 0

Mas os problemas continuam.

 
Postado : 31/03/2015 8:15 am
Forum Jump:
  Tópico Anterior
Próximo Tópico