About Us

Guy[_2_]

Figured it out and got it to work. Thanks.

Guy
--
GT

"Brotha Lee" wrote:

Hi Guy,

The following codes will do the trick for you:

Sub SetDate()
'Set cell A1 to the current date
ActiveSheet.Range("A1").Value = Date
End Sub

Sub SaveAs()
'Open the save as dialog box and show the value from A1
Dim myValue As String

myValue = ActiveSheet.Range("A1").Value
Dim fd As Dialog
Set fd = Application.Dialogs(xlDialogSaveAs)

If fd.Show(myValue) = False Then
'User pressed cancel, sheet not saved
'Add any additional code here if necessary
Else
'User has saved the file, update the data in range A1
'Run SetDate macro
SetDate
End If
End Sub

"Guy" wrote:

Windows XP - Office Basic 2003 - Excell 2003

1) I need a macro that will insert the current date into a cell. I do not
want the date to change when the sheet is opened or modified and saved unless
that macro button is selected.

2) I also need a macro that will bring up the "Save As" window when button
is selected. If possible to also insert a particular cell value in name field
of "Save As" window, then save and exit all with same macro.

Thanks,
Guy

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro in WB assigned to toolbar, after "save as" points to differn	Activoz_Interpreting	Excel Discussion (Misc queries)	1	March 16th 08 04:02 AM
Insert "Proper Function" into existing macro	jackel[_14_]	Excel Worksheet Functions	10	March 10th 08 04:00 PM
Need the formula or macro. If i enter today date in the cell (Row 1,Column 2) and on tab out, the column 1 cell should be filled with "corresponding Day" of the date	kakasay	Excel Discussion (Misc queries)	1	January 22nd 07 12:31 PM
Need Formula or macro. If i enter today date in the cell (Row 1,Column 2) and on tab out, the column 1 cell should be filled with "corresponding Day" of the date	kakasay	Excel Discussion (Misc queries)	1	January 22nd 07 12:31 PM
Is it possible to insert a macro command in an "IF" function?	SandyLACA	Excel Worksheet Functions	4	November 8th 05 10:46 PM

Menu

About Us