Transpose simple question
 

Hello,

I have a one dimensional array (one column, many rows). I try to
transpose it so to get one row, many columns but don't succeed

A simple example
Dim myarray As Variant
Dim myarrayT As Variant
myarray = xlApp.ActiveSheet.Range("A1:A10")
myarrayT = xlApp.Transpose(myarray)
MsgBox UBound(myarrayT, 1) returns the number of rows of the
original array (instead of 1)
MsgBox UBound(myarrayT, 2) does'nt work (out of range)

Do I miss something?
Remark: I am working in VB6

Thanks a lot
Avi

Transpose simple question
 

You original arrray has 10 rows and 1 column
your transpose array as 1 row and 10 columns

the rows is the first item in Ubound and the columns the 2nd item

MsgBox UBound(myarrayT, 1) returns 10 which it correct

MsgBox UBound(myarrayT, 0) will return 1

"avi" wrote:

Hello,

I have a one dimensional array (one column, many rows). I try to
transpose it so to get one row, many columns but don't succeed

A simple example
Dim myarray As Variant
Dim myarrayT As Variant
myarray = xlApp.ActiveSheet.Range("A1:A10")
myarrayT = xlApp.Transpose(myarray)
MsgBox UBound(myarrayT, 1) returns the number of rows of the
original array (instead of 1)
MsgBox UBound(myarrayT, 2) does'nt work (out of range)

Do I miss something?
Remark: I am working in VB6

Thanks a lot
Avi

Transpose simple question
 

Thanks

but MsgBox UBound(myarrayT, 0) returns "out of range"

Avi

Transpose simple question
 

Thanks

but MsgBox UBound(myarrayT, 0) returns "out of range"

Avi

Transpose simple question
 

MsgBox UBound(myarrayT, 1)

this is a vector, hence only has one dimension

"avi" wrote in message
...
Hello,

I have a one dimensional array (one column, many rows). I try to
transpose it so to get one row, many columns but don't succeed

A simple example
Dim myarray As Variant
Dim myarrayT As Variant
myarray = xlApp.ActiveSheet.Range("A1:A10")
myarrayT = xlApp.Transpose(myarray)
MsgBox UBound(myarrayT, 1) returns the number of rows of the
original array (instead of 1)
MsgBox UBound(myarrayT, 2) does'nt work (out of range)

Do I miss something?
Remark: I am working in VB6

Thanks a lot
Avi