ho bisogno di modificare questa macro,per colorare tutte le occorrenze,
la macro postata trova solo la prima occorrenza .
Ho provato a cercare la macro che lo faceva,ma non riesco più a trovarla.
- Codice: Seleziona tutto
Sub Colora()
'Sheets("Sistema").Select
On Error Resume Next
For Each Ambo In Range("B2:U2")
Range("B4:K49").Select
Cells.Find(What:=Ambo, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlWhole, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
If ActiveCell.Address <> "$B$4" Then ActiveCell.Interior.ColorIndex = 6
Next Ambo
'Application.Calculation = xlCalculationAutomatic
End Sub