Post results to a new workbook

[Rambler]

Hello

Realtive newbie here!

I am looking for a macro that will move worksheets to a master
workbook.

I have an order form with macros that save a file as a certain name and
forward it via email that works fine.

I want to have a macro the inserts the order worksheet into another
workbook so copies are kept in one master file. Another option is a
macro to post values to another workbook posted on a network drive,
where they can be totaled, i.e. order one becomes line one in another
workbook

Any suggestions?

 

[Bob Phillips]

With Workbooks("Master.xls")
Workbooks("Newbook.xls").Worksheets("Sheet1").Move _
before:=.Worksheets(.Worksheets.Count)
End With

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

 

[Guest]

I would use something like the following:

Dim wbk1, wbk2 As Workbook
Dim x

wbk1 = "Orders.xls"
wbk2 = "Master.xls"

x = ActiveSheet.Name
Cells.Select
Selection.Copy

wbk2.Activate
Sheets.Add
ActiveSheet.Name = x

ActiveSheet.Range("A1").Activate
Selection.PasteSpecial Paste:=xlValues

Best wishes,

Jim