Can Excel automatically insert current date in a cell?

A

AdrianXing

Does anyone know of a function that can make Excel automatically insert the
current date into a cell when a file is opened up?
 
P

Paul B

AdrianXing, you could put =TODAY() in a cell and it will up date, if you
don't want the date to change after you put it in use some code in the
workbook open event to do it, like this

Sheets("Sheet1").Range("A1") = Date

--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003
 
S

SGfla

PaulB (or anyone) - I have a question about inserting a current date into a
spreadsheet, but I don't want the date to change once I've saved it, closed
it and reopened it on a different date. Can you explain the formula to
insert the current date in a cell (or range of cells) and once you save, that
date stays, but the next day enters that current date?
 
P

Paul D. Simon

While neither a formula solution nor an automated method, simply doing
Ctrl+; (in other words, holding down the Ctrl key while hitting the
semi-colon) will enter the current date as a static (non-changing)
date into the active cell.
 
A

aspect30

How can I make today's date auto fill in a cell upon entering data in another
cell. I would like the cell B1 that contains the date to remain empty until I
enter data in cell A1.
Please advise.
Thanks.
 
S

Susan

an easy way is to make cell B1 have =today() be in it, but format it
to white text.
then do conditional formatting that if
A1<>""
then the text changes to black and the date can be seen. that way the
date is always there, you just don't see it until you enter data into
cell A1.
hope that helps.
:)
susan
 
R

Rick Rothstein

I'm assuming that once the date is added to the worksheet, you would not
want it to change. If that is the case, you will need to use VB event code
to handle this. Is a VB solution an acceptable choice?
 
C

Curt

Is there a way to use only the day of the date in this manner. Trying to have
an occurance all ways on th 15th of month year after year
Thanks
 
M

MikeW

Rick, I'm trying to do the same thing, could you explain the VB event code
I'd have to use?
 
G

Gord Dibben

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Columns("A:A")) Is Nothing Then
Target.Offset(0, 1).Value = Format(Now, "mm dd yyyy h:mm:ss")
End If
End Sub

This is sheet event code.

Right-click on the sheet tab and "View Code"

Copy/paste into that module.

Alt + q to return to the Excel window.

Enter something in a cell in column A and a static date/time will be entered
in column B


Gord Dibben MS Excel MVP
 
M

Michael.Tarnowski

R

RendaBay

I know VERY LITTLE about using Excel -- just learning -- so trial and error
is my only option. I have Excel X for Mac (a slightly older version). I want
to cause the date inside one of the cells to change automatically when I
open. I tried adding =TODAY() directly into the cell, but it only prints with
those same characters in the document. It doesn't show a date. I went into
"View Code" to try adding it there, but there is already stuff in the window.
I don't really understand how to do this. Can you help me?
 
B

Bernie Deitrick

RendaBay,
I tried adding =TODAY() directly into the cell, but it only prints with
those same characters in the document. It doesn't show a date.

Format that cell as General or with the specific date format that you prefer, then re-enter the
formula. The cell was formatted as text, which disables formulas just for that cell....

HTH,
Bernie
MS Excel MVP
 
L

Lejothomas

Hi
I wanted to enter date automatically in A when something is entered in
D(time should be static) . On the same sheet, when someone put data in I, i
need that date and time (static) in J.

Can anyone help me please...

Thanks
Lejo
 
G

Gord Dibben

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Columns("D:D")) Is Nothing Then
Target.Offset(0, -3).Value = Format(Now, "mm dd yyyy h:mm:ss")
End If
If Not Application.Intersect(Target, Columns("I:I")) Is Nothing Then
Target.Offset(0, 1).Value = Format(Now, "mm dd yyyy h:mm:ss")
End If
End Sub


Gord
 
F

Felix

I would like to put something in cell A1 and the current date will be shown
in cell b1 but static. How to use the following code to achieve this? Thanks.
 
G

Gord Dibben

Copy/paste this code to your sheet module.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error GoTo stoppit
Application.EnableEvents = False
If Target.Address = "$A$1" Then
Target.Offset(0, 1).Value = Format(Now, "mm-dd-yyyy hh:mm")
End If
stoppit:
Application.EnableEvents = True
End Sub

If you want this for any cell in Column A use this code instead.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'when entering data in a cell in Col A
On Error GoTo stoppit
Application.EnableEvents = False
If Target.Cells.Column = 1 Then
n = Target.Row
If Me.Range("A" & n).Value <> "" Then
Me.Range("B" & n).Value = Format(Now, "mm-dd-yyyy hh:mm")
End If
End If
stoppitl:
Application.EnableEvents = True
End Sub


Gord Dibben MS Excel MVP
 
M

Md. Muhasenul Haque

Hi,
How can I insert a date which is the first date of the following month of a
given date. For example, I have a number of dates and I need to put the 1st
date of the following month. Can I do it using excel formula? or will I have
to inset the 1st date of the following month manually?
Muhasenul Haque
 
R

Roger Govier

Hi

With first date in A1, enter in A2
=DATE(Year(A1),MONTH(A1)+1,1)

--

Regards
Roger Govier

Md. Muhasenul Haque said:
Hi,
How can I insert a date which is the first date of the following month of
a
given date. For example, I have a number of dates and I need to put the
1st
date of the following month. Can I do it using excel formula? or will I
have
to inset the 1st date of the following month manually?
Muhasenul Haque



__________ Information from ESET Smart Security, version of virus
signature database 5167 (20100602) __________

The message was checked by ESET Smart Security.

http://www.eset.com

__________ Information from ESET Smart Security, version of virus signature database 5167 (20100602) __________

The message was checked by ESET Smart Security.

http://www.eset.com
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top