Huh, there is one more issue (again).
I need to update a SumXCollection member, with a new value of one of its properties (TotalXX):
[vba]Public SumXCollection As Collection
Public zx As SumX
Public begin1 As Integer
Public article As String
...
Dim i As Integer
For i=0 To ...
...
Set zx = SumXCollection(article & Color.Text)
zx.TotalXX = ActiveSheet.Cells(begin1 + i, 11) 'begin1 and 'article' are set in previous procedure
SumXCollection(article & Color.Text) = zx ' THIS LINE YELLOW MARKED
...
Next i[/vba] getting:
What to do now?Run-time error '438':
Object doesn't support this property or method
edit:
SumX Class[vba]Option Explicit
Private pKeyXX As String
Private pCodeXX As String
Private pColorXX As String
Private pTotalXX As String
Public Property Get KeyXX() As String
KeyXX = pKeyXX
End Property
Public Property Let KeyXX(ByVal vNewValue As String)
pKeyXX = vNewValue
End Property
Public Property Get CodeXX() As String
CodeXX = pCodeXX
End Property
Public Property Let CodeXX(ByVal vNewValue As String)
pCodeXX = vNewValue
End Property
Public Property Get ColorXX() As String
ColorXX = pColorXX
End Property
Public Property Let ColorXX(ByVal vNewValue As String)
pColorXX = vNewValue
End Property
Public Property Get TotalXX() As String
TotalXX = pTotalXX
End Property
Public Property Let TotalXX(ByVal vNewValue As String)
pTotalXX = vNewValue
End Property[/vba]