Get array index for selected item

[kelly mort]

Sub TestIndex()
Dim arr, List$, i%

List = "10,12,14,16,18"

arr  = Split(List, ",")

For i  = 10 To 18 Step 2
       Select Case i 
                  Case LBound(arr) To UBound(arr)
                   MsgBox arr 'Here, I want msgbox show say 0 to 4
       End Select
Next i 
End Sub

So when the i reach 10, I want the msgbox show 0. In that other.

I don't know what to do to get that. Can someone help?

 

[mohadin]

HI
the method of select For i = 10 To 18 Step 2 Select Case i

 Select Case i 
                 Case arr(1)
                   MsgBox "0"
       End Select

 

[Peter_SSs]

It is very unclear what you are actually trying to do - or why.

In any case, if List = "10,12,10, 16,18", what result would you expect for "10" - 0 or 2?

 

[Fluff]

As Peter has said, it's unclear what you are trying to do, but with your example maybe

Sub TestIndex()
Dim arr, List$, i%

List = "10,12,14,16,18"

arr = Split(List, ",")

For i = 10 To 18 Step 2
      MsgBox Application.Match(CStr(i), arr, 0) - 1
Next i
End Sub

 

[kelly mort]

HI
the method of select For i = 10 To 18 Step 2 Select Case i

 Select Case i 
                 Case arr(1)
                   MsgBox "0"
       End Select

Sub TestIndex()
Dim arr, List$, i%

List = "10,12,14,16,18"

arr  = Split(List, ",")

For i  = 10 To 18 Step 2
       Select Case i 
                  Case arr(LBound(arr)) To arr(UBound(arr))
                   MsgBox arr 'Here, I want msgbox show say 0 to 4
       End Select
Next i 
End Sub

Okay but I want a way to loop instead of writing many case statements. There was an error with my first code.

 

[kelly mort]

As Peter has said, it's unclear what you are trying to do, but with your example maybe

Sub TestIndex()
Dim arr, List$, i%

List = "10,12,14,16,18"

arr = Split(List, ",")

For i = 10 To 18 Step 2
      MsgBox Application.Match(CStr(i), arr, 0) - 1
Next i
End Sub

Yeah!!!

You nailed it!!!!!!

This is what I want to get!!!!!

I appreciate that

 

[Fluff]

Glad we could help & thanks for the feedback.

However if you have the same value more than once in the list, it will report the first match.

 

[kelly mort]

It is very unclear what you are actually trying to do - or why.

In any case, if List = "10,12,10, 16,18", what result would you expect for "10" - 0 or 2?

I think you overlooked the list.

There is only one 10 in the list. By the way Fluff's code has taken care of the issue.

 

[Peter_SSs]

I think you overlooked the list

No, I didn't overlook the list. I was asking what you would want to happen if the list was different and had repeated values.

 

[kelly mort]

No, I didn't overlook the list. I was asking what you would want to happen if the list was different and had repeated values.

Oh okay. Nice point over there. But that will not happen in the current universe I am living in.