Convert value

[Michael168]

Hello! Can someone show how to do this in VBA?

Example.

Range 1 is from A28 . 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 cel
address of range 1 if the value in range 2 is equal to the value i
range 1.

Regards,
Michae

 

[Tom Ogilvy]

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

 

[Michael168]

Hi!Tom,
Sorry I miss out one word if should be equal to address formula so tha
when I change anything cell value in A28 the values in the range
will change accordingly.

e.g. A2=1

J1000=1

J1000= "=A2"

Thanks,
Michael.

 

[Michael168]

Hi!Tom,
Sorry I miss out one word if should be equal to address formula so tha
when I change anything cell value in A28 the values in the range
will change accordingly.

e.g. A2=1

J1000=1

J1000= "=A2"

Thanks,
Michael.

 

[Tom Ogilvy]

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