excel macro per nascondere fogli in base a colore linguetta

Question

Buongiorno,

avrei necessità di nascondere tutti i fogli con la linguetta di uno specifico colore (nel mio caso rosso)

Potete aiutarmi nella realizzazione della macro ?

TT

Answer 1

Buongiorno,

avrei necessità di nascondere tutti i fogli con la linguetta di uno specifico colore (nel mio caso rosso)

Potete aiutarmi nella realizzazione della macro ?

TT

A differenza di quella di Andrea, questa nasconde i fogli in modo che serva una macro per scoprirli nuovamente. Qui sotto trovi entrambe le macro:

Public Sub mNascondiRossi()

    Dim sh As Worksheet

    For Each sh In ThisWorkbook.Worksheets

        If sh.Tab.Color = 255 Then

            sh.Visible = xlVeryHidden

        End If

    Next

    Set sh = Nothing

End Sub

Public Sub mScorpiRossi()

    Dim sh As Worksheet

    For Each sh In ThisWorkbook.Worksheets

        If sh.Tab.Color = 255 Then

            sh.Visible = xlSheetVisible

        End If

    Next

    Set sh = Nothing

End Sub

Answer 2

Grazie a te del feedback!

Ricorda che sei sempre benvenuto nella Community di Microsoft.

Buona continuazione di giornata.

Gerta

Answer 3

Grazie

TT

Answer 4

Buongiorno,

avrei necessità di nascondere tutti i fogli con la linguetta di uno specifico colore (nel mio caso rosso)

Potete aiutarmi nella realizzazione della macro ?

TT

Ciao,

la macro allegata dovrebbe fare quello che chiedi, tieni presente che il foglio nascosto può essere visualizzato nuovamente cliccando tasto destro sul tab di un foglio e quindi scopri.

Andrea.

---

Sub NascondiFoglioColoreTab()

Dim ws As Worksheet

Dim lColor As Long

'---------- indicare il colore (rosso=255)

lColor = 255

For Each ws In ActiveWorkbook.Worksheets

If (ws.Tab.Color = lColor) Then ws.Visible = xlHidden

Next

End Sub

---

Answer 5

Buongiorno TT\_968,

grazie per aver postato la tua domanda su Microsoft Community.

Per favore, metti in condivisione su SkyDrive il file che hai creato, così possiamo capire meglio il problema e aiutarti più velocemente.

Per inviare il documento, leggi cortesemente**“**Uso di SkyDrive per caricare file e immagini nel forum**”** di Microsoft Community.

Attendiamo tue nuove.

Grazie,

Gerta