Match failing with Find method (right and wrong match appear)

[arthur_w]

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?

 

[Fluff]

How about

c.Interior.Color = mapa.Find(c.Value, , , xlWhole, , , , , False).Interior.Color

 

[arthur_w]

How about

c.Interior.Color = mapa.Find(c.Value, , , xlWhole, , , , , False).Interior.Color

Works like a glove

I have trobleshooted it some time, and the pattern is simple: if the value of the first cell of the table(selection) "X" is followed by a number with greater units "nX" or "nnX" (ex, 201 followed by 1201 or 5201) it will not compute the first value of the table when searching for it.
If theres no nX it will correctly match x to x, and if x is not the first cell, it will correctly match x to x (I used this, increasing the table range from B6:E19 to B5:E19)

 

[Fluff]

You're welcome & thanks for the feedback.