Date Button

[edwardpestian]

I need a button that when pressed inserts today's date in a specific cell - only if its less than today's date or blank. If its already today's date, then do nothing. I have the following code that I've used to insert the date upon opening a workbook, but I can't seem to get it 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.

[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]...
>
> I need a button that when pressed inserts today's date in a specific
> cell - only if its less than today's date or blank. If its already
> today's date, then do nothing. I have the following code that I've used
> to insert the date upon opening a workbook, but I can't seem to get it
> 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.
>
>
> --
> edwardpestian
> ------------------------------------------------------------------------
> edwardpestian's Profile:
http://www.excelforum.com/member.php...o&userid=33809
> View this thread: http://www.excelforum.com/showthread...hreadid=556384
>

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