How do I save a single specific sheet from a workbook

cocosoft

New Member
Joined
May 3, 2002
Messages
31
How do I save a single specific sheet from a workbook as a seperate entity without all the rest of the workbook being saved too.

Would this saved sheet be auto updated if i did further work on the sheet within the workbook and just saved the workbook in its entirety.
 

Excel Facts

Move date out one month or year
Use =EDATE(A2,1) for one month later. Use EDATE(A2,12) for one year later.
to save a single sheet only you need to copy the sheet to another workbook and save the new workbook.

to enable what you want with autoupdating then you should
1. make sure calculations are set to manual
2. run the sheet calculation fxn(tools/options/calulation/calculate sheet) when you are in the neccesary sheet to be updated.
This message was edited by Qroozn on 2002-05-07 15:58
 
Upvote 0
Thanx Yogi!! Some sthings are so easy you fall over them. I'm a **** Fool and I don't care. Just love fooling with computers and learning, Al the time learning learning Ha Ha Ha
Good on Ya mate Cheers Coco
On 2002-05-07 15:56, Yogi Anand wrote:
EDIT|MOVE_COPY_SHEET to a new workbook -- then save the new workbook.

Regards!

[/quote]
 
Upvote 0
Hi cocosoft:
You are doing great buddy! any guy who will venture to write an invoicing program for a mate has got be a great guy.

Cheers!
 
Upvote 0
Thanx to you too Qroozn
Just need to adjust the macro i was helped with earlier in the week to read my customer name cell, quote number cell, stitch em together copy sheet to new workbook and save as the resultant compound name. Any further sexy ideas on how I do that?
Don't strain the brain mate, you guys are so helpful you are making the learning curve a lot easier than I expected. Thanx again Coco
On 2002-05-07 15:57, Qroozn wrote:
to save a single sheet only you need to copy the sheet to another workbook and save the new workbook.

to enable what you want with autoupdating then you should
1. make sure calculations are set to manual
2. run the sheet calculation fxn(tools/options/calulation/calculate sheet) when you are in the neccesary sheet to be updated.
This message was edited by Qroozn on 2002-05-07 15:58
[/quote]
 
Upvote 0
No worries coco.

I am actually doing the same thing as you for my company (except i am a trainee). I have got an invoicing program which on acceptance of a job finds the customer.. inserts their details in the invoice sheet, inserts a job number, and invoice number, and then saves the details to an external invoice database.

Its always fun to push your limits and see what you can amaze yourself with.
 
Upvote 0
May want to give the following a look:

Code:
Sub fsy()
fname = Sheets(2).[a1].Value & " " & _
Sheets(2).[a2].Value
Sheets(1).Copy 'Copy first sheet to a new workbook
ChDrive ("C") ' drive letter
ChDir ("c:temp") ' target directory
If fname <> "" Then 'make sure fname is not blank
    ActiveWorkbook.SaveAs Filename:=fname & ".xls"
    Else: MsgBox "Please Enter a value in A1 and retry."
End If
End Sub

change:
Sheets(2).[a1].Value & " " & _
Sheets(2).[a2].Value
To the appropriate sheets and ranges. Hope this helps.

_________________
Cheers, Nate
 
Upvote 0
Thanks NateO
You people are too much, I've never before stumbled onto such a helpful group of people in all my life-- To all those offering Cocosoft help since i joined the board recently, give yourselves a bloody big pat on the back. I'm loving this, I'm usually on the other side of the coin answering questions for other people in my own areas of expertise, with rarely a "thank you" but you guys are the bees knees . Have a flaming great day, sure i'm going to have plenty more dumb questions for you all until such time as i learn a lot more. Reg to you all Coco :wink:
On 2002-05-07 16:52, NateO wrote:
May want to give the following a look:

Code:
Sub fsy()
fname = Sheets(2).[a1].Value & " " & _
Sheets(2).[a2].Value
Sheets(1).Copy 'Copy first sheet to a new workbook
ChDrive ("C") ' drive letter
ChDir ("c:temp") ' target directory
If fname <> "" Then 'make sure fname is not blank
    ActiveWorkbook.SaveAs Filename:=fname & ".xls"
    Else: MsgBox "Please Enter a value in A1 and retry."
End If
End Sub

change:
Sheets(2).[a1].Value & " " & _
Sheets(2).[a2].Value
To the appropriate sheets and ranges. Hope this helps.

_________________
Cheers, Nate
 
Upvote 0

Forum statistics

Threads
1,212,938
Messages
6,110,775
Members
448,298
Latest member
carmadgar

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