Highlight entire row if date exceeded 3 days

[coolman]

Hi there

I am trying to use vba to check each cells in the column if the date has exceeded 3 days. If so the whole row will be highlighted red.

Here is my syntax

If Range("a:a").value < Range("a:a").value + 3 then

Range("a:a")EntireRow.Interior.ColorIndex = 8

End If

However I could not get the program to work. Are there anyone who can advice me on this?

 

[coolman]

Ok found another way to resolve the issue is using this syntax : If Range ("A"&i).Text = "" Then

I have another question is that if i want to highlight a specific range of cells such as cells in column b,c,d if the date has exceeded 3 days instead of entire row, could you advise me on what type of syntax I could use?

For this syntax line: If Range("A" & i).Value <> "" Then

It produce an error 440 message when i tried to run the program.

Is there any way to resolve the error?

 

[mandukes]

For this syntax line: If Range("A" & i).Value <> "" Then

It produce an error 440 message when i tried to run the program.

Is there any way to resolve the error?

1) Have you made any modification to the above code?

2) Which version of Excel are you using ?

I tested it on office Excel 2016, no such error appears..

You must be missing some statement while copying the code..

Try this..
Just copy the code in a new module and run to see if it works.

 

[coolman]

Im using excel 2011 mac

i have tested it on a blank module and still produce the same error message

1) Have you made any modification to the above code?

2) Which version of Excel are you using ?

I tested it on office Excel 2016, no such error appears..

You must be missing some statement while copying the code..

Try this..
Just copy the code in a new module and run to see if it works.