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
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
End With
With ThisWorkbook.Worksheets(1)
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
.Rows(i).Delete
End If
Next i
End With
With Application
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With
End Sub
'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
--
HTH
Bob
(there's no email, no snail mail, but somewhere should be gmail in my addy)
"Boenerge" <(E-Mail Removed)> wrote in message
news:73FEB288-6EC6-461C-AC52-(E-Mail Removed)...
> Hi,
> I have a spreadsheet which has dates when people have attended a course.
> The sheet then updates itself through conditional formatting and formulas
> to
> let me know when course dates have run out.
> Is it possible through using either a formula or conditional formatting
> that
> after a certain time period e.g. two months after a course date has run
> out,
> that the date in the cell is erased?
> If so how id it done?
> Thanks in advance.
|
Similar Threads
