Hide Row Based on cell value which more than 45 days

[JayHo]

Hi all,
I was creating an excel to monitoring the maintenance progress. i would like to hide the row which based on the cell value (date) more than 45days.

i have limited knowledge on VBA here is my core.
i set the date on colum S, and would like to hide the row base on the value on colum . can you point out the erron on my code below?

Sub Hidedatemorethan45days()
'
'
'
Dim cell As Range
For Each cell In Range("S6:S67")
If cell.Value < "45" Then
cell.EntireRow.Hidden = False
End If
If cell.Value > "45" Then
cell.EntireRow.Hidden = True
End If
Next cell
End Sub


thanks in advance

 

[JayHo]

I think i find where the problem occur as the value included '' Shall be Inspected ASAP" in row S18, so the code would stop running at row 18 and occur the type mismatch. Can i add another condition for the code to run when encouter the '' Shall be Inspected ASAP" value?

 

[eiloken]

I think i find where the problem occur as the value included '' Shall be Inspected ASAP" in row S18, so the code would stop running at row 18 and occur the type mismatch. Can i add another condition for the code to run when encouter the '' Shall be Inspected ASAP" value?

try:

Sub Hidedatemorethan45days()
    Dim cell As Range
    For Each cell In Range("S6:S67")
        If IsDate(cell.Value) Or IsNumeric(cell.Value) Then
            If cell.Value - Date >= 45 Then
                cell.EntireRow.Hidden = True
            Else
                cell.EntireRow.Hidden = False
            End If
        End If
    Next cell
End Sub

 

[JayHo]

Eiloken,

It work perfect. thanks for your help. Much appreciated

Jay