Copy sheet 1 data to sheet 2 cells.

T

Tom Doggett

i have 2 sheets in an excel file. the 2 sheets are identical except the 2nd
one has "COPY" on it. i want to make it so i can fill out the first sheet
with text. and it copy to the 2nd sheet. it is a shipping form. after i fill
in the blanks and print the two sheets, i will have a copy to keep with the
rest of the paperwork. i currently use carbon copy papers and write it out.
any help it much appreciated!!!

td
 
R

Ron de Bruin

Hi Tom

You can use a simple print macro like this that use D1 for the word Copy in my example.

Sub printtwo()
With Sheets("Sheet1")
.PrintPreview
.Range("D1").Value = "COPY"
.PrintPreview
.Range("D1").Value = ""
End With
End Sub

Change PrintPreview to PrintOut if it working correct
Change the sheet name to yours

Alt-F11
Insert>Module from the menubar
paste the sub in there
Alt-Q to go back to Excel


If you do Alt-F8 you get a list of your macro's
Select "printtwo" and press Run
 
Top