format code not working properly

D

DavidH56

Hi,

I ran this code but when column G is less than 0, J is the only column that
dose not highlight the font red. I would appreciate any assistance.

Sub CondfmtLateEvents()
'Simulate conditional formatting
Dim rng1, rng2, cell As Range
Set rng1 = Range(Cells(1, 7), Cells(Rows.Count, 7).End(xlUp))
Set rng2 = Range(Cells(1, 10), Cells(Rows.Count, 10).End(xlUp))
'color entire row if column G is less than 0 and column H is null
For Each cell In rng1
If cell.Value < 0 And cell.Offset(0, 1) = "" Then
cell.EntireRow.Font.ColorIndex = 3
Else
cell.EntireRow.Font.ColorIndex = xlAutomatic
End If
Next
'color font in column J it is less than 0 and column H is null
For Each cell In rng2
If cell.Value < 0 And cell.Offset(0, -3) > 0 And cell.Offset(0, -2) = ""
Then
cell.Font.ColorIndex = 3
Else
cell.Font.ColorIndex = xlAutomatic
End If
Next
End Sub

Thank you.
 
J

joel

Make sure you don't have conditional formating in column J. The conditional
formating will take precedence.
 
D

DavidH56

Thank you Joel for your quick response. I don't have conditional formatting
but I have a formula. Maybe I need to hide the formula and just show
results. I don't know.
 
R

ryguy7272

Check to see if there is event code under the sheet/tab. In the VBA, hit F8
to step through the code and see what happens on an incremental basis. You
should figure it out soon enough...

Good luck,
Ryan---
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top