#46
|
||||
|
||||
To output the discount value in column O -
After: Code:
With .Range("K6:K" & LRow) .ClearContents .Font.ColorIndex = xlColorIndexAutomatic End With Code:
With .Range("O6:O" & LRow) .ClearContents .Font.ColorIndex = xlColorIndexAutomatic End With Code:
If Trim(Split(StrData, "$")(UBound(Split(StrData, "$")))) <> Trim(Split(StrData, "$")(1)) Then .Font.Color = vbRed 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
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
Tags |
adobe, conversion, pdf |
|
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 |