Dictionary help.. Newbie

[sovereign]

So, i have been introduced to dictionary's so thought i would have a play...

What i would like to do is add 'ref' as a key and assign "Sheets(2).Cells(row.row, TotalClaimCol).Value" value to this key.

To avoid duplicates i have added if statement to check if exists

When i run this code i get an error saying the item already exists.

Any help would be appreciated, also can you assign multiple items too one key?

Cheers

For Each row In [kam_data[claimsent]].Rows


If CLng(row.Value) < startdate Then
Ref = Sheets(2).Cells(row.row, RefCol).Value
FoundMatch = False


    '       Has item been added yet?
    If dict.Exists(Ref) Then
        End If
    ' add item
    Else
      dict.Add Ref, Sheets(2).Cells(row.row, TotalClaimCol).Value
    End If
    ' total items
    Dim item As Variant
    For Each item In dict.Items
    TotalClaimAmnt = TotalClaimAmnt + item
    Next item
             

next

 

[Kyle123]

You should be checking that it doesn't exist, you can't have multiple of the same key:

    If Not dict.Exists(Ref) Then
        dict.Add Ref, Sheets(2).Cells(row.row, TotalClaimCol).Value
    End If

You can put anything in the value, so if you want multiple values then a collection, array or another dictionary would be logical choices

 

[sovereign]

You should be checking that it doesn't exist, you can't have multiple of the same key:

Thank you

do you know how to sum all the items? and not the keys?

Cheers

 

[MickG]

Look here for Dictionary info:-
VBA for smarties: Dictionaries