Re: Can Excel automatically insert current date in a cell?

[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

"AdrianXing" <Adria...@discussions.microsoft.com> wrote in message
news:5F26601D-A0A5-468F...@microsoft.com...
> Does anyone know of a function that can make Excel automatically insert
> the
> current date into a cell when a file is opened up?

[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?

[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.

[SGfla]

Thanks, Paul D. That helps!

[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.

[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

On Mar 6, 12:08 pm, aspect30 <aspec...@discussions.microsoft.com>
wrote:

[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?

--
Rick (MVP - Excel)

"aspect30" <aspe...@discussions.microsoft.com> wrote in message
news:AF5F11F6-12C8-4A22...@microsoft.com...

[MikeW]

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

[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

On Sat, 14 Mar 2009 10:43:03 -0700, MikeW <Mi...@discussions.microsoft.com>
wrote:

[Michael.Tarnowski]

On Mar 6, 8:26 pm, "Rick Rothstein"

<rick.newsNO.S...@NO.SPAMverizon.net> wrote:
> 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?
>
> --
> Rick (MVP - Excel)
>

> "aspect30" <aspec...@discussions.microsoft.com> wrote in message

>
> news:AF5F11F6-12C8-4A22...@microsoft.com...
>
> > 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.
>
> > "Paul B" wrote:
>
> >> 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
>

> >> "AdrianXing" <AdrianX...@discussions.microsoft.com> wrote in message

> >>news:5F26601D-A0A5-468F...@microsoft.com...
> >> > Does anyone know of a function that can make Excel automatically insert
> >> > the
> >> > current date into a cell when a file is opened up?

Hi Paul,
to implement a correct time-stamp mechanism it is sometimes necessary
to "rebuild" the time-stamping formula; have a look at
http://groups.google.com/group/microsoft.public.excel.worksheet.functions/browse_thread/thread/b0dd2e626011e2d7/f1b447a790090855?hl=en&q=#f1b447a790090855
Cheers Michael

[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?

[@consumerdotorg 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

"RendaBay" <Rend...@discussions.microsoft.com> wrote in message
news:2E6ED582-CBB3-470B...@microsoft.com...

[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

[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

[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.

[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

On Mon, 3 May 2010 23:30:02 -0700, Felix <Fe...@discussions.microsoft.com>
wrote:

[Muhasenul Haque @discussions.microsoft.com 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

[Roger Govier]

Hi

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

--

Regards
Roger Govier

"Md. Muhasenul Haque" <Md. Muhasenul Haque @discussions.microsoft.com> wrote
in message news:38109FC4-9661-475F...@microsoft.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
>
>
>

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

The message was checked by ESET Smart Security.

http://www.eset.com

[Arvi Laanemets]

Hi

=DATE(YEAR(A1),MONTH(A1)+1,1)

Arvi Laanemets

"Md. Muhasenul Haque" <Md. Muhasenul Haque @discussions.microsoft.com>

kirjutas sõnumis news: 38109FC4-9661-475F...@microsoft.com...

[steve]

In answer to the last sentence you would need to have a macro enabled
workbook with this macro in "ThisWorkbook"

Sub Workbook_Open()
Worksheets("sheet1").Range("a1") = Now()
End Sub

This will automatically enter the date when a workbook is opened

from information at http://www.ozgrid.com/VBA/auto-run-macros.htm

Regards
Steve

"Md. Muhasenul Haque" <Md. Muhasenul Haque @discussions.microsoft.com> wrote
in message news:38109FC4-9661-475F...@microsoft.com...

[r.church...@gmail.com]

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

ANSWER:

There is a very simple way to do this that doesn't require Macros enabled or VB script. Use the IF function with the date or date & time formula embedded.

=IF(B1=0,"",TODAY()) this will include static date
=IF(B1=0,"",NOW()) this will include static date & time

I use this and it works flawlessly.

good luck.

[sustainabl...@gmail.com]

You are a champ!
Thanks