color cells if two conditions met with vba

[youngbella]

Hi, basically I have this table range.

I want to color the cells that are "0" but have length and serial number. but do nothing if don't have both conditions.

i tried but it turns out all cells with "0" is colored even the conditions not met.

I'm new with VBA. Still trying. glad if you could help.

View attachment 23426

Sub findzeroandcolor()

Dim findme As Range

For Each findme In Range("A:I")
    If (findme = "0") And (findme.Offset(, -1) <> "") Then
    findme.Interior.ColorIndex = 6
    
    End If
    
Next findme
    
    
End Sub

 

[Yongle]

how many cells are to be coloured when a match is found
- only the cell?
- the whole row?
which column contains cells to test for value = 0?
which column contains cells to test for serial number?
which column contains cells to test for length?

 

[youngbella]

how many cells are to be coloured when a match is found
- only the cell?
- the whole row?
which column contains cells to test for value = 0?
which column contains cells to test for serial number?
which column contains cells to test for length?

hi, Yongle.

I have upload the picture

here.

 

[youngbella]

hi, Yongle.

I have upload the picture View attachment 23474here.

I want to color the status cells only with "0" when
1) have serial number
2) have length

do nothing when dont have serial number and length

thank you.

 

[Yongle]

Try this

Sub ColourZero()
    Dim cel As Range, test As String, c As Long
    For Each cel In ActiveSheet.Range("A1").CurrentRegion.Resize(, 1)
        For c = 2 To 8 Step 3
            With cel.Offset(, c)
                test = .Offset(, -2) & "|" & .Offset(, -1) & "|" & .Text
                If test = "||0" Then .Interior.Color = vbBlue Else .Interior.Color = xlNone
            End With
        Next c
    Next cel
End Sub