Save and close

kiss

New Member
Joined
Sep 26, 2010
Messages
2
Could someone please help with the following:

I have a master excel worksheet (Spare Parts requisition.xls)that consists of only one sheet.
I would like to save a copy of this sheet, retaining this worksheet as the master copy but creating a new file from it after the user has added the data.
I want to use a button to do this.
I have created a cell that holds an equation to create a file name. (cell - V5).
Cell equation: =CONCATENATE(N3," ",D5," ",O5)
I want to use this cell data for the file name.
I want to store this file in a folder C:\Documents and Settings\tdallow\Desktop\MMAU Service\Forms\Completed Parts Requisitions.
After saving the form I would like the master to close.
So after data has been entered and the form saved there should still be a copy of the original master and a copy of the newly created form.

I am using 2003 excel.
Would I have to make the "Master" a template or can I keep it as a form.

Thank you for your assistance.
kind regards
 

Excel Facts

What is the shortcut key for Format Selection?
Ctrl+1 (the number one) will open the Format dialog for whatever is selected.
This code will create a new workbook with a copy of your active worksheet as the only sheet. It will then Name, Save and Close the new workbook.
Code:
Sub CandP()
Dim TargetWB As String
Dim ThisPath As String
    'Assign Variables
    TargetPath = "C:\Documents and Settings\tdallow\Desktop\MMAU Service\Forms\Completed Parts Requisitions"
    TargetWB = Range("V5").Value
    ThisFile = TargetPath & "\" & TargetWB & ".xls"
    'Create new workbook with copy of active worksheet
    ActiveSheet.Copy
    'Name, Save and Close new workbook
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=ThisFile
    ActiveWorkbook.Close
    Application.DisplayAlerts = True
End Sub
Code assumes you have a valid WorkBook name in cell "V5" without the file extension. Adjust code as needed.
 
Upvote 0
Thanks Datsmart, fantastic, just what I was looking for and worked first time. Really appreciate your prompt response.
 
Upvote 0

Forum statistics

Threads
1,216,759
Messages
6,132,549
Members
449,735
Latest member
Gary_M

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top