rajkumar
08-26-2008, 04:08 PM
Hi Experts,
I want to convert the serial no to engineer name or customer name.
currently what i do is copy paste the serial no column in another column and run the below macro
Selection.Replace What:="*3527380919*", Replacement:="VALUE POINT", Lookat:=xlPart _
, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="*3121791799*", Replacement:="SOBANA OFFSET PRINTERS", Lookat:=xlPart _
, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="*3512494969*", Replacement:="SUBHA XEROX", Lookat:=xlPart _
, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="*46969*", Replacement:="SESHASAI E FORMS PVT", Lookat:=xlPart _
, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="*1109347163*", Replacement:="SESHASAI E FORMS PVT. LTD", Lookat:=xlPart _
, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="*1109380675*", Replacement:="SESHASAI E FORMS PVT. LTD", Lookat:=xlPart _
, SearchOrder:=xlByRows, MatchCase:=False
I have file that has a customer list with products and engineer names(reference table.xls).
The reference table.xls is kept in a path C:\Data_Analysis\Reference Table.xls and will be appended with line item of new records when a new printer is installed.
my problem is whenever a new machine is installed i have to create a new macro for find and replace according to the reference table.xls.
Can any body help me with a code that can automate this.
Thanks
Raj
I want to convert the serial no to engineer name or customer name.
currently what i do is copy paste the serial no column in another column and run the below macro
Selection.Replace What:="*3527380919*", Replacement:="VALUE POINT", Lookat:=xlPart _
, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="*3121791799*", Replacement:="SOBANA OFFSET PRINTERS", Lookat:=xlPart _
, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="*3512494969*", Replacement:="SUBHA XEROX", Lookat:=xlPart _
, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="*46969*", Replacement:="SESHASAI E FORMS PVT", Lookat:=xlPart _
, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="*1109347163*", Replacement:="SESHASAI E FORMS PVT. LTD", Lookat:=xlPart _
, SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="*1109380675*", Replacement:="SESHASAI E FORMS PVT. LTD", Lookat:=xlPart _
, SearchOrder:=xlByRows, MatchCase:=False
I have file that has a customer list with products and engineer names(reference table.xls).
The reference table.xls is kept in a path C:\Data_Analysis\Reference Table.xls and will be appended with line item of new records when a new printer is installed.
my problem is whenever a new machine is installed i have to create a new macro for find and replace according to the reference table.xls.
Can any body help me with a code that can automate this.
Thanks
Raj