Having problems getting a "Select Case" function to work properly

[jameslytle]

I am having a problem getting the "Select Case" part of my VBA to work. The Case "ERAText.Value" is provided from another UserForm and is a value of 1, 2 or 3. In the case of 1 and 2 I want it to run the section listed under it which is to show a text box and list the value of "Human" in it. This seems to work just fine.

However, If I wanted to the case 3 to work where it would show a Combo Box showing a list to select from with the default value of "Human" showing up first. When "3" is selected it acts as if the first Case Option "< 3" was selected and only shows the text box with "Human" in it.

What am I doing wrong?

Thanks in advance for any assistance.

**************************************
Select Case ERAText.Value
Case Is < "3"
Me.PhenoText.Visible = True
Me.PhenoCombo.Visible = False
With PhenoText
.Value = "Human"
End With
Case Is = "3"
Me.PhenoCombo.Visible = True
Me.PhenoText.Visible = False
With PhenoCombo
.List = Range("PhenoType").Value
.Value = "Human"
End With
End Select
*******************************


Jim

 

[Joe4]

Try removing the double-quotes from around the 3 in both Case clauses.
Putting double-quotes around them indicates that they are text and not numeric.

 

[Fluff]

Alternatively if the values are text try

Select Case ERAText.Value
   Case "1", "2"
      Me.PhenoText.Visible = True
      Me.PhenoCombo.Visible = False
      With PhenoText
         .Value = "Human"
      End With
   Case "3"
      Me.PhenoCombo.Visible = True
      Me.PhenoText.Visible = False
      With PhenoCombo
         .List = Range("PhenoType").Value
         .Value = "Human"
      End With
End Select

 

[jameslytle]

When I remove the quotes it does not seem to recognize anything so it shows both the text box overlapping the Combobox (since they both are to show up in the same location) but it does not tie the list (in the case of choosing selection 3) or the text "Human" (in the case of choosing section 1 or 2).

I have also changed the programming so that it looks at the "Text" of ERAText instead of "Value" but I get similar results.

 

[Joe4]

Confirm that the value is what you think it, and check to see if it is seen to be numeric or not.
You can do that with a MsgBox like this:

[COLOR=#ff0000]Dim ERA
ERA = ERAText.Value

MsgBox "Value is: " & ERA & vbCrLf & "Is it numeric? " & IsNumeric(ERA)[/COLOR]

Select Case ERA
   Case "1", "2"
      Me.PhenoText.Visible = True
      Me.PhenoCombo.Visible = False
      With PhenoText
         .Value = "Human"
      End With
   Case "3"
      Me.PhenoCombo.Visible = True
      Me.PhenoText.Visible = False
      With PhenoCombo
         .List = Range("PhenoType").Value
         .Value = "Human"
      End With
      
End Select

 

[jameslytle]

The only thing I can get to work is what i originally posted. What I did find out is that whatever I have listed under the Case with the "<" function works but the Case with the "=" will not be seen at all.

Any suggestions?

 

[Joe4]

Any suggestions?

Yes. Please try what I suggested in my last post and tell us what the message box returns.
That will let us know what we are working with.

 

[Fluff]

How about

Select Case Val(ERAText.Value)
Case Is < 3
Me.PhenoText.Visible = True
Me.PhenoCombo.Visible = False
With PhenoText
.Value = "Human"
End With
Case Is = 3
Me.PhenoCombo.Visible = True
Me.PhenoText.Visible = False
With PhenoCombo
.List = Range("PhenoType").Value
.Value = "Human"
End With
End Select

 

[jameslytle]

Joe4.

It returned a false which I am assuming means it is text. Hence the fact that it will work when I put the quotes on and not without them. It still does not explain why it does not seem to recognize the Case = and only recognize the case <.

 

[jameslytle]

Fluff,

When I added the bit you show I still get the same result where it will work with anything listed under the case with the "<" but not with the "="