Fill Array from a Range

[RyanH]

Why can't I fill my array from the range below? I have ensured that the
range is (8 rows X 3 columns).

Dim lngLastRow As Long
Dim aryUserInfo(8, 3) As String

' set array equal to username range
With Workbooks("QG Add-In.xla").Sheets("Login Data")
lngLastRow = .Cells(Rows.Count, "A").End(xlUp).Row
Error>> aryUserInfo = .Range("B2" & lngLastRow).Value
End With

 

[Gary Keramidas]

this works for me. just set a breakpoint on the end sub
then view/locals window

you can then expand the array clicking on the +


Sub test()
Dim lngLastRow As Long
Dim aryUserInfo As Variant

' set array equal to username range
With Worksheets("Login Data")
lngLastRow = .Cells(Rows.Count, "A").End(xlUp).Row
aryUserInfo = .Range("B2" & lngLastRow).Value
End With

 

[Jim Cone]

Excel 97 does not allow array assignment. In later versions, it is allowed.
--
Jim Cone
Portland, Oregon USA



"RyanH"
wrote in message
Why can't I fill my array from the range below? I have ensured that the
range is (8 rows X 3 columns).

Dim lngLastRow As Long
Dim aryUserInfo(8, 3) As String

' set array equal to username range
With Workbooks("QG Add-In.xla").Sheets("Login Data")
lngLastRow = .Cells(Rows.Count, "A").End(xlUp).Row
Error>> aryUserInfo = .Range("B2" & lngLastRow).Value
End With