Forum Discussion

Excel's avatar
Excel
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 is a code - 

 

 

What should i write in VBA code?

 

Please help..??

 

Here is a attach file..

 

Macros and VBA
  • HansVogelaar's avatar
    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.

4 Replies

  • HansVogelaar's avatar
    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's avatar
      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??

Resources