Dim cell as Range, cell1 as Range
for each cell in Range("A10:J1000")
for each cell1 in Range("A2:D8")
if cell = cell1 then
cell.Value = "=" & cell1.Address(0,0)
exit for
end if
Next
Next

--
Regards,
Tom Ogilvy

"Michael168 " wrote in message
...
Hi!Tom,
Sorry I miss out one word if should be equal to address formula so that
when I change anything cell value in A2:D8 the values in the range 2
will change accordingly.

e.g. A2=1

J1000=1

J1000= "=A2"

Thanks,
Michael.

Tom Ogilvy wrote:
*Dim cell as Range, cell1 as Range
for each cell in Range("A10:J1000")
for each cell1 in Range("A2:D8")
if cell = cell1 then
cell.Value = cell1.Address(0,0)
exit for
end if
Next
Next

--
Regards,
Tom Ogilvy


"Michael168 " wrote in
message
...
Hello! Can someone show how to do this in VBA?

Example.

Range 1 is from A2:D8 . e.g. A2=1

Range 2 is from A10:J1000 . e.g. J1000=1

I want to convert J1000=A2.

I need to convert all the individual cell value of range 2 to the
cell
address of range 1 if the value in range 2 is equal to the value
in
range 1.

Regards,
Michael


---
Message posted from http://www.ExcelForum.com/
*


---
Message posted from http://www.ExcelForum.com/