How can I check a cell for current date and insert it if blank? Don K 29.09.2006 12:57:01 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

Re: How can I check a cell for current date and insert it if blank? "Don Guillett" <dguillett1[ at ]austin.rr.com> 29.09.2006 13:03:07 Sub insertdate() With ActiveCell If Not IsDate(.Value) Then .Value = Date End With -- Don Guillett SalesAid Software dguillett1[ at ]austin.rr.com "Don K" <Don K[ at ]discussions.microsoft.com> wrote in message news:85927992-1BA5-4B6A-94A7-AFFCCB607BD7[ at ]microsoft.com... [Quoted Text] >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

Re: How can I check a cell for current date and insert it if blank Don K 29.09.2006 13:22:02 Hello DOn, I appologize, but I'm pretty new to this and don't understand your instructions "Don Guillett" wrote: [Quoted Text] > Sub insertdate() > With ActiveCell > If Not IsDate(.Value) Then .Value = Date > End With > > -- > Don Guillett > SalesAid Software > dguillett1[ at ]austin.rr.com > "Don K" <Don K[ at ]discussions.microsoft.com> wrote in message > news:85927992-1BA5-4B6A-94A7-AFFCCB607BD7[ at ]microsoft.com... > >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 > > >

Re: How can I check a cell for current date and insert it if blank "Don Guillett" <dguillett1[ at ]austin.rr.com> 29.09.2006 13:46:52 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") -- Don Guillett SalesAid Software dguillett1[ at ]austin.rr.com "Don K" <DonK[ at ]discussions.microsoft.com> wrote in message news:C4C9C585-78F2-4DFA-8E80-1C7F924ACFB9[ at ]microsoft.com... [Quoted Text] > 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 >> dguillett1[ at ]austin.rr.com >> "Don K" <Don K[ at ]discussions.microsoft.com> wrote in message >> news:85927992-1BA5-4B6A-94A7-AFFCCB607BD7[ at ]microsoft.com... >> >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 >> >> >>