Colour Cells basis current date

[VJOSHI]

New to macros..I am trying to colour format cells using macro as manual formatting it's increasing the file size.

Want to see if can build a macro that colours the cell range basis of value obtained from current date and format the list of data with respective colours till the last row data is filled.

Column E data is 'date' which I am using to obtain value in cells H:I:J:K BY Adding days I have to complete an activity. I want to use current date to determine when activity is pending for action (though the dates show this but need to highlight as my staff tend to miss on that).


If value in column H:K is <= than today() colour = Red
If value in column H:K is = today()+1day colour = Yellow
If value in column H:K is = today()+2days colour = Green

Not sure how to go abt that.

 

[Arithos]

I can give you a pinpointer.

Just loop the code below,

If Range("H1") <= Date Then
     Range("H1").Interior.ColorIndex = vbRed
End If

or you could also use Conditional formatting.

EDIT:
This link should show you how to conditional format

 

[pedro-egoli]

Highlight the range .
Go to Conditional Formatting and enter as follows
1st condition Formula is =H1=Today() Format Red
2nd condition Formula is =H1=Today()+1 Format Yellow
3rd condition Formula is =H1=Today()+2 Format Green

Be aware that each day the Today function will recognise today’s date as TODAY ; it is not fixed.

Pedro

 

[Arithos]

Highlight the range .
Go to Conditional Formatting and enter as follows
1st condition Formula is =H1=Today() Format Red
2nd condition Formula is =H1=Today()+1 Format Yellow
3rd condition Formula is =H1=Today()+2 Format Green

Be aware that each day the Today function will recognise today’s date as TODAY ; it is not fixed.

Pedro

I would think that is what he wants. the dates beeing checked will be static, the checking will be dynamic.