Changing Cell References Within a Loop

[sbev]

I am learning VBA for use with Excel and have run into the following problem:
For count = 1 To 20
...
Range("Ax&quot.Select
[x = 185*(count-2)+ 1]
...
Range("Ax:Ay&quot.Select
Range("Dz&quot.Select
[x as above, y = 185*(count-1),z = 185*(count-1)+1]
...

How do I set up x, y and z so that the cell references keep incrementing within the loop? Also, beside count what will have to be dimensioned?

Any help appreciated.

Sbev

 

[SkipVought]

Hi,

    For Count = 1 To 20
    '...
        x = 185 * (Count - 2) + 1
        y = 185 * (Count - 1)
        z = 185 * (Count - 1) + 1
        Cells(x, "A").Select
        'OR
        Cells(x, 1).Select
        
        Range(Cells(x, "A"), Cells(y, "A")).Select
        Cells(z, "D").Select
        'OR
        Cells(z, 4).Select
        [x as above, y = 185*(count-1),z = 185*(count-1)+1]
    Next

Try NOT selecting ranges as much as possible. Most calculations and assignments can be done without selecting sheets and ranges.

Hope this helps

Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com

 

[sbev]

Hi Skip,

Thanks, it works great.

Sbev