Colorare linguetta foglio

Ciao a tutti, chiedo un aiuto… ho un file con diversi fogli, avrei la necessita, se possibile, di colorare in rosso la linguetta del foglio quando i valori di C6 e C8 all’interno dei vari fogli sono uguali.

Occorre usare il VBA

Allega file di esempio

ciao
in questo foglio di lavoro

---

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim ws As Worksheet
For n = 1 To Worksheets.Count
With Sheets(n)
If Cells(6, 3) = Cells(8, 3) Then
ActiveSheet.Tab.Color = 255
Else
ActiveSheet.Tab.Color = xlNone
End If
End With
Next
End Sub

---

se va bene qualche esperto la sistema impedendo che
se le celle sono vuote si colori di rosso

Federico460 a che serve la variabile ws se poi non la usi? 😂

Allego il file. In questo esempio la linguetta del foglio 1 dovrebbe colorarsi di rosso. Le altre si colorano quando il n di C6 è uguale a C8.

In realtà quando il foglio è vuoto, cioè non ci sono numeri da B16 in giù, nelle celle C6 C8 c'è lo zero in quanto riportano una formula di subtotale

ciao
Al
ho eliminati tutto
dalla macro che ho variato
e l'ho dimenticato😀

ciao
eccola

---

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
For n = 1 To Worksheets.Count
With Sheets(n)
If Cells(6, 3) = Cells(8, 3) And Cells(6, 3) > 0 Then
ActiveSheet.Tab.Color = 255
Else
ActiveSheet.Tab.Color = xlNone
End If
End With
Next
End Sub

---

in "QUESTA CARTELLA DI LAVORO"
o
thisworkbook

Mi da: errore di compilazione Variabile non definita

leva option explicit
da sopra

Option Explicit non va tolto mai.

Le variabili vanno dichiarate sempre.

ciao Al

allora mettile 😆

lavoro tuo
non per me😛

La dichiarazione delle variabili è un argomento che devono conoscere tutti

https://www.excelpertutti.com/variabili-excel-tipi-di-variabili-vba/

😀

ciao
Option Explicit

---

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim n As Integer

For n = 1 To Worksheets.Count
With Sheets(n)
If Cells(6, 3) = Cells(8, 3) And Cells(6, 3) > 0 Then
ActiveSheet.Tab.Color = 255
Else
ActiveSheet.Tab.Color = xlNone
End If
End With
Next
End Sub

---

tanto tu poi metti long
😂

sfaticato di un Al
1 variabile solo e non la metti

No Integer va bene e ti chiedo di spiegarmi il perchè 😂

Quanto all’essere sfaticato il mio l’ho fatto devono essere gli utenti a lavorare 😂

Ottimo ! Grazie a tutti

Buona sera,
credo che la macro che ho visto vada corretta :
"Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
For n = 1 To Worksheets.Count
With Sheets(n)
If .Cells(6, 3) = .Cells(8, 3) And .Cells(6, 3) > 0 Then
ActiveSheet.Tab.Color = 255
Else
ActiveSheet.Tab.Color = xlNone
End If
End With
Next
End Sub"
In pratica, quando si lavora con With/End With, gli oggetti all'interno vanno preceduti dal punto, altrimenti si agisce sul foglio corrente.
Le celle 6,3 e 8,3 sono relative al foglio (n), e non al foglio corrente.
Altrimenti non serve "spazzolare" tutti i fogli della cartella.
Alla fine la macro originale agiva sempre sul foglio attivo.......
Saluti
Dario

Ciao darionardella, non mi funziona la tua versione

De Martin.PAOLO, 20/10/2021 15:45:

---

Ciao darionardella, non mi funziona la tua versione

---

ciao,
non credi che per ottenere un riscontro, sia utile a Dario (ciao ),
allegare la tua versione non funzionante?

Attendo la versione x verificare il problema.

Il file si trova già in allegato in uno dei messaggi sopra

darionardella, 20/10/2021 19:27:

---

Attendo la versione x verificare il problema.

---

La versione è il 2003

Intendevo la versione della macro che non funziona con il mio suggerimento....

darionardella, 20/10/2021 19:36:

---

Intendevo la versione della macro che non funziona con il mio suggerimento....

---

Non saprei dirti cosa non funzione, non mi da errore, ma non colora la linguetta

Allega il file completo, e verifico.
Grazie

darionardella, 21/10/2021 08:25:

---

Allega il file completo, e verifico.
Grazie

---

ciao
non ti funziona perchè in nessun foglio si verifica la condizione imposta, ovvero C6=C8 e C6 > 0.

Inltre quel codice ti va in errore perchè non hai dichiarano la variabile n (hai Option Explicit)....

saluti

De Martin.PAOLO, 21/10/2021 10:10:

---

---

Ciao, nel foglio 1 e 2 ci sono le condizioni per colorare la linguetta. Comunque lascia perdere, tengo la macro di
federico460 che funziona senza problemi

ciao
io dico di no....(con tutto il rispetto per fede).....comunque contento tu....

Quel codice lavora solo sul foglio attivo, pertanto il loop tra tutti i fogli è inutile.
Quindi se sei in un foglio, modifichi qualcosa e si verificano le condizioni, solo il foglio dove sei colorerà il tab di rosso.

Pertanto se il tuo scopo è quello di colorare solo il tab del foglio attivo il loop è inutile, se invece lo scopo è: qualsiasi cambiamento in qualsiasi foglio deve verificare in tutti i fogli se le condizioni sono vere quel loop va fatto con le modifiche indicate da Nardella

saluti