|
airscape
Jan 18, 2011, 8:53 AM
Post #1 of 6
(669 views)
Shortcut
Registered: Feb 26, 2001
Posts: 4240
|
Hello.
I have a cell A1 with a formula in it, and I would like to "save as" the file to make copies of it after certain calcs have been performed.
How can I make these copies where the filename contains the value of A1 without me having to type it everytime?
kthxbai.
|
|
|
|
|
blondgecko
Moderator
Jan 18, 2011, 9:20 AM
Post #2 of 6
(663 views)
Shortcut
Registered: Jul 2, 2004
Posts: 7666
|
airscape wrote: Hello. I have a cell A1 with a formula in it, and I would like to "save as" the file to make copies of it after certain calcs have been performed. How can I make these copies where the filename contains the value of A1 without me having to type it everytime? kthxbai.
I'd do it via a macro. Using the "forms" toolbar, draw a button, then when the assign macro dialog comes up, click "New" and put this in:
Sub Button1_Click()
Sheet1.SaveAs Filename:=Sheet1.Evaluate("A1")
End Sub
|
|
|
|
|
airscape
Jan 18, 2011, 9:55 AM
Post #3 of 6
(657 views)
Shortcut
Registered: Feb 26, 2001
Posts: 4240
|
blondgecko wrote: airscape wrote: Hello. I have a cell A1 with a formula in it, and I would like to "save as" the file to make copies of it after certain calcs have been performed. How can I make these copies where the filename contains the value of A1 without me having to type it everytime? kthxbai. I'd do it via a macro. Using the "forms" toolbar, draw a button, then when the assign macro dialog comes up, click "New" and put this in: Sub Button1_Click() Sheet1.SaveAs Filename:=Sheet1.Evaluate("A1") End Sub
Thank you!
That works great.
If I want to save it as a PDF what do I do then??
Sarry, I'm a programming illitaratetate.
|
|
|
|
|
Toast_in_the_Machine
Jan 18, 2011, 4:43 PM
Post #4 of 6
(630 views)
Shortcut
Registered: Sep 12, 2008
Posts: 5208
|
airscape wrote: blondgecko wrote: airscape wrote: Hello. I have a cell A1 with a formula in it, and I would like to "save as" the file to make copies of it after certain calcs have been performed. How can I make these copies where the filename contains the value of A1 without me having to type it everytime? kthxbai. I'd do it via a macro. Using the "forms" toolbar, draw a button, then when the assign macro dialog comes up, click "New" and put this in: Sub Button1_Click() Sheet1.SaveAs Filename:=Sheet1.Evaluate("A1") End Sub Thank you! That works great. If I want to save it as a PDF what do I do then?? Sarry, I'm a programming illitaratetate.
I did the lazy thing and recorded a save as with PDF.
The difference is that
Sheet1.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Sheet1.Evaluate("A1)
By default XL threw in Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False
but if you do or do not want those parameters I don't know
|
|
|
|
|
airscape
Jan 18, 2011, 5:32 PM
Post #5 of 6
(625 views)
Shortcut
Registered: Feb 26, 2001
Posts: 4240
|
I'll test it tomorrow morning.
I have a few more questions, but that is for tomorrow.
Thanks a lot for the help.
|
|
|
|
|
airscape
Jan 20, 2011, 12:08 PM
Post #6 of 6
(602 views)
Shortcut
Registered: Feb 26, 2001
Posts: 4240
|
Is working great.
How does I get it to work globally?
I put now a shortcut button for the macro in my menu bar and that works great.
Now I make a copy of the workbook, and I rename it. Now I need to run the macro in the new workbook with my shorcut button. The shortcut button doesn't work because it's the macro from a different workbook.
Or if I have a completely different workbook, but I need the same macro to work.
|
|
|
|
|
|
