If And Now formatting macros

Hey Guys,

I am trying to write a macro That would evaluate the following and make a conditional formatting change:
If cell c2 = cell c1(which contains the now function) and cell b2 = cell c2 then change cell color to (whatever)

also i'm trying to write a macro to change to a certain color when there is nothing in two cells:
if cell a2 = blank and cell d2 = blank then make them pink.

oh and naturally these would apply to a range of cells.

I appreciate any help.
Thanks,
Ritz

For the first scenario, I am not entirely clear on your intent. Which cell do you want to format? Also, are you sure Now is the function you want to use? If that is the case, it will only change the format if it is run at the exact second of the other 2 cells, since Now is not just the date. If you are looking for just the date to be the same, then I would change the function to Today.

For the second, I assume you only want the 2 cells to be formatted if they are both blank? If so:

If IsEmpty(Range("A2")) And IsEmpty(Range("D2")) Then
    Range("A2").Interior.ColorIndex = 38
    Range("D2").Interior.ColorIndex = 38
End If

Jason

Thanks Jason that makes sense.

In the first situation, Ultimately it is cell b2 whose color I am ultimately trying to change.

Thanks a lot.
-ritz

It would be set up in pretty much the same way, but it may change, depending on how you loop it for your actual range:

If Range("B2") = Range("C2") And Range("C2") = Range("C1") Then
    Range("B2").Interior.ColorIndex = (whatever)
End If

HTH

Jason

cool. thanks Jason.
I'll give it a shot.

No problem.