How can I check a cell for current date and insert it if blank?
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 |
How can I check a cell for current date and insert it if blank?
Sub insertdate()
With ActiveCell If Not IsDate(.Value) Then .Value = Date End With -- Don Guillett SalesAid Software "Don K" <Don wrote in message ... 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 |
How can I check a cell for current date and insert it if blank
Hello DOn,
I appologize, but I'm pretty new to this and don't understand your instructions "Don Guillett" wrote: Sub insertdate() With ActiveCell If Not IsDate(.Value) Then .Value = Date End With -- Don Guillett SalesAid Software "Don K" <Don wrote in message ... 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 |
All times are GMT +1. The time now is 06:30 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com