problem with find and replacing
 

I have the following code, but he replaces also the numbers which were
already replaced.
How can I prevent that he will replace the cells which were already
replaced?
Maybe I can do it with a complete number or something like that?

This is my code:
Columns("F:F").Select
Selection.Replace What:="1", Replacement:="0", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="2", Replacement:="10", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="3", Replacement:="15", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="4", Replacement:="20", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="5", Replacement:="v.a. 20",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="6", Replacement:="v.a. 25",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="7", Replacement:="v.a. 35",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="24", Replacement:="v.a. 20",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="X", Replacement:="v.a. 20",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="Y", Replacement:="v.a. 25",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="Z", Replacement:="v.a. 25",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

problem with find and replacing
 

Yes - use xlWhole instead of xlPart

btw - once you set the replace parameters, they are saved and so:

With Selection
.Replace What:="1", Replacement:="0", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False
.Replace "2", "10"
.Replace "Z", "v.a. 25"
End WIth


Regards,

Toyin.

problem with find and replacing
 

Try changing xlPart to xlWhole

--
Regards,
Tom Ogilvy


"bartman1980" wrote:

I have the following code, but he replaces also the numbers which were
already replaced.
How can I prevent that he will replace the cells which were already
replaced?
Maybe I can do it with a complete number or something like that?

This is my code:
Columns("F:F").Select
Selection.Replace What:="1", Replacement:="0", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="2", Replacement:="10", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="3", Replacement:="15", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="4", Replacement:="20", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="5", Replacement:="v.a. 20",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="6", Replacement:="v.a. 25",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="7", Replacement:="v.a. 35",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="24", Replacement:="v.a. 20",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="X", Replacement:="v.a. 20",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="Y", Replacement:="v.a. 25",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="Z", Replacement:="v.a. 25",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

problem with find and replacing
 

On 8 aug, 15:50, Tom Ogilvy
wrote:
Try changing xlPart to xlWhole

--
Regards,
Tom Ogilvy



"bartman1980" wrote:
I have the following code, but he replaces also the numbers which were
already replaced.
How can I prevent that he will replace the cells which were already
replaced?
Maybe I can do it with a complete number or something like that?

This is my code:
Columns("F:F").Select
Selection.Replace What:="1", Replacement:="0", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="2", Replacement:="10", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="3", Replacement:="15", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="4", Replacement:="20", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="5", Replacement:="v.a. 20",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="6", Replacement:="v.a. 25",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="7", Replacement:="v.a. 35",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="24", Replacement:="v.a. 20",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="X", Replacement:="v.a. 20",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="Y", Replacement:="v.a. 25",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="Z", Replacement:="v.a. 25",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False- Tekst uit oorspronkelijk bericht niet weergeven -

- Tekst uit oorspronkelijk bericht weergeven -

Thank you very much, it's working now!