Check this one: http://www.vbforums.com/archive/index.php/t-483965.html
On Aug 25, 3:22 pm, Anish Shrivastava <anish....@gmail.com> wrote: > Hello Group, > > I need your help in writing a code which works for FIND and REPLACE. I have > the values aligned in attached file and I just want that macro should pick > the value from Column B and find it on the sheet. Replace with the > correspondet value available in column C. And the loop goes on for each > value (all 256) untill macro reaches to last value. > > *Hi Dave/Hemant,* > ** > You helped me in my previous similar query where I used WHILE/WEND and had > problems with end ifs... but in this case I am not getting through.. Since > it has to pick the each value, find it on the sheet and replace it. I need > your help in this. I tried writing something as below which works but I will > have to write more than 100 lines of code, which I blv can be reduced to max > 20 lines. > > Sub test() > Worksheets(1).Cells.Replace What:="Š", Replacement:="S", LookAt:=xlPart, _ > SearchOrder:=xlByRows, MatchCase:=False > Worksheets(1).Cells.Replace What:="Ž", Replacement:="Z", LookAt:=xlPart, _ > SearchOrder:=xlByRows, MatchCase:=False > Worksheets(1).Cells.Replace What:="Ÿ", Replacement:="Y", LookAt:=xlPart, _ > SearchOrder:=xlByRows, MatchCase:=False > Worksheets(1).Cells.Replace What:="À", Replacement:="A", LookAt:=xlPart, _ > SearchOrder:=xlByRows, MatchCase:=False > Worksheets(1).Cells.Replace What:="Á", Replacement:="A", LookAt:=xlPart, _ > SearchOrder:=xlByRows, MatchCase:=False > Worksheets(1).Cells.Replace What:="Â", Replacement:="A", LookAt:=xlPart, _ > SearchOrder:=xlByRows, MatchCase:=False > End Sub > > I would appreciate your help in this. Please refer the attached file. > > Thanks again. > ANISh > > sample.xls > 69KViewDownload -- ---------------------------------------------------------------------------------- Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 3. Excel tutorials at http://www.excel-macros.blogspot.com 4. Learn VBA Macros at http://www.quickvba.blogspot.com 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com <><><><><><><><><><><><><><><><><><><><><><> HELP US GROW !! We reach over 7000 subscribers worldwide and receive many nice notes about the learning and support from the group.Let friends and co-workers know they can subscribe to group at http://groups.google.com/group/excel-macros/subscribe
