00 14/10/2021 22:36
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
[Modificato da federico460 14/10/2021 22:37]