Colore linguetta foglio

Question

Ciao.

Dopo la copia del foglio coloro la linguetta del foglio:

  Worksheets(NuovoNome).Tab.ColorIndex = 4                                  ' Assegna il colore alla linguetta del foglio

Domanda:

Esiste un modo che ad ogni copia del foglio mi incrementa :  Tab.ColorIndex = 4.            

 in           Tab.ColorIndex = 5       

               Tab.ColorIndex = 6

ecc.

Tipo:  Tab.ColorIndex =index+1

Grazie.

Ciao.

Nunzio

Answer 1

Domanda:

Esiste un modo che ad ogni copia del foglio mi incrementa :  Tab.ColorIndex = 4.            

 in           Tab.ColorIndex = 5       

               Tab.ColorIndex = 6

ecc.

Tipo:  Tab.ColorIndex =index+1

Grazie.

Ciao.

Nunzio

Mettiamo tu abbia il Foglio1 del quale vuoi fare n copie. Posizionalo più a dx nella barra in basso e colora di nero il tab (meglio ancora se gli assegni da codice come ColorIndex il valore 1). Utilizza poi questo codice:

Public Sub m()

    Dim sh As Worksheet

    Set sh = ThisWorkbook.Worksheets("Foglio1")

    With sh

        .Copy After:=Worksheets(Sheets.Count)

        ActiveSheet.Tab.ColorIndex = _

            Worksheets(Sheets.Count - 1).Tab.ColorIndex + 1

    End With

    Set sh = Nothing

End Sub

Occhio che hai il limite di 56 colori.

Answer 2

Ciao Mauro.

Mi scuso per il ritardo con cui rispondo: impegni all'estero.

Ho provato il tuo codice: è perfetto.

Un grosso grazie.

Ciao.

Nunzio.

Bene!

Ciao e alla prossima.

Answer 3

Ciao Mauro.

Mi scuso per il ritardo con cui rispondo: impegni all'estero.

Ho provato il tuo codice: è perfetto.

Un grosso grazie.

Ciao.

Nunzio.