Macro to Replace content of a cell.

[jbesclapez]

Hello Mr Excel,

I have a range from A:G
I have a column in I that tells what to find in the range
I have a column in J that tells with what to replace.
Those find/replace are in front of each other so : I1 is replaced by J1, I2 is replace by J2...
The find/replace as match the full content of the cell.

I hope my description is clear enough.

Thanks for your precious help.

 

[Rick Rothstein]

Give this macro a try...

[table="width: 500"]
[tr]
	[td]Sub Replacements()
  Dim X As Long, FindReplace As Variant
  FindReplace = Range("I1", Cells(Rows.Count, "J").End(xlUp))
  For X = 1 To UBound(FindReplace)
    Columns("A:G").Replace FindReplace(X, 1), FindReplace(X, 2), xlWhole, , [B][COLOR="#FF0000"]True[/COLOR][/B], , False, False
  Next
End Sub[/td]
[/tr]
[/table]

Note: I assumed the values being searched for must be an exact match including the upper/lower case of the letters. If that guess was wrong, then change the red True highlighted above to False.

 

[jbesclapez]

Give this macro a try...

[TABLE="width: 500"]
<tbody>[TR]
[TD]Sub Replacements()
  Dim X As Long, FindReplace As Variant
  FindReplace = Range("I1", Cells(Rows.Count, "J").End(xlUp))
  For X = 1 To UBound(FindReplace)
    Columns("A:G").Replace FindReplace(X, 1), FindReplace(X, 2), xlWhole, , [B][COLOR=#FF0000]True[/COLOR][/B], , False, False
  Next
End Sub[/TD]
[/TR]
</tbody>[/TABLE]

Note: I assumed the values being searched for must be an exact match including the upper/lower case of the letters. If that guess was wrong, then change the red True highlighted above to False.

Hello Rick,

What you did is perfect. Thanks a lot.
I am always amazed with the apparent simplicity of your work. You manage to make a difficult thing look simple in few lines.
Thanks again Rick, I wish you a great day