Este fórum está sendo desativado

[WLOPES]

- Olá a todos.
Preciso de ajuda.
Tenho uma rotina que usa o inputbox para entrar o nome de uma planilha e busca pela mesma nas abas.
O problema é se eu quero sair do inputbox após alguns msg de "plan não encontrada" ou me arrepender e não querer prosseguir, só consigo sair se escrever um nome válido e executar o resto da macro.
Como faço para sair?
A planinha com a macro que estou incluindo já recebi a ajuda do amigo Parkeless em outra ocasião.
Abs.

[alexandrevba]

Bom dia!!

talvez isso o ajude.

Código: Selecionar todos

Sub AleVBA_1221()
 Dim ENTRADA As String
    ENTRADA = InputBox("Digite o nome do Produto: ", "PROCURAR", "")
    If ENTRADA = "" Then
        Exit Sub
    Else
        ThisWorkbook.Worksheets("calculo").Range("j23").Value = ENTRADA
    End If
End Sub

Att

[WLOPES]

- Amigo Alexandre, obrigado.
Adaptei teu código e no then exit sub, troquei por then MsgBox "FIM" ActiveWindow.Close SaveChanges:=False
Vou deixar em aberto e esperar um pouco para ver se surge alguma ideia nova.
Muito obrigado mais uma vez.
Abs.

[alexandrevba]

Boa tarde!!

Diga o que mais você precisa, eu não entendi!


Att

[WLOPES]

- Amigo, desculpe a demora em responder. Estiver um pouco afastado por causa do trabalho.
Seu código foi de grande valia, estou usando-o com uma modificação tal qual mencionei antes.
Muito obrigado pela ajuda.
Abs.