Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Compile error
I am getting acompile error end with without with on this code.
With Me.Range("B190") If .Value 0 Then ActiveSheet.Tab.ColorIndex = 6 Else If .Value < 0 Then ActiveSheet.Tab.ColorIndex = 3 Else ActiveSheet.Tab.ColorIndex = 0 End If End With |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Compile error
right click sheet tabview codeinsert this. Now when you change the cell
the tab color will automatically change. This even accounts for someone touching the "dreaded space bar" Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address < Me.Range("b190").Address Then Exit Sub If Len(Application.Trim(Target)) < 1 Then Application.EnableEvents = False Target.ClearContents Application.EnableEvents = True End If Select Case Target Case Is 0: c = 6 Case Is < 0: c = 3 Case Else: c = xlColorIndexNone End Select Me.Tab.ColorIndex = c End Sub -- Don Guillett Microsoft MVP Excel SalesAid Software "Learning VBA" wrote in message ... I am getting acompile error end with without with on this code. With Me.Range("B190") If .Value 0 Then ActiveSheet.Tab.ColorIndex = 6 Else If .Value < 0 Then ActiveSheet.Tab.ColorIndex = 3 Else ActiveSheet.Tab.ColorIndex = 0 End If End With |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Solver - error - Compile Error | Excel Discussion (Misc queries) | |||
help with this error-Compile error: cant find project or library | Excel Discussion (Misc queries) | |||
VBA Error Message "Compile Error...." | Excel Discussion (Misc queries) | |||
How do I get rid of "Compile error in hidden module" error message | Excel Discussion (Misc queries) |