colour cell if the equation is zero

[white_flag]

Hello:

I have an range that will return zero values but like this =B26*G45 not luike an value (zero) the calculation will be zero. Can some one give mean code that if the result of the cell is zero then the cell to become in an different color.

I found this code on this site:

Function HasZerosOnly(ByVal Target As Range) As Boolean
    Dim c As Range
    For Each c In Target
        If Not c.Value = 0 Then Exit Function
    Next
    HasZerosOnly = True
End Function

'this is inside of the sub
If HasZerosOnly(my_range) Then my_range.Cells.Interior.Color = 36

 

[p45cal]

Surely Conditional Formatting will do this?

 

[white_flag]

yes, conditioning formating of the cells will change the colour.. but via VBA how will look like?

 

[white_flag]

p45cal, thx for the sugestion. I putted like this:

Dim Cell As Range
    
On Error Resume Next
For Each Cell In my_range
   Select Case Cell.Value
        Case vbNullString
            Cell.Interior.ColorIndex = xlNone
            Cell.Font.Bold = False
        Case "0"
            Cell.Interior.ColorIndex = 1
            Cell.Font.Bold = False
    End Select
Next

 

[white_flag]

p45cal, thx for sugestion. I putted like this:

Dim Cell As Range
    
On Error Resume Next
For Each Cell In my_range
   Select Case Cell.Value
        Case vbNullString
            Cell.Interior.ColorIndex = xlNone
            Cell.Font.Bold = False
        Case "0"
            Cell.Interior.ColorIndex = 1
            Cell.Font.Bold = False
    End Select
Next