array and range

[ericlch16]

Hi

I have a range which is several rows but 1 column
i.e rng = (.cells(x,1),cells(z,1))

I have an array
Dim myarray() as variant

Myarray = rng

When z>x i.e the range contains more than 1 value, it is fine
When z=x i.e the range contains only 1 value, it returns an error.

if range value is 8888 only, it returns error
if range value is 8888,9999,7777 it is ok
if range value is 8888, <empty space> it is ok (as empty space is considered as a value)

is there any reason the array has to take more than 1 value ? Any workaround for that?

Thanks

 

[dmt32]

Hi,
try this update to your code & see if resolves your issue

Dim myarray As Variant

myarray = Rng.Value
If Not IsArray(myarray) Then myarray = Array(myarray)

'rest of code

Dave

 

[ericlch16]

Hi,
try this update to your code & see if resolves your issue

Dim myarray As Variant

myarray = Rng.Value
If Not IsArray(myarray) Then myarray = Array(myarray)

'rest of code

Dave

VBA will give an error msg at

myarray = Rng.Value

if rng is only 1 value

 

[dmt32]

VBA will give an error msg at

myarray = Rng.Value

if rng is only 1 value

did you try the suggested code as published?

Dave