For Loop with Skip 1

[suoirotciv]

I'm already doing this code below

Public Sub testloop()
   Dim x
   
   For x = 1 To 10
      Select Case loopr
         Case 1, 3, 7 To 10
            Debug.Print loopr
      End Select
   Next 
End Sub

But is there a way for the loop to look like this? Ofcouse the sample below is not working

Public Sub testloop()
   Dim x As Integer
   
   For x = 1, 3, 7 To 10
       Debug.Print loopr
   Next 
End Sub

========================================
I kept my Job because of TEK-TIPS
Thanks a lot to all who keeps on helping others.

 

[HarleyQuinn]

Unfortunately not I'm afraid. There are different ways to achieve what you want but they are basically variations on what you've currently got.

The only thing close in a FOR..LOOP construct is to use STEP but because of the values you're using that's not possible in this case.

Hope this helps

HarleyQuinn
---------------------------------
Carter, hand me my thinking grenades!

You can hang outside in the sun all day tossing a ball around, or you can sit at your computer and do something that matters. - Eric Cartman

Get the most out of Tek-Tips, read FAQ222-2244: How to get the best answers before posting.

http://lessthandot.com

 

[suoirotciv]

Thanks! I was just thinking of a possible shorter method.

========================================
I kept my Job because of TEK-TIPS
Thanks a lot to all who keeps on helping others.

 

[combo]

You can use Array function:

For Each x In Array(1, 3, 7, 10)
    Debug.Print x
Next x

combo

 

[suoirotciv]

Cool!!! that was great.

Thanks a lot.

========================================
I kept my Job because of TEK-TIPS
Thanks a lot to all who keeps on helping others.

 

[PeterWallace]

in your code

Public Sub testloop()
Dim x As Integer

For x = 1, 3, 7 To 10
Debug.Print loopr
Next
End Sub

Public Sub testloop()
Dim x As Integer

For x = 1 to 10
SELECT CASE X
Case 1, 3, 7 To 10
Debug.Print X ' ( not loopr )
End SELECT
Next
End Sub


Loopr is either a Non Existant Variable ... or possibly a global which would never be altered by this loop

 

[suoirotciv]

hehehe it was just a typo error . . i just copy paste my original code and altered it for easy reading.

========================================
I kept my Job because of TEK-TIPS
Thanks a lot to all who keeps on helping others.

 

[harebrain]

To correspond correctly to the original code:

For Each x In Array(1, 3, 7, [red]8, 9, [/red]10)
    Debug.Print x
Next x