Hi,

I don`t understand why my values are transposed , hopefully someon ca
help..
I`m trying to get values into the range Arr2 based on certain criteria
Basically i guess its like

Dim Arr1 As Range
Dim Arr2() As Variant

Arr2 = Worksheets("sheet2").Range("A1:A10").Value

Set Arr1 = Worksheets("sheet1").Range("A1:J1")

For i = 1 to 10
Arr1(i,1).Value = Arr2(i,1)
next i

and it works except the values are not written into the Arr2 range but
from the first cell in Arr2 and down in the column A. I want the value
to be written from A1 to A10.
frustrate

--
hk
-----------------------------------------------------------------------
hke's Profile: http://www.excelforum.com/member.php...nfo&userid=155
View this thread: http://www.excelforum.com/showthread.php?threadid=31375

if you want to put the values from arr2 into the array arr1 then

Dim Arr1 As Range
Dim Arr2() As Variant

Arr2 = Worksheets("sheet2").Range("A1:A10").Value

Set Arr1 = Worksheets("sheet1").Range("A1:J1")

For i = 1 to 10
Arr1(i,1).Value = Arr2(1,i)
next i

if to write the values form Arr2 to the range A1:A10

Set Arr1 = Worksheets("sheet1").Range("A1:J1")

Worksheets("sheet2").Range("A1:A10").Value = Application.Transpose(Arr1)


It is unclear exactly what you want to do, but perhaps the above will give
you some ideas.

--
Regards,
Tom Ogilvy




"hke" wrote in message
...

Hi,

I don`t understand why my values are transposed , hopefully someon can
help..
I`m trying to get values into the range Arr2 based on certain criteria.
Basically i guess its like

Dim Arr1 As Range
Dim Arr2() As Variant

Arr2 = Worksheets("sheet2").Range("A1:A10").Value

Set Arr1 = Worksheets("sheet1").Range("A1:J1")

For i = 1 to 10
Arr1(i,1).Value = Arr2(i,1)
next i

and it works except the values are not written into the Arr2 range but
from the first cell in Arr2 and down in the column A. I want the values
to be written from A1 to A10.
frustrated


--
hke
------------------------------------------------------------------------
hke's Profile:
http://www.excelforum.com/member.php...fo&userid=1550
View this thread: http://www.excelforum.com/showthread...hreadid=313759

Tom Ogilvy wrote:
if you want to put the values from arr2 into the array arr1 then

Dim Arr1 As Range
Dim Arr2() As Variant

Arr2 = Worksheets("sheet2").Range("A1:A10").Value
Will this work in xl97? :-)


Set Arr1 = Worksheets("sheet1").Range("A1:J1")

For i = 1 to 10
Arr1(i,1).Value = Arr2(1,i)
next i
Aren't the subscripts interchanged?

if to write the values form Arr2 to the range A1:A10

Set Arr1 = Worksheets("sheet1").Range("A1:J1")

Worksheets("sheet2").Range("A1:A10").Value = Application.Transpose(Arr1)


It is unclear exactly what you want to do, but perhaps the above will give
you some ideas.


Alan Beban

comments in line
"Alan Beban" wrote in message
...
Tom Ogilvy wrote:
if you want to put the values from arr2 into the array arr1 then

Dim Arr1 As Range
Dim Arr2() As Variant

Arr2 = Worksheets("sheet2").Range("A1:A10").Value
[ Arr2 = Worksheets("sheet2").Range("A1:A10").Value ] from original post
Will this work in xl97? :-)
OP's code, not mine - he maintains it is working, so it must not be xl97
(where it wouldn't work as you know).


Set Arr1 = Worksheets("sheet1").Range("A1:J1")

For i = 1 to 10
Arr1(i,1).Value = Arr2(1,i)
next i
Aren't the subscripts interchanged?
Yep, should be
Arr1(1,i).Value = Arr2(i,1)



if to write the values form Arr2 to the range A1:A10

Set Arr1 = Worksheets("sheet1").Range("A1:J1")

Worksheets("sheet2").Range("A1:A10").Value = Application.Transpose(Arr1)


It is unclear exactly what you want to do, but perhaps the above will
give
you some ideas.


Alan Beban

--
Regards,
Tom Ogilvy