For.. Next with exception

[caroline]

hello,
Any body would know how to do this?

For i=1 to 123
blablabla
next

But without doing certain values of i (lets say 50,60,70)

I could write
For i = 1 to 49
blablabla
next
for i=51 to 59
blablabla
next

but is there a more elegant way?
thanks

 

[Ryan H]

You could do it two ways.

1.) You could use an If...Then statement inside your loop.

Dim i As Long

For i = 1 To 123
If i = 50 Or i = 60 Or i = 70 Then
' do something
End If
Next i

2.) You could list the i's you want to loop through.

Dim MyArray As Variant

MyArray = Split(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)

For i = LBound(MyArray) To UBound(MyArray)
' do something
Next i


Hope this helps! If so, let me know, click "YES" below.

 

[jamesdbrown1979]

Public Sub OmitLoopIncrements()

Dim Index As Long

For Index = 1 To 123
Select Case Index
Case 50, 60, 70
Case Else
'your code
End Select
Next Index

End Sub