Select Case with Text

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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
 
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
 
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 said:
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 said:
post your code
 
Hey, you are the guru now. You solved your own problem. Isn't this list
great.

--
Don Guillett
SalesAid Software
(e-mail address removed)
Marie said:
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 said:
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 said:
post your code

--
Don Guillett
SalesAid Software
(e-mail address removed)
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
 
Back
Top