If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
copying text across worksheets
I have to add a column of text (5 codes) to my totals page
in my workbook. I also need this column containing the new codes on the other 120 worksheets in the same workbook (in the same place). Is there a way to do it once that it will update the other pages or am I looking at a lot of cutting and pasting? Thanks. |
#2
|
|||
|
|||
copying text across worksheets
This should work.
Tools....Macros...VisualBasic Editor Click on your Workbook in the Project Explorer and Select Insert..Module Doubleclick on the new module and type the following (or copy and paste it from here) Dim mysht as Worksheet For each mysht in thiswokbook.sheets with mysht .columns(1).insert '1 to insert it at column A .cells(1,1)="code1" ' Cell A1 gets this text .cells(2,1)="Code2" ' Cell A2 gets this text .cells(3,1)="Code3" ' Cell A3 .cells(4,1)="Code4" ' Cell A4 .cells(5,1)="Code5" ' Cell A5 next -----Original Message----- I have to add a column of text (5 codes) to my totals page in my workbook. I also need this column containing the new codes on the other 120 worksheets in the same workbook (in the same place). Is there a way to do it once that it will update the other pages or am I looking at a lot of cutting and pasting? Thanks. . |
#3
|
|||
|
|||
copying text across worksheets
Original code didn't close the With Statement
This one is correct Dim mysht as Worksheet For each mysht in thiswokbook.sheets with mysht .columns(1).insert '1 to insert it at column A .cells(1,1)="code1" ' Cell A1 gets this text .cells(2,1)="Code2" ' Cell A2 gets this text .cells(3,1)="Code3" ' Cell A3 .cells(4,1)="Code4" ' Cell A4 .cells(5,1)="Code5" ' Cell A5 END WITH next -----Original Message----- This should work. Tools....Macros...VisualBasic Editor Click on your Workbook in the Project Explorer and Select Insert..Module Doubleclick on the new module and type the following (or copy and paste it from here) Dim mysht as Worksheet For each mysht in thiswokbook.sheets with mysht .columns(1).insert '1 to insert it at column A .cells(1,1)="code1" ' Cell A1 gets this text .cells(2,1)="Code2" ' Cell A2 gets this text .cells(3,1)="Code3" ' Cell A3 .cells(4,1)="Code4" ' Cell A4 .cells(5,1)="Code5" ' Cell A5 next -----Original Message----- I have to add a column of text (5 codes) to my totals page in my workbook. I also need this column containing the new codes on the other 120 worksheets in the same workbook (in the same place). Is there a way to do it once that it will update the other pages or am I looking at a lot of cutting and pasting? Thanks. . . |
#4
|
|||
|
|||
copying text across worksheets
My user completed the following steps and got it to work
without having to utilize VB. If you've already entered data on one worksheet, you can quickly copy the data to corresponding cells on other sheets. Select the sheet that contains the data and the sheets to which you want to copy the data. Select the cells that contain the data you want to copy. On the Edit menu, point to Fill, and then click Across Worksheets. |
Thread Tools | |
Display Modes | |
|
|