A macro problem, find and replace [Closed]

Report
-
Posts
9
Registration date
Saturday March 28, 2009
Status
Member
Last seen
June 18, 2009
-
Hello,
I have a macro which contains the following procedure:

Range("D210:D219,Z210:AA219").Select
Range("Z210").Activate
Application.CutCopyMode = False
Selection.Copy
Windows("test.xls").Activate
Range("D11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True

Range("D286:D295,Z286:AA295").Select
Range("Z286").Activate
Application.CutCopyMode = False
Selection.Copy
Windows("test.xls").Activate
Range("D17").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True



How can I use the Find and replace function in visual basic editor so that in the first line (e.g. Range("D210:D219,Z210:AA219").Select ) the letter "D" can be replaced with "B"
without changing the no. and the other text which contains a letter "D". I would like the procedure to be as follows after replacement:

After modification:

Range("B210:B219,Z210:AA219").Select
Range("Z210").Activate
Application.CutCopyMode = False
Selection.Copy
Windows("test.xls").Activate
Range("D11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True

Range("B286:B295,Z286:AA295").Select
Range("Z286").Activate
Application.CutCopyMode = False
Selection.Copy
Windows("test.xls").Activate
Range("D17").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True

Thanks a lot
Vincent

1 reply

Posts
9
Registration date
Saturday March 28, 2009
Status
Member
Last seen
June 18, 2009
2

Subscribe To Our Newsletter!

The Best of CCM in Your Inbox

Subscribe To Our Newsletter!