VBA Solution Find and Replace

[sachavez]

If cell in column A contains x, and cell in column E contains y, change text in column E to abcd.

Example, if cell in Column A contains "LOSANGELE", and cell in column E is "IY", then change "IY" to "abcd".

Thanks in advance

 

[Fluff]

How about

Sub sachavez()
   Dim Cl As Range
   Dim St1 As String, St2 As String
   
   St1 = "AL"
   St2 = "IY"
   For Each Cl In Range("A2", Range("A" & Rows.Count).End(xlUp))
      If InStr(1, Cl, St1, 1) > 0 And InStr(1, Cl.Offset(, 4), St2, 1) > 0 Then
         Cl.Offset(, 4) = "abcd"
      End If
   Next Cl
End Sub

 

[Fluff]

Better yet

Sub sachavez()
   With Range("A1:E1")
      .AutoFilter 1, "*AL*"
      .AutoFilter 5, "*IY*"
      .Parent.AutoFilter.Range.Columns(5).SpecialCells(xlVisible).Value = "abcd"
   End With
End Sub

 

[sachavez]

Went with this one first, and it's genius! Thank you very much for the help!

Better yet

Sub sachavez()
   With Range("A1:E1")
      .AutoFilter 1, "*AL*"
      .AutoFilter 5, "*IY*"
      .Parent.AutoFilter.Range.Columns(5).SpecialCells(xlVisible).Value = "abcd"
   End With
End Sub

 

[Fluff]

You're welcome & thanks for the feedback