| 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
You miss a 'End If' statement
With Me.Range("B190") If .Value 0 Then ActiveSheet.Tab.ColorIndex = 6 Else If .Value < 0 Then ActiveSheet.Tab.ColorIndex = 3 End If ' <===== Else ActiveSheet.Tab.ColorIndex = 0 End If End With Regards, Per "Learning VBA" skrev i meddelelsen ... 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 |
|
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Compile error
Maybe...
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 if End With Learning VBA wrote: 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 -- Dave Peterson |
|
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Compile error
Thank you Dave
That appears to have done what I want it to. "Dave Peterson" wrote in message ... Maybe... 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 if End With Learning VBA wrote: 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 -- Dave Peterson |
| 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) | |||
Linear Mode
