Copy sheet 1 data to sheet 2 cells.
 

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

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
InsertModule 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




--
Regards Ron de Bruin
http://www.rondebruin.nl


"Tom Doggett" wrote in message ...
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