Auto coloring in the same row

[HELIWTIS]

Hi,

I want your help.
I try to make a VBA macro that it will be searching TRD from column B and auto coloring in the same row on column A the corresponding number.

 

[davesexcel]

Sub ColorIt()
    Dim LstRw As Long
    Dim arr As Variant, rPw As Long
    Dim rw As Long, cL As Long
    
    LstRw = Sheet1.Cells(Rows.Count, "B").End(xlUp).Row
    arr = Sheet1.Range("A1:B" & LstRw)
    rPw = 2
    For rw = 2 To UBound(arr)
        If arr(rw, 2) = "TRD" Then
            For cL = 1 To UBound(arr, 2)
                Cells(rw, 1).Interior.Color = vbYellow
            Next
            rPw = rPw + 1
        End If
    Next

End Sub

 

[caluluaiol]

Hi,
Please try this

Sub ColorA()

    Columns("A:A").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$B1=""TRD"""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
End Sub