Display two dimensional array

[wmbb]

What is the code to display the two dimensional array named "nameArray(15,30)" in sheet5 starting in cell "A1"

The result should be a sheet with 15 columns and 30 rows.

Thanks in advance

 

[SkipVought]

hi,

    Dim nameArray(15, 30), iCol As Integer, lRow As Long
    
    For iCol = 0 To UBound(nameArray, 1)
        For lRow = 0 To UBound(nameArray, 2)
            sheet5.Cells(lRow, iCol) = nameArray(iCol, lRow)
        Next
    Next

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[wmbb]

Thank you for your help.
I wil implement this code in my macro.

 

[PHV]

I'd replace this:
sheet5.Cells(lRow, iCol) = nameArray(iCol, lRow)
with this:
sheet5.Cells(lRow [!]+ 1[/!], iCol [!]+ 1[/!]) = nameArray(iCol, lRow)

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[SkipVought]

Just might work better. ;-)

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[combo]

For variant array you can pass whole 2D array in one step:

sheet5.Cells(1,1) = nameArray

combo

 

[wmbb]

This last option didn't work for me !
But I was set in the right direction with the other options.

Thanks