Search // Append // Review & Notify.

[Habu]

I have a listing of data (see below). This data is much larger than what I have posted but I posted this as an example.

Column A Column B
Row
1 040 54481
2 064 54703
3 070 54911
4 072 55025
5 550 55033
6 55044
7 55057
8 55068

What I need is a special search and notification that will do the following. I need it to only look at the first three (3) digits for the list of numbers in Column B, then compair them against the three (3) numbers in Column A.

So that if/when there is a match with Column A I will get the following results.

Column A Column B Column C
Row
1 040 54481 No
2 064 54703 No
3 070 54911 No
4 072 55025 No
5 550 55033 Yes
6 55044 Yes
7 55057 Yes
8 55068 Yes
9 04088 Yes
10 06499 Yes
11 07299 Yes

Thankx,
Habu

 

[martinee]

Give this a go:

Sub tt()
Dim c As Range, rng As Range

Set rng = Range("A2:A" & Range("A65536").End(xlUp).Row)
For Each c In rng
If Format(c.Value, "###") = Format(Left(c.Offset(0, 1).Value, Len(c.Value)), "###") _
            Or c.Offset(0, 1).Value = "" Then
    c.Offset(0, 2).Value = "YES"
Else
    c.Offset(0, 2).Value = "No"
End If
Next c

End Sub

HTH.