Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
case select and a range
Instead of listing all of the valid values, I would like
to use a range name in a case select statement. Is this possible. Following is the code I'm using without much success. "VV" is the name of the range that contains the values I want to check against. Sub find_match() Select Case cell Case ("VV") counter = counter + 0 Case Else ActiveCell.Interior.ColorIndex = 6 counter = counter + 1 End Select End Sub Thanks for the help |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
case select and a range
You won't be able to use a Select statement, but you probably can use a For
Each, depending on what you're really trying to do. Sub find_match() Dim rngT as Cell For Each rngT in Range("VV") If cell.value = rngT.value Then counter = counter + 0 Else ActiveCell.Interior.Color = 6 counter = counter + 1 End If Next rngT End Sub Hope this helps By the way, why bother incrementing the counter by 0? "JT" wrote in message ... Instead of listing all of the valid values, I would like to use a range name in a case select statement. Is this possible. Following is the code I'm using without much success. "VV" is the name of the range that contains the values I want to check against. Sub find_match() Select Case cell Case ("VV") counter = counter + 0 Case Else ActiveCell.Interior.ColorIndex = 6 counter = counter + 1 End Select End Sub Thanks for the help |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
case select and a range
Sub find_match()
counter = 0 For Each cell In Range("A1:A10") Select Case True Case Not IsError(Application.Match(cell, Range("VV"), 0)) counter = counter + 0 Case Else ActiveCell.Interior.ColorIndex = 6 counter = counter + 1 End Select Next Range("B1") = counter End Sub -- Regards, Tom Ogilvy "JT" wrote in message ... Instead of listing all of the valid values, I would like to use a range name in a case select statement. Is this possible. Following is the code I'm using without much success. "VV" is the name of the range that contains the values I want to check against. Sub find_match() Select Case cell Case ("VV") counter = counter + 0 Case Else ActiveCell.Interior.ColorIndex = 6 counter = counter + 1 End Select End Sub Thanks for the help |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Case Select | Excel Worksheet Functions | |||
Case without Select Case error problem | Excel Discussion (Misc queries) | |||
Select Case | Excel Programming | |||
Need help on Select Case | Excel Worksheet Functions | |||
select case help please | Excel Programming |