Erros ao Fechar o projeto.

2024 - VBA & Macros

Post Recente por Lorenzon 10 anos atrás

3 Posts

2 Usuários

0 Reactions

1,123 Visualizações

RSS

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

(@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)

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