Need Save As Macro with date in filename

[rodj44137]

Am running Excel 2000 on computer for members to input their volunteer hours. They are not all Excel users or even computer users.
Want them to be able to simply click on a logo picture to save the file and want the file to be saved in the same directory with the file name "signin-xxxxxxx.xls" where "xxxxxxx" is the current date in the format "ddmmmyy".
I have no experience with Excel/VBA macros.

Please help. This is for the Ohio Naval Militia, an all non-paid volunteer branch of the Ohio Adjutant General's Department (www.navalmilitia.ohio.gov)
Thanks,
CDR Rod Joye
Operations Officer
Ohio Naval Militia

 

[Michael M]

Hi Rod and Welcome to the Board.
This will save as requested

Sub SaveIt()
Dim Fname As String, sname As String
Application.ScreenUpdating = False
Fname = Format(Date, "dd-mm-yy") & ".xls"
sname = ThisWorkbook.Path
Set wb = ActiveWorkbook
        With wb
            .SaveAs sname & "\Signin- " & Fname
            .Close
        End With
Application.ScreenUpdating = True
End Sub

 

[Ruddles]

Or:-

Format(Date, "ddmmmmyy")

To insert the macro code, right-click the worksheet tab and click View Code to open the VBA editor, then go Insert > Module and paste the code into the module window. Close the VBA editor.

Create the button/shape/picture on the worksheet, right-click it, click Assign Macro and select SaveIt.

That should do it.

 

[Michael M]

Thanks for the pickup Ruddles....**** copy and paste ....LOL !!

 

[Ruddles]

 

[rodj44137]

Thanks Michael M and Ruddles. Sorry for the delay, but can only work on this on weekends.
Your solutions works great!
Thanks again!

Rod