push my buttons

darro · Dec 1, 2009

Hi, I need a button in a workbook that can be clicked and will enter todays date in the active cell, how do I do this?

thanks for your help.

rs2k · Dec 1, 2009

On the Forms toolbar, drag a button to where you want it and use this code;

Code:

Sub Button1_Click()
Sheets("Sheet1").Range("A1").Value = DateSerial(Year(Now), Month(Now) - 1, Day(Now))
End Sub

This puts a date in cell A1

Sahak · Dec 1, 2009

Code:

Sub Macro1()
    ActiveCell.Value = Now()
    Selection.NumberFormat = "mm/dd/yy"
End Sub

Smitty · Dec 1, 2009

Maybe:

Code:

Private Sub CommandButton1_Click()
  ActiveCell.Value = Date
End Sub

HTH,

rs2k · Dec 1, 2009

Sorry, mis-read your post, this will put the date in the active cell;

Code:

Sub Button1_Click()
Sheets("Sheet1").Activate
ActiveCell.Value = DateSerial(Year(Now), Month(Now) - 1, Day(Now))
End Sub

HTH
Colin