copying macros to other sheets

[esilverb]

I have a button that runs a macro taking data from the active sheet and
putting it in a separate summary sheet and then printing the summary sheet. I
want to put a button on every sheet in the workbook that will do the exact
same thing - take the data from that sheet, put it on the summary sheet and
then print the summary sheet. How do I copy the button and the macro so that
it will work on each sheet?
Note: the macro begins by clearning out the summary sheet so the new data
gets put into a clean worksheet.
Thanks for your help.

 

[FSt1]

hi
it might be helpful if you posted your current code.

regard
FSt1

 

[esilverb]

Here's the code
Sub Print_Sheet()
'
' Print_Sheet Macro
'

'
Sheets("Sheet1").Select
Range("A1:A2").Select
Selection.ClearContents
Range("G1:G2").Select
Selection.ClearContents
Range("A4:G16").Select
Selection.ClearContents
Sheets("8P-2 Stivers").Select
Range("A1:A2").Select
Selection.Copy
Sheets("Sheet1").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("8P-2 Stivers").Select
Range("A4:A16").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet1").Select
Range("A4").Select
ActiveSheet.Paste
Sheets("8P-2 Stivers").Select
Range("F4:F16").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet1").Select
Range("B4").Select
ActiveSheet.Paste
Sheets("8P-2 Stivers").Select
Range("G4:G16").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet1").Select
Range("C4:C16").Select
ActiveSheet.Paste
Sheets("8P-2 Stivers").Select
ActiveWindow.SmallScroll ToRight:=8
Range("L4:M16").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet1").Select
Range("D4").Select
ActiveSheet.Paste
Sheets("8P-2 Stivers").Select
ActiveWindow.LargeScroll ToRight:=2
ActiveWindow.SmallScroll ToRight:=-10
Range("U4:V16").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet1").Select
Range("F4").Select
ActiveSheet.Paste
Sheets("8P-2 Stivers").Select
Range("T17").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet1").Select
Range("G1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

 

[FSt1]

hi
sorry it took so long to get back. i got hung up.
looks like you did this on record so i cleaned up up a bit by commenting out
the unnecessary stuff and consolidating. you should see what i commented out.
should be faster. no flopping back and forth.
sheet1 seems to be the summary sheet so everything is geared to paste there.
select what ever sheet you want then run the macro. so long as you so that,
this macro will work with any sheet.
As to the button on each sheet. put the code below in a standard module. for
the button code do this....
Private Sub CommandButton1_Click()
Call Print_Sheet
End Sub
then copy the button to each sheet. you may have to add the "call
print_sheet".

TEST this on a dummy copy of your file BEFORE you try it on LIVE data.

sub Print_Sheets()
'Sheets("Sheet1").Select
Sheets("sheet1").Range("A1:A2").ClearContents
Sheets("sheet1").Range("G1:G2").ClearContents
Sheets("sheet1").Range("A4:G16").ClearContents
'Sheets("8P-2 Stivers").Select
Range("A1:A2").Copy Destination:= _
Sheets("sheet1").Range("A1")
'Range("A1:A2").Copy
'Sheets("Sheet1").Select
'Range("A1").Select
'ActiveSheet.Paste
'Sheets("8P-2 Stivers").Select
Range("A4:A16").Copy Destination:= _
Sheets("Sheet1").Range("A4")
'Range("A4:A16").Select
'Application.CutCopyMode = False
'Selection.Copy
'Sheets("Sheet1").Select
'Range("A4").Select
'ActiveSheet.Paste
'Sheets("8P-2 Stivers").Select
Range("F4:F16").Copy Destination:= _
Sheets("Sheet1").Range("B4")
'Range("F4:F16").Select
'Application.CutCopyMode = False
'Selection.Copy
'Sheets("Sheet1").Select
'Range("B4").Select
'ActiveSheet.Paste
'Sheets("8P-2 Stivers").Select
Range("G4:G16").Copy Destination:= _
Sheets("Sheet1").Range("C4:C16")
'Range("G4:G16").Select
'Application.CutCopyMode = False
'Selection.Copy
'Sheets("Sheet1").Select
'Range("C4:C16").Select
'ActiveSheet.Paste
'Sheets("8P-2 Stivers").Select
'ActiveWindow.SmallScroll ToRight:=8
Range("L4:M16").Copy Destination:= _
Sheets("sheet1").Range("D4")
'Range("L4:M16").Select
'Application.CutCopyMode = False
'Selection.Copy
'Sheets("Sheet1").Select
'Range("D4").Select
'ActiveSheet.Paste
'Sheets("8P-2 Stivers").Select
'ActiveWindow.LargeScroll ToRight:=2
'ActiveWindow.SmallScroll ToRight:=-10
Range("U4:V16").Copy Destination:= _
Sheets("Sheet1").Range("F4")
'Range("U4:V16").Select
'Application.CutCopyMode = False
'Selection.Copy
'Sheets("Sheet1").Select
'Range("F4").Select
'ActiveSheet.Paste
'Sheets("8P-2 Stivers").Select
Range("T17").Copy
Sheets("Sheet1").Select
'Range("T17").Select
'Application.CutCopyMode = False
'Selection.Copy
'Sheets("Sheet1").Select
Range("G1").PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, _
Transpose:=False

End Sub

regards
FSt1