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]

Sub Find_FloorStock()

'E is the Make/Buy (B) 2 over in column G is the FloorStock Id (Y) Then change Com_Type in column F
With Range("F2", Range("E" & Rows.Count).End(xlUp).Offset(, 0))
      .Value = Evaluate(Replace("if((@=""B"")*((" & .Offset(, 2).Address & "=""Y"")),""FLST"",@)", "@", .Address))
'.Value = Evaluate(Replace("if((" & .Offset(, -1).Address & "=""B"")*(@=""Y""),""FLST"",@)", "@", .Address))


   End With

End Sub

 

[Fluff]

Why did you change the code?
If "B" is in col E & "Y" is in col F, with FLST to replace the "Y" in col F, the code I supplied should work.

 

[gheyman]

My bad Fluff, I just realized I gave you Bad data (Which is why your code probably didn't work)
Column E has the "B's"
Column G has the "Y's"
Column F is what I want to Change to "FLST"

If Column E = "B" and Column G = "Y" Then
Column G = "FLST"

Sorry Fluff, I changed the columns around on my spreadsheet and didn't account for that. Truly sorry to have wasted your time.

 

[Fluff]

Ok, how about

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

 

[gheyman]

Ok, how about

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

That worked perfectly! THANK YOU!

 

[Fluff]

You're welcome & thanks for the feedback