| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Select Case with Text
I am using
Select.Case.Offset(0,2) Case 70 and it works great. Now I have to select text in the same row so I have Case BE It is not picking it up but it is not giving me an error. Is it because it is not numeric? I have tried "BE" and Case is BE nothing seems to work. Any suggestions would be greatly appreciated! Thanks! Marie |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Select Case with Text
post your code
-- Don Guillett SalesAid Software "Marie" wrote in message ... I am using Select.Case.Offset(0,2) Case 70 and it works great. Now I have to select text in the same row so I have Case BE It is not picking it up but it is not giving me an error. Is it because it is not numeric? I have tried "BE" and Case is BE nothing seems to work. Any suggestions would be greatly appreciated! Thanks! Marie |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Select Case with Text
Doesn't seem to work with the last case BE
For Each rCell In Range("List") With rCell If .Offset(0, 22).Text Like "F[OR]" Then If .Offset(0, 5).Value 0 And .Offset(0, 5) < 150 Then Select Case .Offset(0, 7) Case 70 FO70150Del60 = FO70150Del60 - (.Offset(0, 18).Value = 1) Case 71 FO71150Del60 = FO71150Del60 - (.Offset(0, 18).Value = 1) Case 71 FO71150Del60 = FO71150Del60 - (.Offset(0, 18).Value = 1) Case 72 FO72150Del60 = FO72150Del60 - (.Offset(0, 18).Value = 1) Case 73 FO73150Del60 = FO73150Del60 - (.Offset(0, 18).Value = 1) Case 74 FO74150Del60 = FO74150Del60 - (.Offset(0, 18).Value = 1) Case 75 FO75150Del60 = FO75150Del60 - (.Offset(0, 18).Value = 1) Case 76 FO76150Del60 = FO76150Del60 - (.Offset(0, 18).Value = 1) Case 77 FO77150Del60 = FO77150Del60 - (.Offset(0, 18).Value = 1) Case 78 FO78150Del60 = FO78150Del60 - (.Offset(0, 18).Value = 1) Case 79 FO79150Del60 = FO79150Del60 - (.Offset(0, 18).Value = 1) Case 80 FO80150Del60 = FO80150Del60 - (.Offset(0, 18).Value = 1) Case 81 FO81150Del60 = FO81150Del60 - (.Offset(0, 18).Value = 1) Case 82 FO82150Del60 = FO82150Del60 - (.Offset(0, 18).Value = 1) Case 83 FO83150Del60 = FO83150Del60 - (.Offset(0, 18).Value = 1) Case 84 FO84150Del60 = FO84150Del60 - (.Offset(0, 18).Value = 1) Case 87 FO87150Del60 = FO87150Del60 - (.Offset(0, 18).Value = 1) Case 88 FO88150Del60 = FO88150Del60 - (.Offset(0, 18).Value = 1) Case 89 FO89150Del60 = FO89150Del60 - (.Offset(0, 18).Value = 1) Case Is = "BE" FO71150Del60 = FO71150Del60 - (.Offset(0, 18).Value = 1) End Select End If End If End With "Don Guillett" wrote: post your code -- Don Guillett SalesAid Software "Marie" wrote in message ... I am using Select.Case.Offset(0,2) Case 70 and it works great. Now I have to select text in the same row so I have Case BE It is not picking it up but it is not giving me an error. Is it because it is not numeric? I have tried "BE" and Case is BE nothing seems to work. Any suggestions would be greatly appreciated! Thanks! Marie |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Select Case with Text
Stupid mistake, The last line refers to FO71 instead of FOBE. Thanks for the
help and sorry for wasting your time! When I changed it the problem was solved. Marie "Marie" wrote: Doesn't seem to work with the last case BE For Each rCell In Range("List") With rCell If .Offset(0, 22).Text Like "F[OR]" Then If .Offset(0, 5).Value 0 And .Offset(0, 5) < 150 Then Select Case .Offset(0, 7) Case 70 FO70150Del60 = FO70150Del60 - (.Offset(0, 18).Value = 1) Case 71 FO71150Del60 = FO71150Del60 - (.Offset(0, 18).Value = 1) Case 71 FO71150Del60 = FO71150Del60 - (.Offset(0, 18).Value = 1) Case 72 FO72150Del60 = FO72150Del60 - (.Offset(0, 18).Value = 1) Case 73 FO73150Del60 = FO73150Del60 - (.Offset(0, 18).Value = 1) Case 74 FO74150Del60 = FO74150Del60 - (.Offset(0, 18).Value = 1) Case 75 FO75150Del60 = FO75150Del60 - (.Offset(0, 18).Value = 1) Case 76 FO76150Del60 = FO76150Del60 - (.Offset(0, 18).Value = 1) Case 77 FO77150Del60 = FO77150Del60 - (.Offset(0, 18).Value = 1) Case 78 FO78150Del60 = FO78150Del60 - (.Offset(0, 18).Value = 1) Case 79 FO79150Del60 = FO79150Del60 - (.Offset(0, 18).Value = 1) Case 80 FO80150Del60 = FO80150Del60 - (.Offset(0, 18).Value = 1) Case 81 FO81150Del60 = FO81150Del60 - (.Offset(0, 18).Value = 1) Case 82 FO82150Del60 = FO82150Del60 - (.Offset(0, 18).Value = 1) Case 83 FO83150Del60 = FO83150Del60 - (.Offset(0, 18).Value = 1) Case 84 FO84150Del60 = FO84150Del60 - (.Offset(0, 18).Value = 1) Case 87 FO87150Del60 = FO87150Del60 - (.Offset(0, 18).Value = 1) Case 88 FO88150Del60 = FO88150Del60 - (.Offset(0, 18).Value = 1) Case 89 FO89150Del60 = FO89150Del60 - (.Offset(0, 18).Value = 1) Case Is = "BE" FO71150Del60 = FO71150Del60 - (.Offset(0, 18).Value = 1) End Select End If End If End With "Don Guillett" wrote: post your code -- Don Guillett SalesAid Software "Marie" wrote in message ... I am using Select.Case.Offset(0,2) Case 70 and it works great. Now I have to select text in the same row so I have Case BE It is not picking it up but it is not giving me an error. Is it because it is not numeric? I have tried "BE" and Case is BE nothing seems to work. Any suggestions would be greatly appreciated! Thanks! Marie |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Case without Select Case error problem | Excel Discussion (Misc queries) | |||
| Changing multiple cell text from lower case to upper case | Excel Discussion (Misc queries) | |||
| Change the text from lower case to upper case in an Excel work boo | Excel Discussion (Misc queries) | |||
| Select Case from Text Box Input | Excel Programming | |||
| Select Case from Text Box Input | Excel Programming | |||
Hybrid Mode
