Cell possibilities?

  • Thread starter Thread starter Boenerge
  • Start date Start date
B

Boenerge

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.
 
What formulas and conditional formulas are you presently using to determine
when course dates expire?

And what exactly do you mean by "erased"?
Do you mean "not-displayed", or blank (""), or actually removed?
 
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)
 
Back
Top