How do you use "except" in a for next loop

[hotherps]

I have some code that loops through some records:


For j = 100 To 144 Step 1
num = ""
If Len(Trim(arr(j))) = 0 Then
num = j
arr(num) = "PK"
Exit For

What if I want to make an exception, what if 119 does not exist, fo
example, how do you exclude specific numbers from this statement.

Thank

 

[Trevor Shuttleworth]

Try something like this:

Dim arr(100 To 144)
For j = 100 To 144 Step 1
num = ""
Select Case j
Case Is = 119 'do nothing
' MsgBox "119"
Case Else
If Len(Trim(arr(j))) = 0 Then
num = j
arr(num) = "PK"
Exit For
End If
End Select
Next 'j

Regards

Trevor

 

[hotherps]

I keep getting a "next without for" error

 

[Trevor Shuttleworth]

Post the full routine; I had to make it up and I've obviously guessed wrong

 

[hotherps]

Thanks Trevor that worked great.

Now a really dumb question, what if I have to exclude more than on
value? (I probably should have mentioned that the first time, sorry.

let's say 135,137,139 for exampl

 

[Trevor Shuttleworth]

Case Is = 119,135,137,139 'do nothing

Regards

Trevor

 

[BrianB]

'-----------------------------------------------
For j = 100 To 144
If j <> 119 Then ........

'------------------------------------------------

Don't need Step 1 which is the default