ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Post results to a new workbook (https://www.excelbanter.com/excel-programming/365212-post-results-new-workbook.html)

Rambler

Post results to a new workbook
 
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

Post results to a new workbook
 
With Workbooks("Master.xls")
Workbooks("Newbook.xls").Worksheets("Sheet1").Move _
befo=.Worksheets(.Worksheets.Count)
End With

--
HTH

Bob Phillips

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

"Rambler" wrote in message
ups.com...
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?




Jim Jackson

Post results to a new workbook
 
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

"Bob Phillips" wrote:

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

--
HTH

Bob Phillips

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

"Rambler" wrote in message
ups.com...
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?






All times are GMT +1. The time now is 12:49 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com