Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Adding a Row to Multiple Worksheets at Once
Im working in Excel 2003. Im working on a project that will track
employees errors (dollar, procedure, or no errors). I have 13 worksheets. The first one is titled Summary and is followed by worksheets titled January through December. The Summary worksheet functions as the control. The user enters each employees name on the Summary worksheet into cell A7. The employees name is automatically entered into cell A7 in the January through December worksheets using =Summary!A7. The table it self consists of 3 rows and begins on Row 6. Column titles include (employees name, etc.). The user types employee information into Row 7. Row 8 is a Total row. What I would like to be able to do is, have a button on the Summary worksheet that triggers a macro which will add a row below row A7 (new row is A8) in all 13 worksheets. -- Jamie |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Adding a Row to Multiple Worksheets at Once
Use the following macro:
Sub AddRow8() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets Rows(8).Insert Next End Sub __________________________________________________ ____________________ "Jamie" wrote in message ... I'm working in Excel 2003. I'm working on a project that will track employee's errors (dollar, procedure, or no errors). I have 13 worksheets. The first one is titled Summary and is followed by worksheets titled January through December. The Summary worksheet functions as the control. The user enters each employee's name on the Summary worksheet into cell A7. The employee's name is automatically entered into cell A7 in the January through December worksheets using =Summary!A7. The table it self consists of 3 rows and begins on Row 6. Column titles include (employee's name, etc.). The user types employee information into Row 7. Row 8 is a Total row. What I would like to be able to do is, have a button on the Summary worksheet that triggers a macro which will add a row below row A7 (new row is A8) in all 13 worksheets. -- Jamie |
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Adding a Row to Multiple Worksheets at Once
Try this:-
Sub atomic() Dim WS As Worksheet For Each WS In Worksheets WS.Select Range("A8").Select Selection.EntireRow.Insert Next WS End Sub "Jamie" wrote: Im working in Excel 2003. Im working on a project that will track employees errors (dollar, procedure, or no errors). I have 13 worksheets. The first one is titled Summary and is followed by worksheets titled January through December. The Summary worksheet functions as the control. The user enters each employees name on the Summary worksheet into cell A7. The employees name is automatically entered into cell A7 in the January through December worksheets using =Summary!A7. The table it self consists of 3 rows and begins on Row 6. Column titles include (employees name, etc.). The user types employee information into Row 7. Row 8 is a Total row. What I would like to be able to do is, have a button on the Summary worksheet that triggers a macro which will add a row below row A7 (new row is A8) in all 13 worksheets. -- Jamie |
#4
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Adding a Row to Multiple Worksheets at Once
No need to select anything; but my earlier solution had a flaw (that's what
I get for not testing). It should be: Sub AddRow8() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ws.Rows(8).Insert Next End Sub. __________________________________________________ ________________________ "Mike H" wrote in message ... Try this:- Sub atomic() Dim WS As Worksheet For Each WS In Worksheets WS.Select Range("A8").Select Selection.EntireRow.Insert Next WS End Sub "Jamie" wrote: I'm working in Excel 2003. I'm working on a project that will track employee's errors (dollar, procedure, or no errors). I have 13 worksheets. The first one is titled Summary and is followed by worksheets titled January through December. The Summary worksheet functions as the control. The user enters each employee's name on the Summary worksheet into cell A7. The employee's name is automatically entered into cell A7 in the January through December worksheets using =Summary!A7. The table it self consists of 3 rows and begins on Row 6. Column titles include (employee's name, etc.). The user types employee information into Row 7. Row 8 is a Total row. What I would like to be able to do is, have a button on the Summary worksheet that triggers a macro which will add a row below row A7 (new row is A8) in all 13 worksheets. -- Jamie |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Adding multiple worksheets | Excel Worksheet Functions | |||
Adding values for multiple worksheets | Excel Discussion (Misc queries) | |||
Adding cells from multiple Worksheets | Excel Discussion (Misc queries) | |||
Adding multiple worksheets | Excel Worksheet Functions | |||
adding certain cells in multiple worksheets in multiple workbooks | Excel Worksheet Functions |