Need macro to copy a list of named cells between worksheets
 

I have a workbook containing a worksheet that has a bunch of company info and
another that contains new info to replace the old info. Cells on each sheet
are in different locations, but are named and I have a table of from/to names
off to the side in a worksheet that I update occasionally when new info is
added. How do I write a macro that will copy all of the FROMNAMES column cell
name contents to the corresponding cell name in the TONAMES column?

.... X Y
..
22 FROMNAMES TONAMES
23 newcompany company
24 newcontact contact
25 newphone phone
26 newfax fax
27 newemail email

Need macro to copy a list of named cells between worksheets
 

Here's an example

Dim cell As Range
Dim i As Long
For Each cell In Range("Bob")
i = i + 1
Range("Lynne")(i).Value = cell.Value
Next cell


--

HTH

RP
(remove nothere from the email address if mailing direct)


"John" wrote in message
...
I have a workbook containing a worksheet that has a bunch of company info
and
another that contains new info to replace the old info. Cells on each
sheet
are in different locations, but are named and I have a table of from/to
names
off to the side in a worksheet that I update occasionally when new info is
added. How do I write a macro that will copy all of the FROMNAMES column
cell
name contents to the corresponding cell name in the TONAMES column?

... X Y
.
22 FROMNAMES TONAMES
23 newcompany company
24 newcontact contact
25 newphone phone
26 newfax fax
27 newemail email

Need macro to copy a list of named cells between worksheets
 

This suggestion moves the names in range Bob to the coresponding cell in
Lynne. I want the names in Bob & Lynne to be recognized as cell names and the
contents of eac named cell in list Bob be moved to the corresponding cell
named in Lynne. Ie., I need another level of indirection.

"Bob Phillips" wrote:

Here's an example

Dim cell As Range
Dim i As Long
For Each cell In Range("Bob")
i = i + 1
Range("Lynne")(i).Value = cell.Value
Next cell


--

HTH

RP
(remove nothere from the email address if mailing direct)


"John" wrote in message
...
I have a workbook containing a worksheet that has a bunch of company info
and
another that contains new info to replace the old info. Cells on each
sheet
are in different locations, but are named and I have a table of from/to
names
off to the side in a worksheet that I update occasionally when new info is
added. How do I write a macro that will copy all of the FROMNAMES column
cell
name contents to the corresponding cell name in the TONAMES column?

... X Y
.
22 FROMNAMES TONAMES
23 newcompany company
24 newcontact contact
25 newphone phone
26 newfax fax
27 newemail email

Need macro to copy a list of named cells between worksheets
 

Duh! I figured it out myself. All I needed to do was replace the cell equate
line w/

Range(Range("newentry")(i)).Value = Range(cell).Value

and I get the needed level of indirection.

"John" wrote:

This suggestion moves the names in range Bob to the coresponding cell in
Lynne. I want the names in Bob & Lynne to be recognized as cell names and the
contents of eac named cell in list Bob be moved to the corresponding cell
named in Lynne. Ie., I need another level of indirection.

"Bob Phillips" wrote:

Here's an example

Dim cell As Range
Dim i As Long
For Each cell In Range("Bob")
i = i + 1
Range("Lynne")(i).Value = cell.Value
Next cell


--

HTH

RP
(remove nothere from the email address if mailing direct)


"John" wrote in message
...
I have a workbook containing a worksheet that has a bunch of company info
and
another that contains new info to replace the old info. Cells on each
sheet
are in different locations, but are named and I have a table of from/to
names
off to the side in a worksheet that I update occasionally when new info is
added. How do I write a macro that will copy all of the FROMNAMES column
cell
name contents to the corresponding cell name in the TONAMES column?

... X Y
.
22 FROMNAMES TONAMES
23 newcompany company
24 newcontact contact
25 newphone phone
26 newfax fax
27 newemail email