When I run this code it replaces TEXT with FALSE.
Am trying to replace TEMP with the Concatenate text from Column 2, 3, a Space " " & Column 4. (do not want the code to place this in the cell in the form of a formula, would simply like the Concatenate text in the cell. There will be several replacements required in this range. i.e TEMP 3 4 or 5 times in the range. Want to replace all.
Assistance appreciated
Sub Find_Replace2()
Dim SFind As String
Dim SReplace As String
Sheets("Sheet1").activate
SFind = "TEMP"
SReplace = FormulaR1C1 = "RC[2]&RC[3]&" "&RC[4]"
Range("A1:A500").Replace _
What:=SFind, Replacement:=SReplace, _
LookAt:=xlWhole, MatchCase:=True
End Sub
Am trying to replace TEMP with the Concatenate text from Column 2, 3, a Space " " & Column 4. (do not want the code to place this in the cell in the form of a formula, would simply like the Concatenate text in the cell. There will be several replacements required in this range. i.e TEMP 3 4 or 5 times in the range. Want to replace all.
Assistance appreciated
Sub Find_Replace2()
Dim SFind As String
Dim SReplace As String
Sheets("Sheet1").activate
SFind = "TEMP"
SReplace = FormulaR1C1 = "RC[2]&RC[3]&" "&RC[4]"
Range("A1:A500").Replace _
What:=SFind, Replacement:=SReplace, _
LookAt:=xlWhole, MatchCase:=True
End Sub