PDF to Excel

macropod · #46 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.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
[Excel 2007] Building Power Point Slides from data in an Excel Table	bremen22	Excel Programming	1	08-07-2013 11:01 AM
Paste special an Excel range into Outlook as an Excel Worksheet	charlesh3	Excel Programming	3	02-04-2013 04:33 PM
Excel 2011 can't open old Excel 98 or Excel X files	FLJohnson	Excel	8	05-09-2012 11:26 PM
Excel 2007 custom ribbon not showing in Excel 2010	Paulzak	Excel	2	02-17-2012 06:35 PM
saving data in excel 2010 from excel 2003	johnkcalg	Excel	1	02-06-2012 07:33 PM