|
Convert value
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 cel address of range 1 if the value in range 2 is equal to the value i range 1. Regards, Michae -- Message posted from http://www.ExcelForum.com |
Convert value
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/ |
Convert value
Hi!Tom,
Sorry I miss out one word if should be equal to address formula so tha when I change anything cell value in A2:D8 the values in the range 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 i 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 th cell address of range 1 if the value in range 2 is equal to the valu in range 1. Regards, Michael --- Message posted from http://www.ExcelForum.com/ -- Message posted from http://www.ExcelForum.com |
Convert value
Hi!Tom,
Sorry I miss out one word if should be equal to address formula so tha when I change anything cell value in A2:D8 the values in the range 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 i 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 th cell address of range 1 if the value in range 2 is equal to the valu in range 1. Regards, Michael --- Message posted from http://www.ExcelForum.com/ -- Message posted from http://www.ExcelForum.com |
Convert value
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/ |
| All times are GMT +1. The time now is 03:29 AM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com