Ciao,
vorrei, se possibile, automatizzare un'operazione che attualmente viene eseguita manualmente (gli errori quindi sono sempre in agguato...). Ecco un'immagine esplicativa:



nei Range S5:T13, W5:X13, AA5:AB13 ho preparato una legenda per dedicare, di volta in volta a seconda dei codici da evidenziare, un colore per ogni cella di tabella1 contenente quel codice: i codici sono sono scritti, all'interno dei Range sopra menzionati, nelle colonne S, W, AA e il colore nelle colonne T, X, AB (ho creato un piccolo pulsante per cancellare i codici, dato che di volta in volta cambiano. Nota: cambiano solo i codici, non i colori). Usando questa legenda applico di volta in volta, per ogni codice da evidenziare, la macro



che colora le celle dei codici nella tabella1 (da col.C a col.G) in base ai riferimenti di codice e di colore che ho digitato nelle InputBox


(nell'immagine è presente un'area gialla che non è oggetto di questa trattazione, ma è stata colorata con altra macro...)

E' possibile con una macro fare eseguire in simultanea l'operazione di coloritura in tabella1- in base alla suindicata legenda- delle celle in cui alloggiano i codici oggetto della ricerca?
Grazie assai per la pazienza :)) e buona giornata,
eZio

Nota aggiuntiva: come si vede nella 1^ immagine, non sempre la griglia viene completata, nel senso che il colore è comunque sempre scritto, ma il numero di codici da evidenziare è minore... quindi penso che la macro andrà istruita in modo da passare oltre in caso di cella del codice bianca, per evitare che la macro si pianti

salve
prova questa che segue:
Attenzione ai riferimenti che ho usato nella macro non so se corrispondono esattamente al tuo foglio.

Sub colora_Tab1()
Dim Ur As Long
Ur = Cells(18, 3).End(xlDown).Row
Set area = Sheets("Foglio1").Range("C" & 18 & ":G" & Ur)
Set area2 = Sheets("foglio1").Range(Range("S5:S13").Address & "," & Range("W5:W13").Address & "," & _
Range("AA5:AA13").Address)
For Each Itm In area
For Each Itm2 In area2
If Itm2 = "" Then
Exit For
End If
colIndex = Itm2.Offset(0, 1).Value
If Itm.Value = Itm2.Value Then
Itm.Interior.ColorIndex = colIndex
End If
Next Itm2
Next Itm
Set area = Nothing
Set are2 = Nothing
End Sub

saluti
Giap

---

Salve
Normalmente, all'interno dei codici va indicato il Foglio su cui deve operare (Nome foglio, Foglio attivo ecc)
essendo la macro inserita in un modulo standard, non indicando il foglio su cui lavorare viene preso in considerazione il foglio attivo e la macro su di esso esercita la sua azione. Pertanto se lanci la macro con un foglio attivo diverso da quello che si vorrebbe possono nascere problemi. Anche se nella macro che ti ho postato
non l'ho usato (per problemi di celerità) io uso in maniera costante l'istruzione With per vincolare il foglio di lavoro.
saluti
Giap

---