Jump to content
Fórum Script Brasil
  • 0

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


Question

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 to post
Share on other sites

0 answers to this question

Recommended Posts

There have been no answers to this question yet

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      148887
    • Total Posts
      644947
×
×
  • Create New...