Date Button

E

edwardpestian

I need a button that when pressed inserts today's date in a specifi
cell - only if its less than today's date or blank. If its alread
today's date, then do nothing. I have the following code that I've use
to insert the date upon opening a workbook, but I can't seem to get i
to work attached to a button..

Private Sub Workbook_Open()
Dim cell As Range
Set cell = Worksheets("Sheet1").Range("A1")
If cell.Text = "" Then
cell.Value = Date
End If
End Sub

Thanks
 
B

Bob Phillips

Get a button from the Forms toolbar, and when you put it on the worksheet it
asks to assign a macro, so assign this one

Sub CheckDate()
With Activecell
If .Text = "" Or .Value < Date Then
.Value = Date
End If
End With
End Sub


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"edwardpestian" <[email protected]>
wrote in message
news:[email protected]...
 
E

edwardpestian

Modified it to set the date in a specific cell.

Thanks Bob

Sub CheckDate()
With Range("C10")
If .Text = "" Or .Value < Date Then
.Value = Date
End If
End With
End Su
 
Top