Macro Save File (Unique file name)

[Guest]

I currently have a code which I have listed below which will save a file when
the user selects the button. I have some users who will need to save two or
more files, which directs them to overwrite the file since currently, there
is no identifier in the file name. The indentifier that I would like to add
is on another spreadsheet in the same workbook. (Worksheet name:
Intro--Start Here; cell: G13)

Does anyone know how I can add this information to the filename so that each
file saved will have a unique name? Thanks for any suggestions.


Dim strPath As String
Dim strFileName As String

strPath = Application.DefaultFilePath & "\"
strFileName = "xxx"

ActiveWorkbook.SaveAs strPath & strFileName, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWindow.Close
Sheets("Intro--Start Here").Select
MsgBox ("xxx")

End Sub

 

[Ron de Bruin]

Hi

In my Mail examples i always use the date and time

Dim strdate As String
strdate = Format(Now, "dd-mm-yy h-mm-ss")

For a example see this one for example
http://www.rondebruin.nl/mail/folder1/mail2.htm

 

[Guest]

Hi SJC,

Change strFileName = "xxx" to strFileName =
Range("G13").Value
Add this Sheets("Intro--Start Here").Select before
the line above.

This should do the trick! It basically select your intro sheet, and then
assigns a cell value (G13 in this case) to a variable which you then use save
the file.

Let me know if you have any more questions!

Cheers,

Kevin Lehrbass
(e-mail address removed)
www.spreadsheetsolutions4u.com

 

[Guest]

That worked great, Kevin. Thanks for all of your help!!

 

[Guest]

Great--thanks for your help.

Hi

In my Mail examples i always use the date and time

Dim strdate As String
strdate = Format(Now, "dd-mm-yy h-mm-ss")

For a example see this one for example
http://www.rondebruin.nl/mail/folder1/mail2.htm

 

[Guest]

I have one more question if you have the time. I am also thinking I would
like to include 2 cells into the file name, but I am thinking I am not doing
it right. How would you suggest changing this path? The cell I want to add
is F@.

Range("C2").Select
strPath = Application.DefaultFilePath & "\"
strFileName = Range("C2").Value & "_xxx"