For each

[billandrew]

Evening

Is this a proper way to highlight specific ranges

Thanks



Sub HighlightIf()

Dim c As Range, r As Range, lr As Long, s As Range, q As Range

lr = Range("D" & Rows.Count).End(xlUp).Row

Set r = Range("D2:E" & lr)

For Each c In r

If c.Value > 2000 And c.Value < 200000 Then

c.Interior.ColorIndex = 4

End If

Next c

Set q = Range("F2:F" & lr)

For Each s In q

If s.Value > 180000 Then

s.Interior.ColorIndex = 6

End If

Next

 

[jproffer]

Looks right. Did you try it?

 

[billandrew]

yes, does work. wondering if it was the most efficient.

Thank You

 

[Norie]

This might be a bit more efficient.

Sub HighlightIf()
Dim c As Range, r As Range, lr As Long
    
    lr = Range("D" & Rows.Count).End(xlUp).Row
    
    Set r = Range("D2:D" & lr)
    
    For Each c In r
    
        If c.Value > 2000 And c.Value < 200000 Then
            c.Interior.ColorIndex = 4
        End If
    
        If c.Offset(, 1).Value > 2000 And c.Offset(, 1).Value < 200000 Then
            c.Interior.ColorIndex = 4
        End If
        
        If c.Offset(, 2).Value > 180000 Then
            c.Offset(, 2).Interior.ColorIndex = 6
        End If
        
    Next c

End Sub

 

[billandrew]

Thank You

Appreciate the assist.