How do I save a single specific sheet from a workbook

[cocosoft]

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.

[Yogi Anand]

EDIT|MOVE_COPY_SHEET to a new workbook -- then save the new workbook.

Regards!

[Qroozn]

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 ]

[cocosoft]

Thanx Yogi!! Some sthings are so easy you fall over them. I'm a damn 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]

[Yogi Anand]

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!

[cocosoft]

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]

[Qroozn]

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.

[NateO]

May want to give the following a look:

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

[cocosoft]

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
On 2002-05-07 16:52, NateO wrote:
May want to give the following a look:

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

[Ed3m]

explain how you change fname