macro for replacing particular text

[rd123]

hi,

I am new to vba.

i want to find a particular text say it is "HI" and replace with some other which is in the one column in excel.say it is in column A.

actually i am trying to write a macro for sending a reply mail where it includes original text as well including to,from,sent,etc..

so i want to replace few of them. can anyone please help on this code.

 

[rd123]

hi,

I am new to vba.

i want to find a particular text say it is "HI" and replace with some other which is in the one column in excel.say it is in column A.

actually i am trying to write a macro for sending a reply mail where it includes original text as well including to,from,sent,etc..

so i want to replace few of them. can anyone please help on this code.

i want to replace with the current activecell row.

.Text = " HI "
.replacement = Replace(.replacement, "HI", Cells(Application.ActiveCell.Row, 9))

 

[BarryL]

is "HI" the only text in the cell? or is there other text?

if it is the only text

Dim addr as string,addr2 as STring
addr = "A2:A" & range("A" & rows.count).End(xlup).row
addr2 ="I2:I" & range("I" & rows.count).End(xlup).row
Range(addr).Value = Evaluate("IF(" & addr & "=""HI""," & addr2 & "," & addr & ")")

this is if HI is in col A and the replacement text is in col I

 

[BarryL]

is "HI" the only text in the cell? or is there other text?

if it is the only text

Dim addr as string,addr2 as STring
addr = "A2:A" & range("A" & rows.count).End(xlup).row
addr2 ="I2:I" & range("I" & rows.count).End(xlup).row
Range(addr).Value = Evaluate("IF(" & addr & "=""HI""," & addr2 & "," & addr & ")")

this is if HI is in col A and the replacement text is in col I

and it excludes headers if you have them. If not change A2 and I2 to A1 and I1

 

[rd123]

thank you Barryl..

 

[BarryL]

you're welcome