VB6 Array Writing to Excel Range

[Qpido]

Dear Members,

I have a problem with the following code.

Dim i As Integer
Dim startValue As Long
Dim lMyArray(1 To 103) As Long
startValue = 35
For i = 1 To 103
lMyArray(i) = startValue + (i * 5)
oXLSheet.Range("D6:D109").Value = lMyArray(i)
Next i

The problem is that I only get the same numbers in the cells D6 through D109.

You pros go any ideas?

Thanks,

Jerome

 

[Andrew Poulsom]

Try:

oXLSheet.Range("D" & i + 5).Value = lMyArray(i)

 

[MickG]

Perhaps !!

[COLOR="Navy"]Sub[/COLOR] MG20Apr45
[COLOR="Navy"]Dim[/COLOR] i [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Integer[/COLOR]
[COLOR="Navy"]Dim[/COLOR] startValue [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long[/COLOR]
[COLOR="Navy"]Dim[/COLOR] lMyArray(1 To 103) [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long[/COLOR]
[COLOR="Navy"]Dim[/COLOR] oXLsheet [COLOR="Navy"]As[/COLOR] Worksheet
[COLOR="Navy"]Set[/COLOR] oXLsheet = ActiveSheet
startValue = 35
    [COLOR="Navy"]For[/COLOR] i = 1 To 103
        lMyArray(i) = startValue + (i * 5)
    [COLOR="Navy"]Next[/COLOR] i
oXLsheet.Range("D6:D108") = Application.Transpose(lMyArray)
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick