# Get data from Array

#### bojobuddy

##### New Member

My code is as under:

Sub test()

Dim arr_data(1 To 100000, 1 To 30, 1 To 10) As Variant
Dim at, at1, col_t, row_t As Integer
Dim col_v, row_v, data_v As Variant
For at = 2 To row_t
For at1 = 2 To col_t
col_v = Worksheets("Sch_P1").Cells(at, 1)
row_v = Worksheets("Sch_P1").Cells(1, at1)
arr_data(row_v, col_v, 1) = Worksheets("Sch_P1").Cells(at, at1)
arr_data(row_v, col_v, 2) = Worksheets("Sch_P2").Cells(at, at1)
arr_data(row_v, col_v, 3) = Worksheets("Sch_P3").Cells(at, at1)
arr_data(row_v, col_v, 4) = Worksheets("Sch_B1").Cells(at, at1)
arr_data(row_v, col_v, 5) = Worksheets("Sch_B2").Cells(at, at1)
arr_data(row_v, col_v, 6) = Worksheets("Sch_B3").Cells(at, at1)
arr_data(row_v, col_v, 7) = Worksheets("Sch_B4").Cells(at, at1)
Next at1
MsgBox arr_data(row_v, col_v, 1)
Next at
col_v = (Worksheets("Sch_P1").Cells(1, 5)
row_v = Worksheets("Sch_P1").Cells(5, 1)
MsgBox arr_data(row_v, col_v, 1)
End Sub

I am beginner...
Posting for the first time...

### Excel Facts

Which lookup functions find a value equal or greater than the lookup value?
MATCH uses -1 to find larger value (lookup table must be sorted ZA). XLOOKUP uses 1 to find values greater and does not need to be sorted.

#### bojobuddy

##### New Member
My bad... Found out the issue...

didn't assign the values of row_t & col_t

Apologies...

Replies
6
Views
154
Replies
43
Views
1K
Replies
2
Views
225
Replies
1
Views
64
Replies
4
Views
110

1,129,374
Messages
5,635,888
Members
416,886
Latest member
coreyalaurence37

### We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.

### Which adblocker are you using?

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

### Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

### Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back