Macro Save File (Unique file name)

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

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

--
Regards Ron de Bruin
http://www.rondebruin.nl


"SJC" <SJC@discussions.microsoft.com> wrote in message news:FD490D6A-FDEF-4465-B781-28ADA0077683@microsoft.com...
>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

Great--thanks for your help.

"Ron de Bruin" wrote:

> 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
>
> --
> Regards Ron de Bruin
> http://www.rondebruin.nl
>
>
> "SJC" <SJC@discussions.microsoft.com> wrote in message news:FD490D6A-FDEF-4465-B781-28ADA0077683@microsoft.com...
> >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
>
>
>

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
kevin@spreadsheetsolutions4u.com
www.spreadsheetsolutions4u.com



--
Kevin Lehrbass
kevin@spreadsheetsolutions4u.com
www.spreadsheetsolutions4u.com


"SJC" wrote:

> 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

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

"Kevin Lehrbass" wrote:

> 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
> kevin@spreadsheetsolutions4u.com
> www.spreadsheetsolutions4u.com
>
>
>
> --
> Kevin Lehrbass
> kevin@spreadsheetsolutions4u.com
> www.spreadsheetsolutions4u.com
>
>
> "SJC" wrote:
>
> > 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

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"


"Kevin Lehrbass" wrote:

> 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
> kevin@spreadsheetsolutions4u.com
> www.spreadsheetsolutions4u.com
>
>
>
> --
> Kevin Lehrbass
> kevin@spreadsheetsolutions4u.com
> www.spreadsheetsolutions4u.com
>
>
> "SJC" wrote:
>
> > 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