[sakis297]

Γεια σου Σπύρο!
Με την παρακάτω εντολή
MsgBox Selection.Interior.ColorIndex
κατάφερα να βρω ότι το κόκκινό μου αντιστοιχεί στο ColorIndex 3, το χρυσό στο 44 και το πράσινο στο 10.
Οπότε με τον παρακάτω κώδικα η δουλειά μου γίνεται μια χαρά.
Dim c As Range, rng As Range
Set rng = Range("e1:e1000")
Application.ScreenUpdating = False
rng.ClearContents
For Each c In rng

If c.Interior.ColorIndex = 10 Then
c.Value = 3
ElseIf c.Interior.ColorIndex = 44 Then
c.Value = 2
ElseIf c.Interior.ColorIndex = 3 Then
c.Value = 1
End If

Next

Η βοήθειά σου ήταν πολύτιμη. Σ' ευχαριστώ πολύ και πάλι!!!