if column value 0 highlight the value.

[dilipgr]

hi friends

if the value of column C value = 0 then highlight the cell value. I'm using the below code but unable to get the correct value.

Range("c3:c95").Select
If Range("c3:c95").Value = "0" Then
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0

End With
End If

my spreedsheet:-

SL NO	StnCode	INBOUND
1	AKM	458
2	APK	2043
3	ARR	0
4	ART	19420
5	ASD	733
6	ATR	0
7	BTU	733
8	CDM	0
9	CGL	627
10	CJB	1817

<tbody>
</tbody>

regards.

Dilipkumar.V

 

[Michael M]

try

Sub MM1()
For Each c In Range("c3:c95")
If c.Value = "0" Then
With c.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
End With
End If
Next c
End Sub

 

[JackDanIce]

Alternatively, try:

Sub Highlight_0()

Dim rng As Range

Application.ScreenUpdating = False

With activeworksheet

    If .AutoFilterMode Then .AutoFilterMode = False
    Set rng = .Range("C3:C95")
    With rng
        .Interior.Color = xlNone
        .AutoFilter
        .AutoFilter field:=1, Criteria1:=0
        .SpecialCells(xlCellTypeVisible).Interior.Color = RGB(255, 0, 0)
    End With
    .AutoFilterMode = False
    Set rng = Nothing
    
End With

Application.ScreenUpdating = True

End Sub

 

[dilipgr]

Thanks Mr. Michel

Its working nice.