loop replacing certain text in multiple columns

[daveyc18]

For Count = Range("a" & Rows.Count).End(xlUp).Row To 1 Step -1


If Range("a" & Count) = "STIM" And Range("b" & Count) = "U$" And Range("c" & Count) = "053" Then 

Range("a" & Count).Value = "STIH" And Range("b" & Count).Value = "U$" And Range("c" & Count).Value = "981"


Next

think it said type mismatch...clearly the code is wrong and im lookign for a solution pls

 

[Joe4]

You can check for multiple conditions in one line, but when setting multiple values, they must be on different lines (and you need an End If), i.e.

For Count = Range("a" & Rows.Count).End(xlUp).Row To 1 Step -1

    If Range("a" & Count) = "STIM" And Range("b" & Count) = "U$" And Range("c" & Count) = "053" Then 
        Range("a" & Count).Value = "STIH" 
        Range("b" & Count).Value = "U$" 
        Range("c" & Count).Value = "981"
    End If

Next