On Error GoTo

Ao invés de exibir uma tela de erro para a pessoa que está usando a planilha, interessante é usar o On Error Go To para tratarmos o erro.

Ou seja no lugar do erro classico na tela,

irá exibir uma mensagem personalizada.

O código abaixo (e/ou em anexo) está o código com erro tratado
_________________________________________

Sub separa()

Dim linha, nome, prenome, sobrenome, espaco, tlin
Dim letras, aviso
'declara variaveis

On Error GoTo aviso
'tendo erros, pula para aviso

tlin = WorksheetFunction.CountA(Columns("A"))
'conta quantas linhas na coluna a

For linha = 2 To tlin
   nome = Cells(linha, "a")
   espaco = InStr(1, nome, " ") 'localiza o espaço
   prenome = Left(nome, espaco)
   letras = Len(nome) 'conta caracteres
   sobrenome = Right(nome, letras - espaco)
   Cells(linha, "b") = prenome
   'alterei o codigo , no lugar de linha coloquei o nome
   'pra mostrar o tratamento do erro
   Cells(nome, "c") = sobrenome
Next

Exit Sub
'se a macro estiver ok, acaba aqui

aviso: MsgBox "A macro está com problemas! ligue 190"

End Sub

Sub separa()

Dim linha, nome, prenome, sobrenome, espaco, tlin

Dim letras, aviso

'declara variaveis

On Error GoTo aviso

'tendo erros, pula para aviso

tlin = WorksheetFunction.CountA(Columns("A"))

'conta quantas linhas na coluna a

For linha = 2 To tlin

nome = Cells(linha, "a")

espaco = InStr(1, nome, " ") 'localiza o espaço

prenome = Left(nome, espaco)

letras = Len(nome) 'conta caracteres

sobrenome = Right(nome, letras - espaco)

Cells(linha, "b") = prenome

'alterei o codigo , no lugar de linha coloquei o nome

'pra mostrar o tratamento do erro

Cells(nome, "c") = sobrenome

Exit Sub

'se a macro estiver ok, acaba aqui

aviso: MsgBox "A macro está com problemas! ligue 190"

End Sub

_________________________________________

Pesquisar

Tags