Color entire row depending on value in a column

Greetings! I'm hoping someone can help me with this logic for my macro.

I have expiration dates located in Column N and need to color the entire row depending on what the expiration date is.

Expiration date is >90 days from today = Green
Expiration date is <=90 days from today =Yellow

The biggest confusion for me is the filtering criteria- how can I filter for greater than 90 days from today?

You can use (e.g.): $N2>Today()+90

It sounds like conditional formatting might be a better fit than a macro, though.

Thanks, Cantosh but I need to use a macro for this piece.

Maybe:

Sub Sgligorizz()
Dim x As Date
x = Date + 90
With ActiveSheet
.Range("N1:N" & .Range("N" & Rows.Count).End(3).row).AutoFilter 1, ">" & x
.Range("N2:N" & .Range("N" & Rows.Count).End(3).row).SpecialCells(12).EntireRow.Interior.ColorIndex = 4
.AutoFilterMode = False
.Range("N1:N" & .Range("N" & Rows.Count).End(3).row).AutoFilter 1, "=" & x, xlOr, "<" & x
.Range("N2:N" & .Range("N" & Rows.Count).End(3).row).SpecialCells(12).EntireRow.Interior.ColorIndex = 6
.AutoFilterMode = False
End With
End Sub

Thanks, John!! Your code didn't completely work, but it gave me the guidance I needed. Below code is working perfectly, for anyone interested.

Thanks again!

Dim x As Date
x = Date + 90
With ActiveSheet
.Range("A1:BK1").AutoFilter Field:=14, Criteria1:=">" & x
.Range("N2:N" & .Range("N" & Rows.Count).End(3).Row).SpecialCells(12).EntireRow.Interior.ColorIndex = 4
.AutoFilterMode = False
.Range("A1:BK1").AutoFilter Field:=14, Criteria1:="=" & x, Operator:=xlOr, Criteria2:="<" & x
.Range("N2:N" & .Range("N" & Rows.Count).End(3).Row).SpecialCells(12).EntireRow.Interior.ColorIndex = 6
.AutoFilterMode = False
End With

You're welcome. Glad I could help.

So I tried the macro below on a new data set and it looks like if the filter does not include data the header row is colored.

Please see my attachment. Any help/guidance would be greatly appreciated. First tab shows what the data is like post-macro and second tab is the ideal outcome. I believe it may have something to do with the portion End(3)?

Sub Colorrowbydate()
Dim x As Date
x = Date + 90
With ActiveSheet
'If expiration date is equal to or less than 90 days from today's date then Yellow
.Range("A1:BK1").AutoFilter Field:=14, Criteria1:="<" & x
.Range("N2:N" & .Range("N" & Rows.Count).End(3).Row).EntireRow.Interior.Color = RGB(255, 255, 204)
.AutoFilterMode = False
'If expiration date is less than today's date then Red
.Range("A1:BK1").AutoFilter Field:=14, Criteria1:="<" & Date
.Range("N2:N" & .Range("N" & Rows.Count).End(3).Row).SpecialCells(12).EntireRow.Interior.Color = RGB(230, 184, 183)
.AutoFilterMode = False
'If expiration data is greater than 90 days from today's date then Green
.Range("A1:BK1").AutoFilter Field:=14, Criteria1:=">" & x
.Range("N2:N" & .Range("N" & Rows.Count).End(3).Row).SpecialCells(12).EntireRow.Interior.Color = RGB(213, 226, 184)
.AutoFilterMode = False
End With
End Sub

Try:

Sub Colorrowbydate()
Dim x As Date
x = Date + 90
With ActiveSheet
'If expiration date is equal to or less than 90 days from today's date then Yellow
On error resume next
.Range("A1:BK1").AutoFilter Field:=14, Criteria1:="<" & x
.Range("N2:N" & .Range("N" & Rows.Count).End(3).Row).SpecialCells(12).EntireRow.Interior.Color = RGB(255, 255, 204)
.AutoFilterMode = False
'If expiration date is less than today's date then Red
.Range("A1:BK1").AutoFilter Field:=14, Criteria1:="<" & Date
.Range("N2:N" & .Range("N" & Rows.Count).End(3).Row).SpecialCells(12).EntireRow.Interior.Color = RGB(230, 184, 183)
.AutoFilterMode = False
'If expiration data is greater than 90 days from today's date then Green
.Range("A1:BK1").AutoFilter Field:=14, Criteria1:=">" & x
.Range("N2:N" & .Range("N" & Rows.Count).End(3).Row).SpecialCells(12).EntireRow.Interior.Color = RGB(213, 226, 184)
On error goto 0
.AutoFilterMode = False
End With
End Sub

Thanks, but that didn't work for me. I got the same result as the initial macro with the header row highlighted.

For anyone interested, here's the piece that was missing: I forgot to include If condition. If there was nothing filtered to move to the next statement.