clear cells if time is < 0400

[redspanna]

Hi all,

On worksheet open I want to clear the contents of cells A8:P50 if the date/time in cell AB1 is less than todays date and before the time 0400.

So currently AB1 shows

16/03/2011  07:32:40

so if the workbook was to be opened now nothing would be cleared however if the worksheet is opened before 0400 then A8:P50 of sheet DATA are cleared.

any help appreciated.

 

[DonkeyOte]

Perhaps something along the lines of:

Private Sub Workbook_Open()
    With Sheets("Sheet1")
        If .Range("AB1") < Date + TimeSerial(4,0,0) Then
            .Range("A8:P50").ClearContents
        End If
    End With
End Sub

modify sheet object as appropriate of course

 

[GregoryRicky]

Hi, i have tried this and nothing seems to happen. I need to have a code that clears cell A5 and resets cell D5 to Yes or No

Perhaps something along the lines of:

Private Sub Workbook_Open()
    With Sheets("Sheet1")
        If .Range("AB1") < Date + TimeSerial(4,0,0) Then
            .Range("A8:P50").ClearContents
        End If
    End With
End Sub

modify sheet object as appropriate of course