Microsoft Office Forums - View Single Post

macropod · 04-07-2014, 10:19 PM

To output the discount value in column O -
After:

Code:

      With .Range("K6:K" & LRow)
        .ClearContents
        .Font.ColorIndex = xlColorIndexAutomatic
      End With

insert:

Code:

      With .Range("O6:O" & LRow)
        .ClearContents
        .Font.ColorIndex = xlColorIndexAutomatic
      End With

and change:

Code:

            If Trim(Split(StrData, "$")(UBound(Split(StrData, "$")))) <> Trim(Split(StrData, "$")(1)) Then .Font.Color = vbRed

to:

Code:

            If Trim(Split(StrData, "$")(UBound(Split(StrData, "$")))) <> Trim(Split(StrData, "$")(1)) Then
              .Font.Color = vbRed
              .Offset(0, 4).Value = Trim(Split(StrData, "$")(UBound(Split(StrData, "$")))) - Trim(Split(StrData, "$")(1))
            End If

As for the comparisons, you could simply do a sort of the data by brand & retail price, without needing to create any new sheets.