|Subject:||Re: Cell possibilities?|
|Posted by:||Bob Phillips (bob.N…@somewhere.com)|
|Date:||Sun, 13 Jul 2008|
You won't be able to delete the data row, but you could have some workbook
open code that deletes them, something like
Private Sub Workbook_Open()
Const TEST_COLUMN As String = "A" '<=== change to suit
Dim i As Long
Dim LastRow As Long
.ScreenUpdating = False
.Calculation = xlCalculationManual
LastRow = .Cells(.Rows.Count, TEST_COLUMN).End(xlUp).Row
For i = LastRow To 1 Step -1
If .Cells(i, TEST_COLUMN).Value < _
DateSerial(Year(Date), Month(Date) - 2, Day(Date)) Then
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
'This is workbook event code.
'To input this code, right click on the Excel icon on the worksheet
'(or next to the File menu if you maximise your workbooks),
'select View Code from the menu, and paste the code
(there's no email, no snail mail, but somewhere should be gmail in my addy)
"Boenerge" <Boener…@discussions.microsoft.com> wrote in message
> I have a spreadsheet which has dates when people have attended a course.
> The sheet then updates itself through conditional formatting and formulas
> let me know when course dates have run out.
> Is it possible through using either a formula or conditional formatting
> after a certain time period e.g. two months after a course date has run
> that the date in the cell is erased?
> If so how id it done?
> Thanks in advance.
Cell possibilities? posted by Boenerge on Sun, 13 Jul 2008