Hi All,

I am trying to create a way to auto color a row if it meets a certai
criteria. The criteria is: IF the cell.value is Less than or equal t
-14 (i.e. -14, -15, -16, -17) Then color this row. Please help

The code I currently have is:

Private Sub Colour()
Dim LstFiltRow As Range
Dim LstFiltCol As Range
Dim R As Range

'Sheets(Var).Select
Range("A1").Select

Dim MyCheck

For Each R In Cells.Range("Q2:Q30")
MyCheck = R.Value = "-14"
If MyCheck = True Then
Cells.Rows(R.Row).Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End If

Next
Range("A1").Select
End Su

--
moglione
-----------------------------------------------------------------------
moglione1's Profile: http://www.excelforum.com/member.php...fo&userid=2641
View this thread: http://www.excelforum.com/showthread.php?threadid=53655

Sub FormatRows()
Dim cel As Range
Dim rng As Range

Set rng = Range("Q2:Q30")

' remove previous formats ?
rng.EntireRow.Interior.ColorIndex = xlNone

For Each cel In rng
If cel.Value <= -14 Then
cel.EntireRow.Interior.ColorIndex = 6
End If
Next

End Sub

Regards,
Peter T

"moglione1" wrote
in message ...

Hi All,

I am trying to create a way to auto color a row if it meets a certain
criteria. The criteria is: IF the cell.value is Less than or equal to
-14 (i.e. -14, -15, -16, -17) Then color this row. Please help

The code I currently have is:

Private Sub Colour()
Dim LstFiltRow As Range
Dim LstFiltCol As Range
Dim R As Range

'Sheets(Var).Select
Range("A1").Select

Dim MyCheck

For Each R In Cells.Range("Q2:Q30")
MyCheck = R.Value = "-14"
If MyCheck = True Then
Cells.Rows(R.Row).Select
With Selection.Interior
ColorIndex = 6
Pattern = xlSolid
End With
End If

Next
Range("A1").Select
End Sub


--
moglione1
------------------------------------------------------------------------
moglione1's Profile:
http://www.excelforum.com/member.php...o&userid=26414
View this thread: http://www.excelforum.com/showthread...hreadid=536558