Esconder Sheets IF...

[RPCosta67]

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

[bruno1979]

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.

[RPCosta67]

Obrigado....vou testar...parece que é aquilo que preciso...