Find minimum value for each row based on selected columns and highlight the lowest value

[weijianhk]

I would like to seek some help on the problem that I'm facing. I'm trying to highlight the lowest value in the sheet for each row based on selected columns, i.e. iot1, iot2, iot3. If you see the before and after image below, I would like to get some assistance on how to highlight the lowest (minimum) value. Thank you very much, any assistance is much appreciated!

Before:

After:

 

[Rick Rothstein]

I would like to seek some help on the problem that I'm facing. I'm trying to highlight the lowest value in the sheet for each row based on selected columns, i.e. iot1, iot2, iot3. If you see the before and after image below, I would like to get some assistance on how to highlight the lowest (minimum) value. Thank you very much, any assistance is much appreciated!

Before:

After:

You cannot post images that reside on your local hard drives.

 

[weijianhk]

You cannot post images that reside on your local hard drives.

Hi Rick,
Noted with thanks, sorry about it.

Have updated my post here.
I would like to seek some help on the problem that I'm facing. I'm trying to highlight the lowest value in the sheet for each row based on selected columns, i.e. iot1, iot2, iot3. If you see the before and after image below, I would like to get some assistance on how to highlight the lowest (minimum) value. Thank you very much, any assistance is much appreciated!


Before
https://ibb.co/c27kmd


After
https://ibb.co/ego2XJ

 

[Rick Rothstein]

Without the benefit of being able to see your pictures, I guessed at the following possible macro solution for you to try...

Sub HighlightLowNumbersPerRowForSelectedColumns()
  Dim R As Long, LastRow As Long, Min As Double, Cell As Range
  LastRow = Cells(Rows.Count, "A").End(xlUp).Row
  For R = 1 To LastRow
    Min = Application.Min(Intersect(Selection, Rows(R)))
    For Each Cell In Intersect(Selection, Rows(R))
      If Cell.Value = Min Then Cell.Interior.Color = vbYellow
    Next
  Next
End Sub

 

[weijianhk]

Without the benefit of being able to see your pictures, I guessed at the following possible macro solution for you to try...

Sub HighlightLowNumbersPerRowForSelectedColumns()
  Dim R As Long, LastRow As Long, Min As Double, Cell As Range
  LastRow = Cells(Rows.Count, "A").End(xlUp).Row
  For R = 1 To LastRow
    Min = Application.Min(Intersect(Selection, Rows(R)))
    For Each Cell In Intersect(Selection, Rows(R))
      If Cell.Value = Min Then Cell.Interior.Color = vbYellow
    Next
  Next
End Sub

Hi Rick,
Many thanks! I have inserted your code and it works like a charm but it also highlights when the cells are null. Possible to prevent the cell highlight for null values?
Thanks again!

 

[Rick Rothstein]

Hi Rick,
Many thanks! I have inserted your code and it works like a charm but it also highlights when the cells are null. Possible to prevent the cell highlight for null values?

It does not do that for me... blank cells remain unhighlighted. I am using XL2010 if that might make a difference (although I don't think it should).

 

[weijianhk]

It does not do that for me... blank cells remain unhighlighted. I am using XL2010 if that might make a difference (although I don't think it should).

No worries, I just managed to fix it by including "If Not IsEmpty(Cell.Value)"
I'm all good now!

Thanks once again master!!!