ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   simple? question about ranges (https://www.excelbanter.com/excel-programming/316955-simple-question-about-ranges.html)

hke[_22_]

simple? question about ranges
 

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


Tom Ogilvy

simple? question about ranges
 
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




Alan Beban[_2_]

simple? question about ranges
 
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

Tom Ogilvy

simple? question about ranges
 
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




All times are GMT +1. The time now is 09:09 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com