Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Dan
 
Posts: n/a
Default macro color change

I have an inspection report that shows my out of tolerance numbers as red. I
can't figure out how to ad to the macro to include arial black font and bold
to the code. I would like this added so when printing in black, the numbers
are easy to spot. Here is part of the macro that needs the addition


Do Until ActiveCell.Value = ""
Do Until TCount = Count
If ActiveCell.Value = 1 Then
ActiveCell.Offset(0, ISOffset).Font.ColorIndex = 1
Else
ActiveCell.Offset(0, ISOffset).Font.ColorIndex = 3
End If
TCount = TCount + 1
ActiveCell.Offset(0, 1).Activate
Loop
ActiveCell.Offset(1, (TCount * -1)).Activate
TCount = 0
Loop
Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
automatic macro update boconnell Excel Worksheet Functions 4 February 9th 05 08:10 PM
Date macro Hiking Excel Discussion (Misc queries) 9 February 3rd 05 01:40 AM
Can't get simple macro to run Abi Excel Worksheet Functions 5 January 12th 05 08:37 PM
Macro and If Statement SATB Excel Discussion (Misc queries) 2 December 3rd 04 05:46 PM
Macro Formula revision? Mark Excel Worksheet Functions 1 November 28th 04 02:43 AM


All times are GMT +1. The time now is 11:01 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"