VBA to Change Value of Cell Based on Text in Another Row

[FrenchCelt]

Hello,

I'm trying to code a macro to look for the text 4STOP in Row 4. If so, then the value of the cell in Row 15 in the same column needs to change to the value in Row 47. Then it needs to loop through every column in the dataset (dynamic range). I was looking at some code some others have helped me out with that does similar things (look for the same basic text and then execute an action), but I couldn't figure out a way to adapt from either.

Any help would be greatly appreciated.

 

[rpaulson]

Sub Change_Value()
For c = 1 To Cells(4, Columns.Count).End(xlToLeft).Column
If Cells(4, c) = "4STOP" Then Cells(15, c) = Cells(47, c)
Next c
End Sub

 

[FrenchCelt]

That worked perfectly, thank you!