Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.misc
|
|||
|
|||
![]()
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 |
#2
![]()
Posted to microsoft.public.excel.misc
|
|||
|
|||
![]()
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 |
#3
![]()
Posted to microsoft.public.excel.misc
|
|||
|
|||
![]()
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Conditional Formatting in a Macro | Excel Discussion (Misc queries) | |||
Conditional Formatting in Macro | Excel Discussion (Misc queries) | |||
[B]Conditional Macro?[/B] | Excel Discussion (Misc queries) | |||
conditional sum and macro | Excel Discussion (Misc queries) | |||
Conditional Macro | Excel Worksheet Functions |