Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Copy and paste a name list across worksheets
I have an excel worksheet which is a name list of some 50 names. I also have
a workbook which is a collection of some 50 worksheets. Now I want to insert these names, one by one, into cell A1 of each of the 50 worksheets. Is there a way to do so in one go, instead of having to copy and paste each name, one at a time, into cell A1 of each worksheet. Thanks |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Copy and paste a name list across worksheets
This little macro will do that for you. I assumed that the sheet that holds
the list of names is named "Names". Change this as you wish. I also assumed that the names are in Column A and start in A2. HTH Otto Sub PlaceNames() Dim rColA As Range Dim i As Range Dim c As Long c = 1 Set rColA = Range("A2", Range("A" & Rows.Count).End(xlUp)) For Each i In rColA If Worksheets(c).Name = "Names" Then c = c + 1 Worksheets(c).Range("A1").Value = i.Value c = c + 1 Next i End Sub "chungacs" wrote in message ... I have an excel worksheet which is a name list of some 50 names. I also have a workbook which is a collection of some 50 worksheets. Now I want to insert these names, one by one, into cell A1 of each of the 50 worksheets. Is there a way to do so in one go, instead of having to copy and paste each name, one at a time, into cell A1 of each worksheet. Thanks |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Copy and paste a name list across worksheets
"Otto Moehrbach" wrote in message ... This little macro will do that for you. I assumed that the sheet that holds the list of names is named "Names". Change this as you wish. I also assumed that the names are in Column A and start in A2. HTH Otto Sub PlaceNames() Dim rColA As Range Dim i As Range Dim c As Long c = 1 Set rColA = Range("A2", Range("A" & Rows.Count).End(xlUp)) For Each i In rColA If Worksheets(c).Name = "Names" Then c = c + 1 Worksheets(c).Range("A1").Value = i.Value c = c + 1 Next i End Sub "chungacs" wrote in message Thanks a lot |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Copy range from one worksheet and paste to multiple worksheets | Excel Discussion (Misc queries) | |||
how do i copy n paste one cell to another in different worksheets | Excel Worksheet Functions | |||
Copy and Paste between 2 worksheets with VBA | Excel Worksheet Functions | |||
cannot copy and paste worksheets or workbooks | Excel Discussion (Misc queries) | |||
copy/paste data between worksheets | Excel Discussion (Misc queries) |