Home |
Search |
Today's Posts |
#3
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
"Jose Rojas" wrote in message
... Sub SF() Dim i As Long Select Case Sheets("Sheet1").Range("A1") Case Is = 1 i = 1 Case Is 1 i = 2 End Select 'Hope It Works!!! End Sub Did you mean something like this? Sub SF() Dim i As Long Select Case Sheets("Sheet1").Range("A1") Case Is = 1, 3, 5, 8, 10, 12, 13, 15, 17, 20 i = 1 Case Else i = 2 End Select End Sub -- Bob Kilmer |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Multiple Criteria & Count if Equals 0 | Excel Worksheet Functions | |||
insert row when sum of values equals 100 | Excel Discussion (Misc queries) | |||
insert row when sum of values equals 100 | Excel Discussion (Misc queries) | |||
if a:a (range) equals january and c:c equals gas then add g:g ($) | Excel Worksheet Functions | |||
custom filter does not work when selecting 'equals' X AND 'equals' | Excel Discussion (Misc queries) |