Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Hello all :-)
For some reason I get stuck on some Subscript out of range error when running this code. I wonder if I might have dim(ensioned) as wrong variant or something Please help me solve this... (btw, the first sheet is about 6000 rows, and the second is about 1800 rows) Here is the code: Sheets("Analyse").Select Cells(3, 1).Activate Dim myArray() As Variant Dim dSett1() As Variant Dim dSett2() As Variant Dim dSett3() As Variant cnt1 = cnt1 + 1 ReDim dSett1(3 To cnt1) ReDim dSett2(2 To cnt2, 1 To 26) ReDim myArray(3 To cnt1, 1 To 9) For i = 3 To cnt1 dSett1(i) = Sheets("Analyse").Cells(i, 1).Value Next i For i = 2 To cnt2 For j = 1 To 26 dSett2(i, j) = Sheets("Datasett2").Cells(i, j).Value Next j Next i For i = 3 To cnt1 For k = 2 To cnt2 If dSett1(i) = dSett2(k, 1) Then For j = 1 To 9 myArray(i, j) = dSett2(i - 1, (9 + j)) Next j End If Next k Next i Best regards, -Nortor |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
subscript out of range | Excel Programming | |||
Subscript out of range? | Excel Programming | |||
Subscript out of range | Excel Programming | |||
SubScript Out Of Range. | Excel Programming | |||
Subscript Out of Range | Excel Programming |