dating problem

[grokel]

hi guys

I'm trying to build a database for our engineers to record maintenance dates.

I have the basics done,but am stuck one piece of programing.

What I need is this: when they turn a cell green,to say they,ve finished a service,the corresponding cell,6 months later,turns red to say it needs doing again.

Or maybe 5 months-three weeks later,gives-em time to think about it?

Any help,PLEASE

 

[doofusboy]

One way to do it would be to check the dates in specific cells when the workbook is opened, compare them to today's date and color them as you wish. For example, let's assume your dates are in column A rows 1 through 10. The following code should work to turn any date 6 months or older red:

Private Sub Workbook_Open()
Dim r As Range
    Stop
 
    For Each r In Sheet1.Range("A1:A10")
        If Date - r.Value >= 180 Then
            r.Interior.Color = vbRed
        End If
    Next r
 
End Sub

 

[grokel]

One way to do it would be to check the dates in specific cells when the workbook is opened, compare them to today's date and color them as you wish. For example, let's assume your dates are in column A rows 1 through 10. The following code should work to turn any date 6 months or older red:

Private Sub Workbook_Open()
Dim r As Range
    Stop
 
    For Each r In Sheet1.Range("A1:A10")
        If Date - r.Value >= 180 Then
            r.Interior.Color = vbRed
        End If
    Next r
End Sub

Hi doofusboy

Thanx for your reply,but I think you misunderstood.

If say cells "A - I" are dates and cells "1 - 9" are machines, and the engineers turn cell "A6" green, then cell "I9" turns red so they know that on that date it needs doing again.

grokel