logical for next

[sal21]

i have this for next:

for k=0 to 2

...

next k

and i need to increase from 3000 this block:

0 - 3000
3001 - 6000
6001 - 9000

how to increase the block in the loop of for next?

eaxmple:
for k=0 frist block 0 - 3000
for k=1 frist block 3001 - 6000
for k=2 frist block 6001 - 9000

[Rudi]

Your question does not make sense as it does not conform to the loop structure.
What do you mean by increase the block?

[HansV]

As Rudi says, you'll have to provide more information. What do you want to do with the 'blocks'?

[sal21]

As Rudi says, you'll have to provide more information. What do you want to do with the 'blocks'?

from 0 - to 3000
from 3001 - to 6000
from 6001 - to 9000

[HansV]

But what do you want to do?

[sal21]

But what do you want to do?

in effect i need a for next cylcle with a steep of 3000 + 3000...

0 3000
3001 6000
6001 9000

[HansV]

Do you want something like this?

Code: Select all

    Dim k As Long
    Dim j As Long
    For k = 0 To 2
        For j = 3000 * k + 1 to 3000 * k + 3000
            ' your code here
            ...
        Next j
    Next k

Note that the first "block" will be from 1 to 3000, not from 0 to 3000.

[sal21]

Do you want something like this?

Code: Select all

    Dim k As Long
    Dim j As Long
    For k = 0 To 2
        For j = 3000 * k + 1 to 3000 * k + 3000
            ' your code here
            ...
        Next j
    Next k

Note that the first "block" will be from 1 to 3000, not from 0 to 3000.

[Rudi]

Do you want something like this?

Code: Select all

    Dim k As Long
    Dim j As Long
    For k = 0 To 2
        For j = 3000 * k + 1 to 3000 * k + 3000
            ' your code here
            ...
        Next j
    Next k

Note that the first "block" will be from 1 to 3000, not from 0 to 3000.

Very nice...
Multiplying with the outer loop is a great move.