Question

In the situation where the user select two non-contiguous column ranges i wrote the following:

Dim count long
Dim points variant
Dim i long

Set user_range = ActiveWindow.RangeSelection

count = user_range.count / 2

ReDim points(1 To count, 1 To 2)

For i = 1 To count

    MsgBox "value is" & user_range.Areas.Item(1).Value(i,1)

    points(i, 1) = user_range.Areas.Item(1).Value(i,1)

    points(i, 2) = user_range.Areas.Item(2).Value(i,1)


Next i

But i get an object error when i try this. Am i indexing Value wrong?

This should work right? Is there an easier way to do this?

Any help is greatly appreciated!

Thanks,

Russ

Answer 1

I’m afraid your code does not compile. First of all, you need to declare your variables correctly. You should also use Option Explicit.

Option Explicit

Dim count As Long
Dim points As Variant
Dim i As Long
Dim user_range As Range

The count and ReDim lines are OK, but you are assuming that the two selections are both the same size. Will that always be the case?

Then I’m not sure what it is you want to do, but I’m guessing you just want to save the values in user_range into points.

You need to adress them a bit different:

points(i, 1) = user_range.Areas(1).Cells(i, 1).Value    'Selection 1
points(i, 2) = user_range.Areas(2).Cells(i, 1).Value    'Selection 2