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
federico460, 14/10/2021 17:26:
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
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
De Martin.PAOLO, 20/10/2021 15:45:Ciao darionardella, non mi funziona la tua versione
darionardella, 20/10/2021 19:27:Attendo la versione x verificare il problema.
darionardella, 20/10/2021 19:36:Intendevo la versione della macro che non funziona con il mio suggerimento....
darionardella, 21/10/2021 08:25:Allega il file completo, e verifico. Grazie
De Martin.PAOLO, 21/10/2021 10:10: