Buona sera, tonyo
a mio avviso ci possono essere diverse alternative.
Se ho capito bene la Tua esigenza, posso proporti una soluzione del tipo:
Option Explicit
Public Utente As String
Public x As Integer
Public Colore As Byte
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Utente = ActiveCell
If ActiveCell.Interior.ColorIndex = xlNone Then
ActiveCell.Offset(1, 0).Range("A1").Select
End
End If
Colore = ActiveCell.Interior.ColorIndex
For x = 1 To 35
If Cells(x, 19) = Utente Then Cells(x, 19).Interior.ColorIndex = Colore
Next x
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub
Questo codice viene attivato da un "Doppio click" sulla cella della colonna "A" che vuoi vericare. Nel caso in cui ci sia corrispondenza tra il valore della Cella selezionata nella colonna "A" e una delle Celle "S1:S35", la Cella della Colonna "S" viene colorata dello stesso colore della Cella selezionata nella colonna "A".
In alternativa credo si potrebbe pensare ad un controllo, in automatico, di tutte le celle della colonna "S" con tutte le celle della colonna "A"; dove esista una congruenza, il colore viene adeguato.
Edit: per completezza, ho aggiunto l'istruzione:
If ActiveCell.Interior.ColorIndex = xlNone Then
ActiveCell.Offset(1, 0).Range("A1").Select
End
End If
A disposizione
Buona serata.
Giuseppe