Este fórum está sendo desativado

[WLOPES]

- Olá a todos.
Faz muito tempo que não uso VBA no Excel, mas ultimamente preciso e esbarrei no seguinte problema:
tenho uma planilha com diversas abas, em uma célula da plan1 entro com um nome e uso uma sub para procurar a aba com o nome que está na célula. Até aí tudo bem, funciona. O problema quando a celula da plan1 contem um nome que não existe nas abas retorna erro. Já usei o on error e empaquei.
O que eu preciso é de uma rotina para quando der erro, aparecer a mensagem "Planinha não encontrada", até aqui consegui. Mas o problema é que não consigo chamar a rotina de entrada do nome e continuar até achar o nome correto.
Alguem pode ajudar?
Obrigado

[Sandman]

bom dia amigo, poderia postar a sua planilha para podermos analisar?
facilita bastante o entendimento e a possivel resolução do seu problema

[WLOPES]

- Boa tarde Sandman, obrigado por responder.
Segue em anexo o esboço da planilha, estou iniciando com a entrada do nome e busca a planilha correspondente.
Abs.

[Parkeless]

Boa tarde!

Tenta trocar o código da macro IRPARA por esse:

Código: Selecionar todos

Sub IRPARA()

Dim nome As String

nome = Sheets("CALCULO").Range("J23")

On Error GoTo Errorhandler

Sheets(nome).Select
Exit Sub

Errorhandler:
MsgBox "Planilha não encontrada!", vbCritical

Run ("ENTRARNOME")

End Sub

Seria isso?

[WLOPES]

- Boa noite.
Amigo Parkeless, é quase isso.
O problema é, se erra duas vezes a macro aceita o nome e não vai a lugar algum. Se logo após um erro você digitar o nome correto ela não vai para a aba do nome.
Notei na sentença: MsgBox "Planilha não encontrada!", vbCritical, o que é o vbCritical?
Falta pouco, obrigado pela ajuda.
Abs.

[WLOPES]

- Bom dia.
Aparentemente resolvi o problema.
Amigo Parkeless, obrigado pela ajuda.
No teu código a sentença Run ("ENTRARNOME") troquei por Run ("INICIAR") E FUNCIONOU!!!!!
Vou fazer mais testes e volto aqui para finalizar.
Abs.

[Parkeless]

Bom dia!

Só para constar, vbcritcal é o que faz aparecer o "x" vermelhinho na caixa de mensagem kk. Tem o vbExclamation e vbInformation também, que faz aparecer um ponto de exclamação amarelo ou um "i" de informação azul.

Que bom que trocando deu certo haha, pelo menos a princípio... qualquer coisa me fala que dou uma olhada.

[WLOPES]

- Bom dia.
Amigo Parkeless desculpa a demora em retornar e dar uma resposta.
Fiz diversos testes e a minha modificação sobre o teu código funcionou, muito obrigado pela ajuda.
Estou marcando como resolvido e 1000% satisfeito com o forum.
Abs.