Replace with total

J

Juan

Hello all,
I have in Column A customers that have a * and two extra
spaces.These customers that contain such thing is the
total for that customer . Example,
Column A
* Test Tech
* tech is this

Is it possible to replace the *Spacespace to Total?Exa,
Total Test Tech
Total tech is this

If I do the Find Replace, it will cause some errors
because of the * and space.
Please advise any help.
Thanks,
Juan
 
J

Jake Marx

Hi Juan,

This line of code works for me:

Worksheets("Sheet1").Columns(1).Replace "* ", "Total "

--
Regards,

Jake Marx
MS MVP - Excel
www.longhead.com

[please keep replies in the newsgroup - email address unmonitored]
 
T

Tod

You could try something like this:

Dim ChangeRange as Range
Dim Cell as Range

Set ChangeRange = ActiveSheet.Range("A1:A100")
For each Cell in ChangeRange
If Left(Cell,3) = "* " then
Cell.Value = "Total " & Trim(Right(Cell,Len(Cell)-3))
End If
Next Cell
 
N

Norman Jones

Hi Juan,

In order to replace the asterisk (*) symbol. I beleive tha you need to use
use the two symbol combination
~*
If you use the asterisk alone, it will be interpreted as a wildcard.

You can do this manually or in vba:

Sub ReplaceAsteriskSpace()
Dim cell As Range

For Each cell In Selection
cell.Replace What:="~*", Replacement:="Total", _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
MatchCase:=False
cell.Value = Application.Trim(cell.Value)
Next
End Sub
 
M

Myrna Larson

In the Find What box, type ~* followed by 2 spaces
In the Replace With box, type Total and 1 space
 
J

Jake Marx

Jake said:
This line of code works for me:

Worksheets("Sheet1").Columns(1).Replace "* ", "Total "
Click to expand...

My fault - as Myrna and Norman pointed out, you should preface the * with a
~:

Worksheets("Sheet1").Columns(1).Replace "~* ", "Total "

--
Regards,

Jake Marx
MS MVP - Excel
www.longhead.com

[please keep replies in the newsgroup - email address unmonitored]
 
J

Juan

Hello all,
sorry for late reply. Just wanted to thank all of you who
contributed help. I tested the info and works great. So
once again thanks to all of you for taking the time.

Have a greatt end of week.

Juan
-----Original Message-----
Jake said:
This line of code works for me:

Worksheets("Sheet1").Columns
Click to expand...
(1).Replace "* ", "Total "

My fault - as Myrna and Norman pointed out, you should preface the * with a
~:

Worksheets("Sheet1").Columns (1).Replace "~* ", "Total "

--
Regards,

Jake Marx
MS MVP - Excel
www.longhead.com

[please keep replies in the newsgroup - email address unmonitored]

.
Click to expand...
 
Top