View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Jacob Skaria Jacob Skaria is offline
external usenet poster
 
Posts: 8,520
Default Conditional Formatting a tab color

From workbook launch VBE using Alt+F11. From the treeview on the left right
click VBAProject(workbookname)'This Workbook' and hit View Code...On the
code pane paste the below code....

--Assume Replacement!E44 is having a formula...which is referred to the
other sheets...

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sheets("Replacement").Range("E44").Value 0 Then
Sheets("Replacement").Tab.ColorIndex = 4
Else
Sheets("Replacement").Tab.ColorIndex = -4142
End If
End Sub

If this post helps click Yes
---------------
Jacob Skaria


"Rhino V" wrote:

I know I'm missing something. I'm using Excel 2007 but a 2003 compatible
file for the versatility of my clients. I have a 7 sheet workbook that feeds
data into the first sheet. So as to know which sheets have been modified I'm
trying to use a sequence I found here. Under [View Code] of my tab called
"Replacements" I inserted

Sub Tab_Color()
If Sheets("Replacement").Range("E44").Value 0 Then
Sheets("Replacement").Tab.ColorIndex = 4
Else
Sheets("Replacement").Tab.ColorIndex = -4142
End If
End Sub

where E44 has a formula for the whole sheet and is the cell that will
determine if the tab should change color or not. I just want to visually see
or be clued "if there's something there" while I'm on any other tab. And for
it to default back if no calculations are done on that sheet.

Using the above sequence doesn't do anything to the tab color when E44
becomes greater than 0 in its calculation. Please help...