Sure! Try the new macro below
'---------------------------------------------------------------
Sub finder(
Dim cell As Object, c As Range, counter As Singl
counter =
With Columns(1
For Each cell In Application.Intersect(Columns(3), ActiveSheet.UsedRange).Cell
If cell.Value < "" The
Set c = .Find(cell.Value, LookIn:=xlValues
If Not c Is Nothing The
cell.Value = c.Offset(0, 1).Valu
Els
Columns(7).Cells(1).Offset(counter, 0).Value = cell.Valu
counter = counter +
End I
End I
Nex
End Wit
End Su
'---------------------------------------------------------------
Regards
Edwin Ta
http://www.vonixx.co
----- excelguru wrote: ----
Thank-You!!! for the macro works beautifully
One more request for the same proble
===========================
suppose all the values in column C do not match with those in colum
A
can the script write out those values from column C , which it did no
find in column A , into another column G
Thanks for all the help.
--
Message posted from
http://www.ExcelForum.com