Modify VBA code

[gheyman]

I want to modify this. I no longer need it to look over 7 to see if it equals "Phantom". So I need to take that part out. Just check over 2 columns and see if its a "Y" if so change G to "FLST"
but now I need it to put the "FLST" in column F not G

THANK YOU!

Sub Find_FloorStock()
'Author: G Heyman 190221
'Update "Type" Find Floor Stock and change from B to F"

'E is the Make/Buy 2 over is the FloorStock
With Range("G5", Range("E" & Rows.Count).End(xlUp))
.Value = Evaluate(Replace("if((@=""B"")*((" & .Offset(, 7).Address & "=""Phantom"")+(" & .Offset(, 2).Address & "=""Y"")),""FLST"",@)", "@", .Address))
   End With

End Sub

 

[gheyman]

How do I get the FLST in Column G

Sub Find_FloorStock()
'Author: G Heyman 190221
'Update "Type" Find Floor Stock and change from B to F"

'E is the Make/Buy 2 over is the FloorStock
With Range("G5", Range("E" & Rows.Count).End(xlUp))
.Value = Evaluate(Replace("if((@=""B"")*((" & .Offset(, 2).Address & "=""Y"")),""FLST"",@)", "@", .Address))
   End With

End Sub

 

[Fluff]

Which columns are the "B" and "Y" in?

 

[gheyman]

The B is column E and the Y is in Column F

 

[Fluff]

now I need it to put the "FLST" in column F not G

How do I get the FLST in Column G

Which of these is correct?
Should it go in col G or F?

 

[gheyman]

The FLST should go into F

 

[Fluff]

In that case try

Sub gheyman()
    With Range("F5", Range("E" & Rows.Count).End(xlUp).Offset(, 1))
        .Value = Evaluate(Replace("if((" & .Offset(, -1).Address & "=""B"")*(@=""Y""),""FLST"",@)", "@", .Address))
    End With
End Sub

 

[gheyman]

Thank You!

 

[Fluff]

You're welcome

 

[gheyman]

Unfortunately, this is not working. It doesn't error but its not putting FLST where it should (Its not putting it anywhere)