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.
--
By persisting in your path, though you forfeit the little, you gain the
great.

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

"DavidH56" wrote:

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.
--
By persisting in your path, though you forfeit the little, you gain the
great.

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.
--
By persisting in your path, though you forfeit the little, you gain the
great.



"joel" wrote:

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

"DavidH56" wrote:

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.
--
By persisting in your path, though you forfeit the little, you gain the
great.

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---

--
Ryan---
If this information was helpful, please indicate this by clicking ''Yes''.


"DavidH56" wrote:

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.
--
By persisting in your path, though you forfeit the little, you gain the
great.



"joel" wrote:

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

"DavidH56" wrote:

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.
--
By persisting in your path, though you forfeit the little, you gain the
great.