Replacing values separated by commas

[mliang87]

Hello all,

Currently I have written a macro that converts values in a cell to values mapped in another tab list.

My code is:

Sub DataFormatPR()
Dim PremiumType
Set PremiumType = Sheets("PremiumType").Range("PremiumType")
  For Each cel In PremiumType.Columns(1).Cells
        MainTemp.Replace what:=cel.Value, replacement:=cel.Offset(0, 1).Value, LookAt:=xlWhole
    Next cel
End Sub

The problem is I have TypeA, TypeB in the cell and I want it to convert to the mapped values of A, B.

How do I modify it so that it will convert the cell containing : TypeA, TypeB rather than just TypeA?

Please help!

 

[pbornemeier]

Change xlWhole to xlPart
You should also add the code in Orange or Excel will use whatever settings were used in the Find command the previous time it was used by code or by hand.

Sub DataFormatPR()
    Dim PremiumType As Range
    Dim cel As Range
    
    Set PremiumType = Sheets("PremiumType").Range("PremiumType")
    For Each cel In PremiumType.Columns(1).Cells
        MainTemp.Replace What:=cel.Value, Replacement:=cel.Offset(0, 1).Value, LookAt:=xlPart, _
            MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Next cel
End Sub