Gestione di tanti fogli in una cartella

Question

Ciao a tutti !!

Ho necessità di gestire una cartella excel che al suo interno ha circa 30 fogli e vorrei creare tre gruppi in modo da poter fare un pò di ordine nella sequenza di fogli che mi trovo in basso.

Esempio un gruppo A che contiene 7 fogli, un gruppo B che contiene 9 fogli e un gruppo C che contiene i rimanenti 14 fogli.

Il modo più semplice sarebbe quello di creare altre 2 cartelle e quindi poter separare i tre gruppi di fogli ma a me interessa averli nella stessa cartella ma con la possibilità di poterli raggruppare in maniera tale che se lavoro su un gruppo ( ad esempio il gruppo A con i suoi 7 fogli ) siano visibili solo i suoi fogli (7) e poi siano presenti gli altri due rimanenti gruppi B C ma senza che siano visibili i rispettivi fogli di appartenenza ( 9+14 ) e che magari con un clic si aprano o si chiudano questi gruppi mostrando i loro fogli.

Anche la funzione nascondi fogli la conosco ma in questo caso preferisco sapere se ci sia qualche possibilità di mettere in atto questa mia idea.

Answer 1

ciao

ti basta fare un quarto pulsante

Sub Pulsante4_Click()

Application.ScreenUpdating = False

For i = 2 To Worksheets.Count

Worksheets(i).Visible = True

Next

Application.ScreenUpdating = True

Worksheets(1).Select

End Sub

Answer 2

ciao

una idea da sviluppare

nel foglio uno ho messo tre pulsanti

( ma puoi usare una form )

A

B

C

Sub Pulsante1_Click()

Application.ScreenUpdating = False

For i = 2 To Worksheets.Count

Worksheets(i).Visible = False

For A = 2 To 5

Worksheets(A).Visible = True

Next

Next

Application.ScreenUpdating = True

Worksheets(2).Select

End Sub

Sub Pulsante2_Click()

Application.ScreenUpdating = False

For i = 2 To Worksheets.Count

Worksheets(i).Visible = False

For A = 6 To 9

Worksheets(A).Visible = True

Next

Next

Application.ScreenUpdating = True

Worksheets(6).Select

End Sub

Sub Pulsante3_Click()

Application.ScreenUpdating = False

For i = 2 To Worksheets.Count

Worksheets(i).Visible = False

For A = 10 To 13

Worksheets(A).Visible = True

Next

Next

Application.ScreenUpdating = True

Worksheets(10).Select

End Sub

al click nascondono i fogli non richiesti.

https://www.dropbox.com/s/j9k4vgwbkh3d0lu/nascondi%20fogli.xlsm?dl=0

Answer 3

Grazie mille Gianfranco !!!

Answer 4

Interessante, sebbene credessi esistesse qualche funzione di excel che desse la possibilità di raggruppare un determinato gruppo di fogli.

In sostanza la tua proposta attraverso delle macro utilizza la funzione nascondi e quindi con un click nasconde i fogli appartenenti agli altri due gruppi.

Se è possibile avere un quarto pulsante che al click mi mostri tutti i fogli dei tre gruppi.