Fill cell based on cell value

[Kesbutler]

I have a number in column A and a number in column B. If column B is less
than column A, I want to fill the cell with a color. I tried conditional
formatting but it won't let me apply the formatting to all the cells in
column B at one time, I have to do each cell individually. Is there a way
(macro, formula?) that I can apply this rule to the entire column?

Thanks!

 

[Joel]

use paste special with format xlPasteFormats

Range("B1").Copy
Range("B1:B100").PasteSpecial(xlPasteFormats)

 

[Kesbutler]

Thanks. Is there a way to have it automatically shade without having to
manually run the macro?

 

[Kesbutler]

I was wondering if there was a way to have column B automatically update as
data is updated? One week it might be less than and the next it might not.

 

[Atishoo]

You could always put the macro in under an open event or change event

 

[Joel]

Use a worksheet change

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Columns("B")) Is Nothing Then
Range("B1").Copy
Target.PasteSpecial (xlPasteFormats)

End If
End Sub

 

[Kesbutler]

this sort of worked but it compared all the rows in column B with the first
row in column A instead of incrementing. I need the following. If any cellin
column B is less than the corresponding cellin column A then fill cell.
row A B
1 1 2 not shaded
2 2 1 shaded
3 5 4 shaded
4 4 5 not shaded

Thanks much!

 

[Joel]

You conditional format formula must have a dollar sign in the formula.
Remove the dollar sign in the conditional format formula in B1.