Ocultar e exibir abas no Excel com VBA.

Question

Ol&aacute;,

Poderiam em ajudar com a planilha em anexo?

Eu tenho duas abas do excel que ficam ocultas, queria um macro que quando o usuario aperta o bot&atilde;o a aba 1 ou 2 exibi conforme os criterios que vai aparecer em uma celula.
Coloquei um exemplo no anexo.

&Eacute; poss&iacute;vel fazer isto? N&atilde;o consegui achar nada na internet.

Answer

Experimente:
Sub OcultaReexibePlans()
If [A1] = 1 Then
  Sheets(Ocultar1).Visible = True
  Sheets(Ocultar2).Visible = False
ElseIf [A1] = 2 Then
  Sheets(Ocultar1).Visible = False
  Sheets(Ocultar2).Visible = True
End If
End Sub

Op&ccedil;&atilde;o sem bot&atilde;o para acionar a macro - cole o c&oacute;digo abaixo no m&oacute;dulo da Planilha1. O c&oacute;digo ir&aacute; rodar automaticamente ao inserir o n&uacute;mero 1 ou o n&uacute;mero 2 em A1.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address  $A$1 Then Exit Sub
If Target.Value = 1 Then
  Sheets(Ocultar1).Visible = True
  Sheets(Ocultar2).Visible = False
ElseIf Target.Value = 2 Then
  Sheets(Ocultar1).Visible = False
  Sheets(Ocultar2).Visible = True
End If
End Sub

Answer

Funcionou!! Obrigada! :)

Ferramentas

Mover Tópico