Assigning values to an array using Do while loop

[tkg99]

Hello,
I would like to know what am I doing wrong here, I'm trying to assign values from 2000 to 2030 to my array ( the task demands of me to complete it using do while loop), but I'm constantly getting errors. Can anybody tell me what's wrong with my logic here?

Sub loop1()
Dim tab2(29) As Integer
Dim intc As Long
Dim intr, intm As Integer


intm = 0
intc = 2000
intr = 1

    Do While intc <= 2030
        tab2(intm) = intc
        intm = intm + 1
        intc = intc + 1
    Loop
    
    Do While intr <= 30
        Cells(intr, 1) = tab2
        intr = intr + 1
    Loop
        
End Sub

 

[Fluff]

In what way doesn't it work?

 

[tkg99]

In what way doesn't it work?

The second loop could be omitted here, but the first one is supposed to assign values to my 1D array (0 = 2000, 1 = 2001 and so on) and whenever I try to run the code, it's giving me "Subscript out of range" error.

 

[Fluff]

That's because you declared Dim tab2(29) As Integer so it will be 0 to 29 (ie 30 values) but you are trying to put 31 values into it.

 

[tkg99]

That's because you declared Dim tab2(29) As Integer so it will be 0 to 29 (ie 30 values) but you are trying to put 31 values into it.

Oh you are right, my bad Thank you very much for the help!

 

[Fluff]

You're welcome & thanks for the feedback.