copying text across worksheets

[Roxy]

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.

 

[John Hayes]

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

 

[John HAyes]

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

 

[Roxy]

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.