Forum Discussion

Iron Contributor

Jun 12, 2021

Solved

Question related to loops

Hello Everyone, I have created code which those value greater than 10, then it highlight red in colour. It works in 1st column, but not jump to 2nd column to highlight. like - And Here ...

FunWithLoop.xlsm19 KB

Macros and VBA

HansVogelaar

Jun 12, 2021

Excel

Try this:

Public Sub FunWithLoop()
    Dim cel As Range
    Application.ScreenUpdating = False
    For Each cel In ActiveSheet.UsedRange
        If IsNumeric(cel.Value) Then
            If cel.Value > 10 Then
               cel.Interior.Color = vbRed
            End If
        End If
    Next cel
    Application.ScreenUpdating = True
End Sub

P.S. You can also use Conditional Formatting to highlight cells with a value greater than 10.

HansVogelaar

MVP

Jun 12, 2021

Excel

Try this:

Public Sub FunWithLoop()
    Dim cel As Range
    Application.ScreenUpdating = False
    For Each cel In ActiveSheet.UsedRange
        If IsNumeric(cel.Value) Then
            If cel.Value > 10 Then
               cel.Interior.Color = vbRed
            End If
        End If
    Next cel
    Application.ScreenUpdating = True
End Sub

P.S. You can also use Conditional Formatting to highlight cells with a value greater than 10.

Excel

Iron Contributor

Jun 12, 2021

HansVogelaar

Sir, Can we write with the help of ActiveCell.Offset which i have written the code??

If yes,

then what should i write??

HansVogelaar
MVP
Jun 12, 2021
Excel

Selecting cells in a macro is very inefficient! You should avoid it.
- Excel
  Iron Contributor
  Jun 12, 2021
  Thank you so much sir😊😊