Home Menu

Menu


ExcelBanter » Excel Newsgroups » Excel Programming > Watch not working
Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 76
Default Watch not working
I've used this code before I thought, but not working now with a Watch
on B6 [cell]:

If Target.Address = "$B$6" Then
Application.EnableEvents = False
If Target.Value = "Project-Cost Sizing" Then
Range("B16:C19").Select
Selection.Interior.ColorIndex = 1
Range("B21:C21").Select
Selection.Interior.ColorIndex = 1
Range("B33:C33").Select
Selection.Interior.ColorIndex = 1
Range("B6").Select
Else
If Target.Value = "Project-Cost & Go" Then
Range("B16:C17").Select
Selection.Interior.ColorIndex = 1
Range("B18:C19").Select
Selection.Interior.ColorIndex = 1
Range("B20:C20").Select
Selection.Interior.ColorIndex = 1
Range("B21:C21").Select
Selection.Interior.ColorIndex = 1
Range("B33:C33").Select
Selection.Interior.ColorIndex = 1
Range("B6").Select

Else
If Target.Value = "Consulting-M&A" Then
Range("B16:C17").Select
Selection.Interior.ColorIndex = 1
Range("B18:C19").Select
Selection.Interior.ColorIndex = 1
Range("B20:C20").Select
Selection.Interior.ColorIndex = 1
Range("B21:C21").Select
Selection.Interior.ColorIndex = 1
Range("B33:C33").Select
Selection.Interior.ColorIndex = 1
Range("B6").Select
Else
If Target.Value = "Consulting-DEFINE" Then
Range("B16:C19").Select
Selection.Interior.ColorIndex = 0
Range("B33:C33").Select
Selection.Interior.ColorIndex = 0
Range("B6").Select
Else
If Target.Value = "[select from list]" Then
Range("B16:C19").Select
Selection.Interior.ColorIndex = 1
Range("B21:C21").Select
Selection.Interior.ColorIndex = 1
Range("B33:C33").Select
Selection.Interior.ColorIndex = 1
Range("B6").Select

End If
End If
End If
End If
End If
End If
Reply With QuoteReply With Quote
  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 9,101
Default Watch not working
This is the better way of writing this code. You don't need to "select" the
cells which may be causing the confusion

If Target.Address = "$B$6" Then
Application.EnableEvents = False
Select Case Target.Value
Case "Project-Cost Sizing"
Range("B16:C19").Interior.ColorIndex = 1
Range("B21:C21").Interior.ColorIndex = 1
Range("B33:C33").Interior.ColorIndex = 1


Case "Project-Cost & Go"
Range("B16:C17").Interior.ColorIndex = 1
Range("B18:C19").Interior.ColorIndex = 1
Range("B20:C20").Interior.ColorIndex = 1
Range("B21:C21").Interior.ColorIndex = 1
Range("B33:C33").Interior.ColorIndex = 1

Case "Consulting-M&A"
Range("B16:C17").Interior.ColorIndex = 1
Range("B18:C19").Interior.ColorIndex = 1
Range("B20:C20").Interior.ColorIndex = 1
Range("B21:C21").Interior.ColorIndex = 1
Range("B33:C33").Interior.ColorIndex = 1

Case "Consulting-DEFINE"
Range("B16:C19").Interior.ColorIndex = 0
Range("B33:C33").Interior.ColorIndex = 0

Case "[select from list]"
Range("B16:C19").Interior.ColorIndex = 1
Range("B21:C21").Interior.ColorIndex = 1
Range("B33:C33").Interior.ColorIndex = 1

End Select
End If


"S Himmelrich" wrote:

I've used this code before I thought, but not working now with a Watch
on B6 [cell]:

If Target.Address = "$B$6" Then
Application.EnableEvents = False
If Target.Value = "Project-Cost Sizing" Then
Range("B16:C19").Select
Selection.Interior.ColorIndex = 1
Range("B21:C21").Select
Selection.Interior.ColorIndex = 1
Range("B33:C33").Select
Selection.Interior.ColorIndex = 1
Range("B6").Select
Else
If Target.Value = "Project-Cost & Go" Then
Range("B16:C17").Select
Selection.Interior.ColorIndex = 1
Range("B18:C19").Select
Selection.Interior.ColorIndex = 1
Range("B20:C20").Select
Selection.Interior.ColorIndex = 1
Range("B21:C21").Select
Selection.Interior.ColorIndex = 1
Range("B33:C33").Select
Selection.Interior.ColorIndex = 1
Range("B6").Select

Else
If Target.Value = "Consulting-M&A" Then
Range("B16:C17").Select
Selection.Interior.ColorIndex = 1
Range("B18:C19").Select
Selection.Interior.ColorIndex = 1
Range("B20:C20").Select
Selection.Interior.ColorIndex = 1
Range("B21:C21").Select
Selection.Interior.ColorIndex = 1
Range("B33:C33").Select
Selection.Interior.ColorIndex = 1
Range("B6").Select
Else
If Target.Value = "Consulting-DEFINE" Then
Range("B16:C19").Select
Selection.Interior.ColorIndex = 0
Range("B33:C33").Select
Selection.Interior.ColorIndex = 0
Range("B6").Select
Else
If Target.Value = "[select from list]" Then
Range("B16:C19").Select
Selection.Interior.ColorIndex = 1
Range("B21:C21").Select
Selection.Interior.ColorIndex = 1
Range("B33:C33").Select
Selection.Interior.ColorIndex = 1
Range("B6").Select

End If
End If
End If
End If
End If
End If

Reply With QuoteReply With Quote
Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes
Linear Mode Linear Mode

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
Add Watch Gene Augustin Excel Discussion (Misc queries) 0 April 11th 10 04:33 PM
Watch Window not working in 2007 campingshadow Setting up and Configuration of Excel 0 August 12th 08 05:16 PM
what does watch do? jordan Excel Discussion (Misc queries) 2 April 2nd 08 07:49 PM
Watch out for ByRef parameters not working! tbone[_2_] Excel Programming 2 June 1st 07 04:52 AM
little watch Ronel Excel Programming 4 November 28th 06 08:29 AM


All times are GMT +1. The time now is 12:59 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"

 

Contact Us ExcelBanter forum home Privacy Statement