Notifications

Clear all

Aonde declarar "On Error GoTo"?

2024 - VBA & Macros

Post Recente por wolneypk 12 anos atrás

4 Posts

2 Usuários

0 Reactions

856 Visualizações

RSS

wolneypk

(@wolneypk)

Posts: 188

Estimable Member

Topic starter

Amigos, criar um sistema com diversas ferramentas e função sempre é muito complicado pois ninguém é passível de erros.
Gostaria de criar uma função para que caso algum tipo de erro venha ocorrer, ele me apresente uma MsgBox.

Já fiz essa função:

On Error GoTo ErrMsg
ErrMsg:
MsgBox ("Ops! Algo deu errado! Contate o administrador imediatamente."), vbCritical

Meu único problema é: Aonde devo declarar essa função para que ela abranja todo o sistema?
Não sei de onde o erro vai partir, então gostaria que essa função fosse (por assim dizer) "universal" dentro do meu sistema.

Forte abraço!

"O impossível, é só uma questão de tempo"

Postado : 12/04/2013 8:56 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Veja se ajuda :

Tratamento de Exceção
http://www.ambienteoffice.com.br/office ... e_excecao/

Como usar "On Error" para manipular erros em uma Macro
http://support.microsoft.com/kb/141571/pt

0052-Tratamento de erro em códigos VBA
http://usuariosdoexcel.wordpress.com/20 ... digos-vba/

[]s

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

Postado : 12/04/2013 9:15 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Boa tarde!!

Se eu entendi, você está no caminho certo.

Sub SuaMacro()

'Variaveis

On Error GoTo ErrMsg '<--
'..Linha de Código
Exit Sub

ErrMsg: '<--
MsgBox ("Digite sua menssagem aqui."), , "Titulo"
End Sub