ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   matching values (https://www.excelbanter.com/excel-programming/364323-re-matching-values.html)

italiavb

matching values
 
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"
wrote in message
...

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 Sub


--
Simon Lloyd
------------------------------------------------------------------------
Simon Lloyd's Profile:
http://www.excelforum.com/member.php...fo&userid=6708
View this thread: http://www.excelforum.com/showthread...hreadid=552076





All times are GMT +1. The time now is 02:20 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com