I want to change this code from inputting a name file to choosing a certain name file to save

[zone709]

Sub SaveFileButton()
Dim SaveName As String
Const MyPath As String = "E:\"   'This is the path it's using for saves before the dates
ReName:
On Error GoTo ErrorHandle


    SaveName = Trim(InputBox("Enter file name. (blank to skip)", "Input required."))
    If Len(SaveName) > 0 Then
        SaveName = SaveName & ".xlsx"
        If Len(Dir(MyPath & Format(Now, "yy") & "-" & Format$(Now, "mmm"), vbDirectory)) = 0 Then
            MkDir MyPath & Format(Now, "yy") & "-" & Format$(Now, "mmm") & "\"
        End If
        If Len(Dir(MyPath & Format(Now, "yy") & "-" & Format$(Now, "mmm") & "\" & Format(Now, "mm") & "-" & Format(Now, "dd") & "-" & Format(Now, "yyyy"), vbDirectory)) = 0 Then
            MkDir MyPath & Format(Now, "yy") & "-" & Format$(Now, "mmm") & "\" & Format(Now, "mm") & "-" & Format(Now, "dd") & "-" & Format(Now, "yyyy") & "\"
        End If
        ActiveWorkbook.SaveAs Filename:=MyPath & Format(Now, "yy") & "-" & Format$(Now, "mmm") & "\" & Format(Now, "mm") & _
            "-" & Format(Now, "dd") & "-" & Format(Now, "yyyy") & "\" & SaveName, FileFormat:=xlOpenXMLWorkbook
    End If

Exit Sub

ErrorHandle:
    If Err.Number = 75 Then
        Resume Next
    ElseIf Err.Number = 1004 Then
        MsgBox ("That name is already used for this day.  Please try again!")
        GoTo ReName
    Else: MsgBox ("There is an unknown error")
    End If
End Sub

This will ask me to in a pop up box to name the file I want to save.

I rather have a option to select a filename to save by adding it in the code. So when the pop up box comes up it asks me which filename you like to save.

"Enter"
"Symbol"
"Restore"

etc

 

[Alan_P]

Hi Frank,

To have a message with a dropdown list or option buttons you would need to create a userform...

Alternatively you could give a list of options in the Message Box and then the user could enter a number accordingly... example;

Sub SaveFileButton()
Dim SaveName As String
Const MyPath As String = "E:\"   'This is the path it's using for saves before the dates
ReName:
On Error GoTo ErrorHandle

[COLOR=#0000FF]Num = Trim(InputBox("Enter the number or name you require" & vbNewLine & "1:Enter" & vbNewLine & "2:Symbol" & vbNewLine & "3:Restore", "Input required."))

Select Case Num
    Case "1"
        SaveName = "Enter"
    Case "2"
        SaveName = "Symbol"
    Case "3"
        SaveName = "Restore"
    Case Else
        SaveName = Num
End Select[/COLOR]

If Len(SaveName) > 0 Then
    SaveName = SaveName & ".xlsx"
    If Len(Dir(MyPath & Format(Now, "yy") & "-" & Format$(Now, "mmm"), vbDirectory)) = 0 Then
        MkDir MyPath & Format(Now, "yy") & "-" & Format$(Now, "mmm") & "\"
    End If
    If Len(Dir(MyPath & Format(Now, "yy") & "-" & Format$(Now, "mmm") & "\" & Format(Now, "mm") & "-" & Format(Now, "dd") & "-" & Format(Now, "yyyy"), vbDirectory)) = 0 Then
        MkDir MyPath & Format(Now, "yy") & "-" & Format$(Now, "mmm") & "\" & Format(Now, "mm") & "-" & Format(Now, "dd") & "-" & Format(Now, "yyyy") & "\"
    End If
    ActiveWorkbook.SaveAs Filename:=MyPath & Format(Now, "yy") & "-" & Format$(Now, "mmm") & "\" & Format(Now, "mm") & _
            "-" & Format(Now, "dd") & "-" & Format(Now, "yyyy") & "\" & SaveName, FileFormat:=xlOpenXMLWorkbook
End If

Exit Sub

ErrorHandle:
    If Err.Number = 75 Then
        Resume Next
    ElseIf Err.Number = 1004 Then
        MsgBox ("That name is already used for this day.  Please try again!")
        GoTo ReName
    Else: MsgBox ("There is an unknown error")
    End If
End Sub

Cheers,
Alan.

 

[zone709]

This works great learned something again thank Alan.