Good evening all

I am after some simple code to apply to a CommandButton1_Click(),
where when the button is clicked, today's date is inserted into the active cell.
(Though I do require this date to then be fixed, and not change the following day)

Any help most appreciated.
Thank you
Mathew




---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.551 / Virus Database: 343 - Release Date: 11/12/2003

Mathew,

Private Sub CommandButton1_Click()
Worksheets("yoursheetname").Range("A1") = Now
End Sub

You can replace the "Now" with something like:
Format(Now, "m/d/yy")
or whatever format you'd like it to appear in.

By the way..."Today" can't be used in VBA

John

"MPB" wrote in message
...
Good evening all

I am after some simple code to apply to a CommandButton1_Click(),
where when the button is clicked, today's date is inserted into the active
cell.
(Though I do require this date to then be fixed, and not change the
following day)

Any help most appreciated.
Thank you
Mathew




---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.551 / Virus Database: 343 - Release Date: 11/12/2003

Mathew,

You've already had 2 responses in the .misc group.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"MPB" wrote in message
...
Good evening all

I am after some simple code to apply to a CommandButton1_Click(),
where when the button is clicked, today's date is inserted into the active
cell.
(Though I do require this date to then be fixed, and not change the
following day)

Any help most appreciated.
Thank you
Mathew




---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.551 / Virus Database: 343 - Release Date: 11/12/2003

I'd think

Worksheets("yoursheetname").Range("A1").Value = Date

would be more appropriate than using Now, or perhaps

With Worksheets("yoursheetname").Range("A1")
.NumberFormat = "m/d/yy"
.Value = Date
End With

In article ,
"John Wilson" wrote:

Mathew,

Private Sub CommandButton1_Click()
Worksheets("yoursheetname").Range("A1") = Now
End Sub

You can replace the "Now" with something like:
Format(Now, "m/d/yy")
or whatever format you'd like it to appear in.

By the way..."Today" can't be used in VBA

John

"MPB" wrote in message
...
Good evening all

I am after some simple code to apply to a CommandButton1_Click(),
where when the button is clicked, today's date is inserted into the active
cell.
(Though I do require this date to then be fixed, and not change the
following day)

Any help most appreciated.
Thank you
Mathew




---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.551 / Virus Database: 343 - Release Date: 11/12/2003

on the button event put
activecell.value = Date

that will do it. you can format it anyway you like.

Keith
www.kjtfs.com
-----Original Message-----
Good evening all

I am after some simple code to apply to a
CommandButton1_Click(),
where when the button is clicked, today's date is
inserted into the active cell.
(Though I do require this date to then be fixed, and not
change the following day)

Any help most appreciated.
Thank you
Mathew




---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.551 / Virus Database: 343 - Release Date:
11/12/2003
.

You don't need a macro.

Control ; does the job for jou.

Gerrit


"Keith" schreef in bericht
...
on the button event put
activecell.value = Date

that will do it. you can format it anyway you like.

Keith
www.kjtfs.com
-----Original Message-----
Good evening all

I am after some simple code to apply to a
CommandButton1_Click(),
where when the button is clicked, today's date is
inserted into the active cell.
(Though I do require this date to then be fixed, and not
change the following day)

Any help most appreciated.
Thank you
Mathew




---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.551 / Virus Database: 343 - Release Date:
11/12/2003
.

"MPB" schreef in bericht
...
Good evening all

I am after some simple code to apply to a CommandButton1_Click(),
where when the button is clicked, today's date is inserted into the active
cell.
(Though I do require this date to then be fixed, and not change the
following day)

Any help most appreciated.
Thank you
Mathew


type:

Control ; in a cel, jou have a fixed date

J.E.

Got into the habit of just using "Now" and just formatting it the way
I want to see it. Old habits are hard to break.
"Date" would be a lot easier if that's all someone needed.

John

"J.E. McGimpsey" wrote in message
...
I'd think

Worksheets("yoursheetname").Range("A1").Value = Date

would be more appropriate than using Now, or perhaps

With Worksheets("yoursheetname").Range("A1")
.NumberFormat = "m/d/yy"
.Value = Date
End With

In article ,
"John Wilson" wrote:

Mathew,

Private Sub CommandButton1_Click()
Worksheets("yoursheetname").Range("A1") = Now
End Sub

You can replace the "Now" with something like:
Format(Now, "m/d/yy")
or whatever format you'd like it to appear in.

By the way..."Today" can't be used in VBA

John

"MPB" wrote in message
...
Good evening all

I am after some simple code to apply to a CommandButton1_Click(),
where when the button is clicked, today's date is inserted into the
active
cell.
(Though I do require this date to then be fixed, and not change the
following day)

Any help most appreciated.
Thank you
Mathew




---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.551 / Virus Database: 343 - Release Date: 11/12/2003