PDA

View Full Version : Macro to save a file name as per a cell content.


rsdjimbie
May 5, 2009, 11:49 AM
I have a macro saving the file auto. To my desktop.

For example cell A1 = 501

I run a macro with a counter and auto. Changes A1 to 502.

Now macro must change file saving to 502, or =cell A1 content.

I also sometimes have to change destination from desktop to a specific file.

JBeaucaire
May 5, 2009, 05:02 PM
I have a macro saving the file auto. To my desktop.

For example cell A1 = 501

I run a macro with a counter and auto. Changes A1 to 502.

Now macro must change file saving to 502, or =cell A1 content.
Building on what we've done earlier, something like this should give an idea of the syntax:


Sub Save()
Dim fName As String, DTAddress As String
DTAddress = CreateObject("WScript.Shell").SpecialFolders("Desktop") & Application.PathSeparator
fName = Range("A1").Text

ActiveWorkbook.SaveAs DTAddress & fName & ".xls"

End Sub

I also sometimes have to change destination from desktop to a specific file.
Change how? Clarify your work process or desired methodology.

rsdjimbie
May 5, 2009, 11:40 PM
File save as: My documents->Renier-> Production management->May

JBeaucaire
May 6, 2009, 09:06 AM
Riddles and more riddles.

If you occasionally want to save the file to a different place and NOT use your macros normal methodology, then don't use your macro.

Click on File > Save and pick you path / filename.