VBA code to find/replace

[mfh1287]

I'm trying to figure out a vba code to take the contents of cell "B1" and replace it in a formula in cell "C1" and then loop to the end of the data set. Can someone help me out with this? Thanks

 

[ZAX]

I'm trying to figure out a vba code to take the contents of cell "B1" and replace it in a formula in cell "C1" and then loop to the end of the data set. Can someone help me out with this? Thanks

Here,try this code on a SAMPLE data:

Sub Find_Replace()
For Each Cell In Range("B1:B" & Cells(Rows.Count, 2).End(xlUp).Row)
    Cell.Value = Cell.Offset(0, 1).Formula
Next
End Sub

ZAX

 

[mfh1287]

This just seems to erase the data in column B... am I doing it right?

 

[ZAX]

This just seems to erase the data in column B... am I doing it right?

I don't know what do you want??
Be more specific Plz
ZAX

 

[mfh1287]

I don't know what do you want??
Be more specific Plz
ZAX

I have a formula in cell c1 that that has a part in quotes - I'm looking for a vba code that will take the contents in B1 and put it in the formula between the quotes. I can do find and replace one by one, but I have to do it over 50 times, so I'm trying to figure out a macro that would take B1 and put it in the formula in C1, then B2 into C2 and so on until the end of the data set.

Hopefully that makes more sense.

Thanks again

 

[ZAX]

I have a formula in cell c1 that that has a part in quotes - I'm looking for a vba code that will take the contents in B1 and put it in the formula between the quotes. I can do find and replace one by one, but I have to do it over 50 times, so I'm trying to figure out a macro that would take B1 and put it in the formula in C1, then B2 into C2 and so on until the end of the data set.

Hopefully that makes more sense.

Thanks again

Ha,Now I understand,here's a code that will help you:

Sub Find_Replace()
For Each Cell In Range("C1:C" & Cells(Rows.Count, 3).End(xlUp).Row)
    Cell.Formula = Left(Cell.Formula, InStr(1, Cell.Formula, """")) & Cell.Offset(0, -1).Value & Right(Cell.Formula, Len(Cell.Formula) - InStr(1, Cell.Formula, """"))
Next
End Sub

ZAX

 

[ZAX]

Hope you post the results

 

[mfh1287]

Hope you post the results

Thank you, it worked beautifully!

 

[ZAX]

Thank you, it worked beautifully!

You're welcome!