VBA: problems in creating and storing objects in array with loop

Question

I created a Class named Issue. Then I created a function that creates Issue objects, set their properties with data from a worksheet and store them into a variant array through a loop. the problem is that everytime that the loops runs it overwrites the properties
of the same object instead of creating a new object, setting its properties. Would anyone know how to solve that? The loop code goes below:
 'Stores all the Issues objects in an Array
Function StoreAllIssues() As Variant
Dim IssuesSheet As Worksheet
Set IssuesSheet = Sheet1
Dim intLastRow As Integer
intLastRow = Uteis_Jorge.LastRowFunc(IssuesSheet, 1)
Dim IssuesArray() As New Issue: ReDim IssuesArray(0)
For i = 2 To intLastRow
    Dim MyIssue As New Issue
    MyIssue.IssueName = IssuesSheet.Cells(i, 1)
    MyIssue.Suggestion = IssuesSheet.Cells(i, 2)
    MyIssue.Priority = IssuesSheet.Cells(i, 3)
    MyIssue.Resolution = IssuesSheet.Cells(i, 4)
    MyIssue.JobStatus = IssuesSheet.Cells(i, 5)
    MyIssue.AssignedTo = IssuesSheet.Cells(i, 6)
    Set IssuesArray(i - 2) = MyIssue
    ReDim Preserve IssuesArray(i - 1)
Next i
ReDim Preserve IssuesArray(i - 3)
StoreAllIssues = IssuesArray
End Function
Jorge Barbi Martins ([email protected])

Answer 1

Hi Jorge,
You can set the MyIssue to Nothing every time you don't use the MyIssue object, in this way, the array will properly store the new MyIssue object:
For i = 2 To intLastRow
Dim MyIssue As New Issue
MyIssue.IssueName=IssuesSheet.Cells(i,1)
Set IssuesArray(i - 2) = MyIssue
ReDim Preserve IssuesArray(i - 1)
Set MyIssue = Nothing
Next i
We are trying to better understand customer views on social support experience, so your participation in this interview project would be greatly appreciated if you have time. Thanks for helping make community forums a great place.
Click
HERE to participate the survey.