Another Find and Replace need

[Steve K]

I've searched forum...and have not been able to find a solution. I believe
its quite simple...but beyond my capability.

I would like to search thru column B for all cell values that equals "modify".

If Found, I would like to remove the trailing "i" or "c" in Column C in same
row.
(i.e. change 51005674i to 51005674)
(or change 50004421c to 50004421)

I'd like it to search all rows in worksheet.

I appreciate any help.

Steve

 

[Jacob Skaria]

Hi Steve

Try the below which works on the active sheet

Sub Macro()
Dim varFound As Variant, strAddress As String
With ActiveSheet.Range("B:B")
Set varFound = .Find("modify", LookIn:=xlValues, Lookat:=xlWhole)
If Not varFound Is Nothing Then
strAddress = varFound.Address
Do
varFound.Offset(, 1) = Val(varFound.Offset(, 1).Text)
Set varFound = .FindNext(varFound)
Loop While Not varFound Is Nothing And _
varFound.Address <> strAddress
End If
End With
End Sub

If this post helps click Yes

 

[Steve K]

Jacob - Your the best ! It work perfectly ! Thanks much for your time and
help!!!

Steve