Conditional Macro
 

Hi Everyone, I would love your help with this one!

I have a Workbook consisting of several worksheets.
The begining columns are the same on each worksheet.
This spreadsheet will have many rows added to it near the top
Those rows need to be copied to each worksheet.

I created a macro so when someone adds a row to the 1st worksheet, it will
add part of that row to all of the other worksheets.

I need to prevent the following scenario: Someone adds row to 1st
spreadsheet, runs macro (great...adds rows to other worksheets). They run
macro again without adding row (bad...adds same row to other worksheets).

Here is my current Marcro:

Sub AddNewEnhancement()
'
' AddNewEnhancement Macro
' Macro recorded 3/7/2007 by Stacey Shearn
'
' Keyboard Shortcut: Ctrl+e
'
Range("E6").Select
Selection.AutoFill Destination:=Range("E4:E6"), Type:=xlFillDefault
Range("E4:E6").Select
Range("J6").Select
Selection.AutoFill Destination:=Range("J4:J6"), Type:=xlFillDefault
Range("J4:J6").Select
ActiveWindow.LargeScroll ToRight:=1
Range("R6").Select
Selection.AutoFill Destination:=Range("R4:R6"), Type:=xlFillDefault
Range("R4:R6").Select
ActiveWindow.LargeScroll ToRight:=-1
Sheets("Sheet1").Select
Rows("5:5").Select
Selection.Insert Shift:=xlDown
Range("A5").Select
Sheets("Sheet2").Select
Range("A5:D5").Select
Selection.Copy
Sheets("Sheet1").Select
ActiveSheet.Paste
Sheets("Sheet2").Select
Application.CutCopyMode = False
End Sub

Conditional Macro
 

How about using a column in the first sheet as a copied marker.

Once the row has been copied, the marker would get set to "1"

That way the macro could check to see if a row has already been copied.
--
Gary''s Student
gsnu200709


"Stacey" wrote:

Hi Everyone, I would love your help with this one!

I have a Workbook consisting of several worksheets.
The begining columns are the same on each worksheet.
This spreadsheet will have many rows added to it near the top
Those rows need to be copied to each worksheet.

I created a macro so when someone adds a row to the 1st worksheet, it will
add part of that row to all of the other worksheets.

I need to prevent the following scenario: Someone adds row to 1st
spreadsheet, runs macro (great...adds rows to other worksheets). They run
macro again without adding row (bad...adds same row to other worksheets).

Here is my current Marcro:

Sub AddNewEnhancement()
'
' AddNewEnhancement Macro
' Macro recorded 3/7/2007 by Stacey Shearn
'
' Keyboard Shortcut: Ctrl+e
'
Range("E6").Select
Selection.AutoFill Destination:=Range("E4:E6"), Type:=xlFillDefault
Range("E4:E6").Select
Range("J6").Select
Selection.AutoFill Destination:=Range("J4:J6"), Type:=xlFillDefault
Range("J4:J6").Select
ActiveWindow.LargeScroll ToRight:=1
Range("R6").Select
Selection.AutoFill Destination:=Range("R4:R6"), Type:=xlFillDefault
Range("R4:R6").Select
ActiveWindow.LargeScroll ToRight:=-1
Sheets("Sheet1").Select
Rows("5:5").Select
Selection.Insert Shift:=xlDown
Range("A5").Select
Sheets("Sheet2").Select
Range("A5:D5").Select
Selection.Copy
Sheets("Sheet1").Select
ActiveSheet.Paste
Sheets("Sheet2").Select
Application.CutCopyMode = False
End Sub

Conditional Macro
 

Thanks for the suggestion! I don't know how to implement that though. Would
you please give me some more details?

Thank you!

"Gary''s Student" wrote:

How about using a column in the first sheet as a copied marker.

Once the row has been copied, the marker would get set to "1"

That way the macro could check to see if a row has already been copied.
--
Gary''s Student
gsnu200709


"Stacey" wrote:

Hi Everyone, I would love your help with this one!

I have a Workbook consisting of several worksheets.
The begining columns are the same on each worksheet.
This spreadsheet will have many rows added to it near the top
Those rows need to be copied to each worksheet.

I created a macro so when someone adds a row to the 1st worksheet, it will
add part of that row to all of the other worksheets.

I need to prevent the following scenario: Someone adds row to 1st
spreadsheet, runs macro (great...adds rows to other worksheets). They run
macro again without adding row (bad...adds same row to other worksheets).

Here is my current Marcro:

Sub AddNewEnhancement()
'
' AddNewEnhancement Macro
' Macro recorded 3/7/2007 by Stacey Shearn
'
' Keyboard Shortcut: Ctrl+e
'
Range("E6").Select
Selection.AutoFill Destination:=Range("E4:E6"), Type:=xlFillDefault
Range("E4:E6").Select
Range("J6").Select
Selection.AutoFill Destination:=Range("J4:J6"), Type:=xlFillDefault
Range("J4:J6").Select
ActiveWindow.LargeScroll ToRight:=1
Range("R6").Select
Selection.AutoFill Destination:=Range("R4:R6"), Type:=xlFillDefault
Range("R4:R6").Select
ActiveWindow.LargeScroll ToRight:=-1
Sheets("Sheet1").Select
Rows("5:5").Select
Selection.Insert Shift:=xlDown
Range("A5").Select
Sheets("Sheet2").Select
Range("A5:D5").Select
Selection.Copy
Sheets("Sheet1").Select
ActiveSheet.Paste
Sheets("Sheet2").Select
Application.CutCopyMode = False
End Sub