How can I check a cell for current date and insert it if blank?

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Don K - 29 Sep 2006 13:57 GMT

I am modifying the invoice template. I want to create a formaula that checks
the date cell for the current date. If a date occupies the cell nothing
happens, otherwise, the current date is inserted. Can this be done?

Thanks
Don

Reply to this Message

Don Guillett - 29 Sep 2006 14:03 GMT

Sub insertdate()
With ActiveCell
If Not IsDate(.Value) Then .Value = Date
End With

Signature

Don Guillett
SalesAid Software
dguillett1@austin.rr.com

>I am modifying the invoice template. I want to create a formaula that
>checks
[quoted text clipped - 3 lines]
> Thanks
> Don

Reply to this Message

Don K - 29 Sep 2006 14:22 GMT

Hello DOn,

I appologize, but I'm pretty new to this and don't understand your
instructions

> Sub insertdate()
> With ActiveCell
[quoted text clipped - 8 lines]
> > Thanks
> > Don

Reply to this Message

Don Guillett - 29 Sep 2006 14:46 GMT

Actually, I didn't give any instructions. I wrote a macro. Copy/paste into a
macro module and assign to a button or a worksheet event. You may want to
designate the cell to use
with range("a1")

Signature

Don Guillett
SalesAid Software
dguillett1@austin.rr.com

> Hello DOn,
>
[quoted text clipped - 13 lines]
>> > Thanks
>> > Don

Reply to this Message

Rate this thread: