VBA multi value Dictionary

[challen908]

I am trying to build a multi value dictionary from a sheet of data that has 4 different columns of data, where the first column would be the key and the 3 next columns would be the items

I keep getting a compile error: Method or Data member not found. Please help

 

[Norie]

Can you post the code, not an image of the code?

Also, include the code for the class ClsFlight.

 

[challen908]

Public FlightNum As String
Public EDUNum As String
Public VCPN As String
Public Status As String

Sub Main()

    Dim Dic As Dictionary

    Set Dic = ReadMultiItems

    'WriteToActiveCell Dic

End Sub

Private Function ReadMultiItems() As Dictionary

    Dim Dic As New Dictionary

    Dim sh As Worksheet
    Set sh = ThisWorkbook.Sheets("EDUData")

    Dim rg As Range
    Set rg = sh.Range("A1").CurrentRegion

    Dim oFlight As ClsFlight, i As Long
    Dim FlightNum As String

    For i = 2 To rg.Rows.Count
        FlightNum = rg.Cells(i, 1).Value

        If Dic.Exists(FlightNum) = True Then
            Set oFlight = Dic(FlightNum)
        Else
            Set oFlight = New ClsFlight
            Dic.Add FlightNum, oFlight
        End If

        oFlight.FlightNum = FlightNum
        oFlight.EDUNum = oFlight.EDUNum + rg.Cells(i, 2).Value
        oFlight.VCPN = oFlight.VCPN + rg.Cells(i, 3).Value
        oFlight.Status = oFlight.Status + rg.Cells(i, 4).Value

    Next i
    Set ReadMultiItems = Dic
End Function

 

[challen908]

I have nothing in the ClsFlight, Excel VBA Dictionary - A Complete Guide - Excel Macro Mastery where I got this from says nothing about what it should be

 

[challen908]

I figured it out I think. I didn't add the Public string decorations to the Class Module