Jump to content

Esconder Sheets IF...


Recommended Posts

Boa tarde,

Em primeiro lugar quero agradecer o facto de me deixarem entrar neste forum. Um abraço a todos!

Venho solicitar a vossa ajuda para o seguinte:

Tenho um ficheiro Excel com 60 folhas, nomeadas da seguinte forma: 1 ; DOM_1 ;...; 30 ; DOM_30 e uma folha MASCARA

O que pretendo é que, por exemplo, na folha MASCARA se célula A1=4 esconder todas as folhas excepto as 1 ; DOM_1 ; 2 ; DOM_2 ; 3 ; DOM_3 ; 4 ; DOM_4.

Isto é possível?

Obrigado

Cumprimentos

Link to comment
Share on other sites

Possível é. Não sei bem se é isto o pretendido mas aqui vai...

Private Sub CommandButton1_Click()
Dim FolhasVisiveis As Integer
FolhasVisiveis = Worksheets("Folha6").Range("A1").Value + 1
For i = FolhasVisiveis To Worksheets.Count
 Worksheets(i).Visible = False
Next i
End Sub

Este código inserido dentro de um evento como um botão faz ocultar as todas do livro excepto as primeiras N folhas definidas na célula A1. Este código precisa de ser refinado consoante o programa.

Espero que ajude.

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.