Colorare linguetta foglio

dodo47, 21/10/2021 11:28:

---

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

---

dodo47, 21/10/2021 13:24:

---

ciao
ho detto di no in quanto ritenevo che le formule fossero interconnesse tra i fogli, ovvero per esempio il foglio 1 avesse formule che dipendessero dal foglio 2 etc etc.

Poichè ogni foglio non ha riferimenti ad altri fogli, ti funziona ma tanto vale non fare il loop dei fogli in quanto è inutile.

Questo il codice che devi adottare, in quanto ogni foglio è a se stante, ovvero i calcoli di un foglio non influiscono sugli altri fogli.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
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 Sub

Nel caso in cui i fogli fossero connessi tra loro con formule che riguardano le celle da controllare, allora si che sarebbe necessario il loop che controlla in ogni foglio cosa avviene e pertanto il riferimento allo sheets(n) andrebbe fatto con il punto.

Spero sia chiaro.....

saluti


OK capito. Grazie

---