vba array - handle conditions outside the preserved dimension of an array - arrays

Question

I would like to loop through my table, store values into array LotN() (in the picture there were 2 individual sample data sets, to illustrate that I may encounter different number of unique lot numbers) (and the screen cap was an illustration only. Data were actually stored in an 2D array A1()).
candidate = "blah"
' loop through records, add to arrays (skip adding duplicated values with the function IsInArray = false)
For i = 2 To LR
If .Cells(i, 5).Value = candidate And IsInArray(.Cells(i, 2).Value, lotN) = False Then
q = q + 1
lotN(q) = .Cells(i, 2).Value
End If
Next i
Debug.Print "q = " & q ' try to know how many records were thrown into the arrays
ReDim Preserve lotN(1 To q)
Usually q will be equal to 1 to 3 for my data, but I have to prepare for q up to 6, for the procedures below. The next step I needed was to count the number of elements in another array A1() matching each of the elements in LotN().
' use counter to check the number of data pieces from another array A1() matching the elements within the array LotN()
For k = 1 To r
If A1(k, 2) = lotN(1) And lotN(1) <> "" Then
c = c + 1
End If
If A1(k, 2) = lotN(2) And lotN(2) <> "" Then
d = d + 1
End If
If A1(k, 2) = lotN(3) And lotN(3) <> "" Then ' with q = 2, the code stopped at this line with error "script out of range"
e = e + 1
End If
If A1(k, 2) = lotN(4) And lotN(4) <> "" Then
f = f + 1
End If
If A1(k, 2) = lotN(5) And lotN(5) <> "" Then
g = g + 1
End If
If A1(k, 2) = lotN(6) And lotN(6) <> "" Then
h = h + 1
End If
Next k
I want to create counters (c, d, e, f, g, h in the lines above) for each of the elements in the array. Since I am not sure how exactly q will be equal to, my attempt was to use lotN (position of element in this array) <> "" to allow increment of counters. That doesn't work, however. With q = 2, lines at or below the indicated will still cause an error "Script out of range".
How can I handle this error?

Answer 1

For this to work you will need the Microsoft Scripting Runtime library under tools-References.
This is the code commented:
Option Explicit
Const Candidate As String = "blah"
Sub Test()
'Here we will store the Candidates to enum
Dim Candidates As Dictionary: Set Candidates = LoadCandidates
'Another dictionary to hold the candidates on the array
Dim lotN As Dictionary: Set lotN = New Dictionary
For K = 1 To r
'If the value is in the Candidates Dictionary then
If Candidates.Exists(A1(K, 2)) Then
'If the Candidate is in the lotN already, add 1
If lotN.Exists(A1(K, 2)) Then
lotN(A1(K, 2)) = lotN(A1(K, 2)) + 1
'If not, add the candidate to the lotN and equal it to 1
Else
lotN.Add A1(K, 2), 1
End If
'output the number of times the candidate has appeared
A1(K, 7) = lotN(A1(K, 2))
End If
Next K
End Sub
Private Function LoadCandidates() As Dictionary
Set LoadCandidates = New Dictionary
For i = 2 To LR
If Cells(i, 5) = Candidate And Not LoadCandidates.Exists(Cells(i, 2).Value) Then
LoadCandidates.Add Cells(i, 2).Value, 1
End If
Next i
End
P.S.: Amend the code to fit your needs because you didn't post the whole code you need to reference the worksheet and workbook for the cells and give the A1 array...

Answer 2

Since the size of your array is variable, I advise you to instead of looping through a set range, to loop through the array itself.
counter = 0
For Each itm in lotN
counter = counter + 1
If A1(counter, 2) = itm Then
If counter = 1 Then
c = c + 1
ElseIf counter = 2 Then
d = d + 1
ElseIf counter = 3 Then
e = e + 1
ElseIf counter = 4 Then
f = f + 1
ElseIf counter = 5 Then
g = g + 1
ElseIf counter = 6 Then
h = h + 1
End If
End If
Next itm