Using class in place of array

[tiredofit]

Following from this:

https://www.mrexcel.com/forum/excel-questions/1045185-class-instead-array.html

how would I adapt it if my code were:

Do Until DataArray(j, 1) <> DataArray(j + 1, 1)

ie the suggestion was:

If myArray(i).Name <> myArray(i - 1).Name Then

but my condition now involves incrementing the array.

Thanks

 

[Kyle123]

Change the minus to a plus in my code. If that doesn't work for you, then you'll need to give us some more to go on

 

[tiredofit]

Change the minus to a plus in my code. If that doesn't work for you, then you'll need to give us some more to go on

Assume I have two columns of data:

Name Oranges
a        1
a        2
a        1
b        2
b        3
b        4
c        3
c        4
c        3
d        2
e        6
f        5

Suppose I want to add up the Oranges, according to the Name. This will do it.

Option Explicit
Sub Start()
    Dim DataArray() As Variant
    
    DataArray = Cells(1, 1).CurrentRegion.Value
    
    Dim DataArrayRows As Integer
    
    DataArrayRows = UBound(DataArray(), 1)
    
    Dim Total As Double
    
    Dim Counter As Integer
    
    Dim j As Integer
    
    For Counter = 2 To DataArrayRows - 1
        
        j = Counter
        
        Do Until DataArray(j, 1) <> DataArray(j + 1, 1)
        
            Total = Total + DataArray(j, 2)
            
            j = j + 1
        
        Loop
            
            Total = Total + DataArray(j, 2)
            
            Cells(j, 3).Value = Total
            
            Total = 0
            
            Counter = j
            
    Next Counter
End Sub

But I want to incorporate classes as in your previous example.

Sub UsingClass()
    Dim DataArray() As Variant
    
    DataArray = Cells(1, 1).CurrentRegion.Value
    
    Dim DataArrayRows As Integer
    
    DataArrayRows = UBound(DataArray(), 1)
    
    Dim Total As Double
    
    Dim Counter As Integer
    
    Dim j As Integer
    
    Dim MyClass(1 To 13) As Class1
    
    For Counter = 2 To DataArrayRows - 1
        
        j = Counter
            
        Set MyClass(Counter) = New Class1
        
        Do Until MyClass(Counter).Name <> MyClass(Counter + 1).Name
        
            Total = Total + DataArray(j, 2)
            
            j = j + 1
        
        Loop
            
            Total = Total + DataArray(j, 2)
            
            Cells(j, 3).Value = Total
            
            Total = 0
            
            Counter = j
            
    Next Counter
End Sub

The above does NOT work. Seems you need to add:

Set MyClass(Counter+1)=New Class

Even then, the difficulty lies on this line:

Do Until DataArray(j, 1) <> DataArray(j + 1, 1)

Thanks

 

[RoryA]

It looks like you've cross-posted this, in which case you should know the rules by now. Links, please.

 

[tiredofit]

Hi, I've requested the other post to be removed.

 

[tiredofit]

This has been posted here as well:

https://www.excelforum.com/excel-programming-vba-macros/1223769-using-classes-instead-of-arrays.html