matching values

[italiavb]

Looking for code to search column A find a matching value in column C return
the value found in adjacent column D to column B.

Thanks.

 

[Simon Lloyd]

If i understood you correctly this should work!
Regards,
Simon

Sub findit()
Dim mycell
Dim rng As Range
Set rng = Range("A:A")
For Each mycell In rng
If mycell.Offset(0, 2).Value = mycell.Value Then
mycell.Offset(0, 1).Value = mycell.Offset(0, 3).Value
End If
Next
End Su

 

[italiavb]

thanks Simon, I'll try it. I appreciate your help.

"Simon Lloyd" <[email protected]>
wrote in message
news:[email protected]...

 

[italiavb]

I'm sorry to bother you but it didn'w work I have added an example of what
I'm trying to do.
A B C D
2122 2132 1
2145 2122 5
2144 2145 7
2752 2178 6
2145 5
2752 7


I need to find a matching value in C with A and return value found in D to
column B.
example: search column C found match with A (2122) take value from D (5) and
put in column B adj to 2122.

Thanks again.
Pat

"Simon Lloyd" <[email protected]>
wrote in message
news:[email protected]...

 

[Simon Lloyd]

Sorry about the delay in getting back, it took me a while to work out a
formula as i'm no expert by any means, i just like to try to give
something back to the forum for all the help i've
had..................that said..........copy and paste this in to cell
b1 then copy down, it worked for me!

=IF(ISERROR(MATCH(A1,C:C,0)),"",VLOOKUP(A1,C,2,FALSE))

Regards,
Simon