excel vba Question - if "text in cell list" and < than date today

[awagnl]

Hello,

im pretty new to excel vba and i couldnt find any code to make it work
to hide cells that are equal to "text in cell list" and < than date today

This is the current VBA Code: (Highlighted is the non working part)

---------------------------------------------------------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)

ActiveSheet.Activate

If Not Application.Intersect(Range("B1"), Range(Target.Address)) Is Nothing Then


Select Case Target.Value

Case Is = "Dag Totaal": Rows("6:150").Rows.AutoFit

Case Is = "Week Totaal": Rows("6:150").RowHeight = 3

Case Is = "Dag Huidig" And "A"<Today : Rows("6:150").EntireRow.Hidden = True

Case Is = "": Rows("6:150").Rows.AutoFit

End Select

End If

End Sub

--------------------------------------------------------------------------------------------------------

 

[Joe4]

Welcome to the Board!

I don't think you can add conditions to the "Case Is" lines - you can only check the value being returned from the "Select Case..." line.

You might be able to do something like this for that situation instead:

Case Is = "Dag Huidig"
   If "A"< Today Then Rows("6:150").EntireRow.Hidden = True

except you would also need to define what "A" is. As you have it written, you are comparing the letter "A" to today's date.
If you are trying to look at the value in column A of the row that triggered the code to run, you could do this:

Case Is = "Dag Huidig"
   If Cells(Target.Row, "A").Value < Today Then Rows("6:150").EntireRow.Hidden = True