Ir para conteúdo
Fórum Script Brasil
  • 0

On Error - Utilização de On Error no VBA


Luis Geraldo

Pergunta

Boa tarde

 

No código abaixo foi gerado uma caixa de mensagem que se eu clicar em Sim, ela reexibe duas abas, nessa parte do código não tem problema, porém se na caixa de mensagem eu clicar em Não a planilha deveria ocultar duas abas (aba Scopo e Instruções) porém se essas abas já estiverem ocultas na minha planilha o código gera erro. Eu gostaria que ao abrir a planilha (arquivo de excel) já aparecesse inicialmente uma caixa de mensagem para responder Sim ou Não e que o erro gerado no código( na caixa de mensagem, se eu clicar em Não a planilha deveria ocultar duas abas, Scopo e Instruções) , seja feito nada, ou seja, se o código der erro ele finaliza sem nenhuma mensagem, se não der erro ele oculta as abas.

 

Segue planilha de exemplo em anexo. Mudei a extensão para conseguir inserir o arquivo 

 

Código

Sub MacroMsg()
'
' MacroMsg Macro
'

 Dim resultado As VbMsgBoxResult
     resultado = MsgBox("Você irá fazer alguma atualização?", vbYesNo, "Tomando uma decisão")
     If resultado = vbYes Then
   
          Sheets("Dash").Select
    Sheets("Scopo").Visible = True
    Sheets("Scopo").Select
    Sheets("Instruções").Visible = True
    Sheets("dash").Select
    Range("b1").Select
     Else
     
        Sheets("Dash").Select
    Range("B1").Select
    Sheets(Array("Scopo", "Instruções")).Select
        Sheets("Instruções").Activate
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Dados").Select
    Range("Tabela1[[#Headers],[Placa]]").Select
    Selection.End(xlDown).Select
    Sheets("Dash").Select
    Range("B1").Select
    
            
       End If
     End Sub

Link para o comentário
Compartilhar em outros sites

0 respostass a esta questão

Posts Recomendados

Até agora não há respostas para essa pergunta

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...