i have
Dim aps As Range
Set aps = Range("A2:A55")
Dim mapa As Range
Set mapa = Sheets("Tom").Range("B6:E19")
For Each c In aps
c.Interior.Color = mapa.Find(c.Value).Interior.Color
Next c
And the numer 101, 102, 103... and 201 dont get the color of themselves, they get the color of 1101, 1102, 1103..... and 1201
But not 202, 203... or 301, 401, just this set. (when there isnt number 1101 or 1102 etc they get the right color, but when there is, get the wrong)
Wtf?
Dim aps As Range
Set aps = Range("A2:A55")
Dim mapa As Range
Set mapa = Sheets("Tom").Range("B6:E19")
For Each c In aps
c.Interior.Color = mapa.Find(c.Value).Interior.Color
Next c
And the numer 101, 102, 103... and 201 dont get the color of themselves, they get the color of 1101, 1102, 1103..... and 1201
But not 202, 203... or 301, 401, just this set. (when there isnt number 1101 or 1102 etc they get the right color, but when there is, get the wrong)
Wtf?