RENOMEAR TUDO DE UMA SÓ VEZ

JORGESALES 28/04/2016 21:14:15
#461638
Pessoal, ao assistir o vídeo abaixo fiquei pensando se existe uma possibilidade
de substituir todos os [Ô][txt-color=#0000f0]End Sub[/txt-color][Ô] que tenho no meu projeto
por:
Exit Sub
Erro:
msgbox Err.Description
End Sub


Digo isso pois já tenho vários projetos prontos e seria muito
trabalhoso colocar de um a um.
PS: esse é o link do vídeo para quem quiser assistir em tela maior:
http://cursoexcelvba.com.br/produto/Tratamento-de-Erros-Curso-Excel/74/
KERPLUNK 28/04/2016 21:59:58
#461647
Lembre-se que você pode ter não somente subs, mas também functions.
KERPLUNK 28/04/2016 22:08:13
#461648
Lembre-se que você pode ter não somente subs, mas também functions.
JORGESALES 28/04/2016 22:30:11
#461649
Mas eu faria uma de cada vez....
GANDA.NICK 29/04/2016 09:34:52
#461656 Resposta escolhida
Tem um add-in chamado MZ-Tools que adiciona automaticamente esse error handler para você....

Penso que só dará para adicionar a uma sub/function de cada vez... mas só precisa ter o mouse na sub e carregar num botão....

Tem também a opção de colocar numeros para identificar as linhas... o que me parece adequado para saber qual a linha que deu erro... tem é que editar o template do error handler...

O add-in é free... Tem muitas outras opções...vale a pena dar uma olhada...
Link: MZ-Tools
DS2T 29/04/2016 13:26:37
#461666
Lembre-se que o arquivo .vb nada mais é que um arquivo tipo texto.
Você pode criar um código para percorrer todos os arquivos, localizar End Sub ou End Function e adicionar isso daí.
Vale a pena fazer isso, só se o projeto for bem grande. Se for só uns 5 forms, vai na munheca que leva menos tempo. Para criar o projetinho de substituição, você levaria algo em torno de 30 minutos.
JORGESALES 02/05/2016 20:19:39
#461792
Muito obrigado de verdade pela contribuição de todos,
vou pesquisar sobreo MZ-Tools...
Tópico encerrado , respostas não são mais permitidas
Voltar