|  | Cell possibilities? | | |
| | | Boenerge |  |
|  Posted: Sun Jul 13, 2008 11:29 am Post subject: Cell possibilities? |  |
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. |
| |
| | | Ragdyer | |
| | Posted: Sun Jul 13, 2008 11:44 am Post subject: Re: Cell possibilities? | |
| |  | |
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?
--
Regards,
RD
---------------------------------------------------------------------------
Please keep all correspondence within the NewsGroup, so all may benefit !
---------------------------------------------------------------------------
"Boenerge" <Boenerge@discussions.microsoft.com> wrote in message
news:73FEB288-6EC6-461C-AC52-EDD34D2FEEF0@microsoft.com...
| Quote: | 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. |
|
| |
| | | Bob Phillips | |
| | Posted: Sun Jul 13, 2008 12:23 pm Post subject: Re: Cell possibilities? | |
| | | |
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" <Boenerge@discussions.microsoft.com> wrote in message
news:73FEB288-6EC6-461C-AC52-EDD34D2FEEF0@microsoft.com...
| Quote: | 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. |
|
| |
|
|
