Dictionary Value not being updated

[beutlerm]

I have 2 dictionaries; both have a "location" and the "frequency of occurence". The 2nd dictionary locations are related to the first, but are named differently, so I have a range of cells I'm using to define the equivalent locations, ie:

Dict. 2 Location----Dict. 1 Location
Wrapper------------Packaging
Robot----------------Robot Arm
Robot----------------Robot Base
etc..

(It's not a direct 1 for 1)

The program is meant to take both dictionaries, convert the 2nd dictionary keys to the equivalent dictionary 1 keys (based on the cell range data provided) and then combine the values associated with that location and store them in D_Master.
D_Master is a copy of my dictionary 1, in which I am also trying to add the values from dictionary 2.

I started by writing the location definitions within the program, ie:

D_Master("Packaging") = D_Master("Packaging") + D_LP("Wrapper")

which works, but there are several hundred definitions and it becomes less robust, whereas a user could type in a definition within the range of cells and the code below could take care of the rest.

What am I doing wrong?

    Dim LP_Range As Range

    Set LP_Range = ActiveWorkbook.Sheets("LP to SAP Name Conversion").Range("A8:A4000")
    
    Q = 0
'if the name exists from the definitions create its dict 1 equivalent
    For Each Cell In LP_Range                         'LP range is the dict 2 location from my worksheet
        If D_LP.Exists(CStr(Cell.Value)) Then     'D_LP is my dictionary 2 and D_Master is where I am trying to combine both dictionaries
            For Each Key In D_Master           
                If Key = Cell.Offset(0, 1).Value Then
                    D_Master(Key) = D_Master(Key) + D_LP(Cell)  '<<-- This doesn't seem to be working! Though I get no error
                  
  'Following is to see if this is even being executed
                    Cells(1, 1).Value = "Executed!!!!"      'it is executing this loop
                    If Q = 0 Then                      '
                        Cells(2, 1) = Key              'to make sure it's reading what I expect (I am)
                        Cells(2, 2) = Cell             'to make sure it's reading what I expect (I am)
                        Q = 1                          'only checking ^^ first entry
                    End If
                End If
            Next
        End If
    Next

'print out
    i = 3
    For Each Key In D_Master
        Range("T" & i).Value = Key
        Range("U" & i).Value = D_Master(Key)  '<<-- these values are the same as they were in dictionary 1 before running the above code
        i = i + 1
    Next

Thanks!

[AB33]

You are not using the key (Cell.Value)) ) to load what ever the data in to items

 If D_LP.Exists(CStr(Cell.Value)) Then

is correct, then, what do you want to do with the key. You want to assign (write data in items using a key)

For example. D_LP.Item(CStr(Cell.Value)) = D_Master(Key) + D_LP(Cell)

This is not complete code. With out seeing the entire code, it is difficult to comment.

[beutlerm]

I know, unfortunately I don't think the rest of the code would help much without posting the workbook as well, which I don't think I'm at liberty to post.
I'm not sure I fully understood what you meant but the form in my code is the same as how I mentioned I did it previously - by defining it within the code explicitly.
aka D_Master("Packaging") = D_Master("Packaging") + D_LP("Wrapper")

To me , my following code reads:
"For each dictionary 2 location (defined by user), if it exists (as a key) in dictionary 2, and if there is a key in dictionary 1 that matches the corresponding dictionary 1 location (defined by user), then add their occurence counts together."

The D_Master(Key) refers to the user defined cell next to "Cell" that is currently being tested.

For Each Cell In LP_Range
        If D_LP.Exists(CStr(Cell.Value)) Then
            For Each Key In D_Master           '
                If Key = Cell.Offset(0, 1).Value Then
                    D_Master(Key) = D_Master(Key) + D_LP(Cell)
                End If
            Next
        End If
    Next

[AB33]

This appears to me to be looping through a range
For Each Key In D_Master
Where is the dictionary or key on these range?

[beutlerm]

It is - the range is a user input for defining equivalent location definitions.

ie:

Dictionary 2 Location	Dictionary 1 Location Equivalent
#1 Robot	R1 Robot
Wrapper	Packaging

The keys for the dictionaries have already been defined from another set of data - some of which should match up with this range.

So for my example above, I'd be attempting to take the occurances (value) of dictionary 2 key "#1 Robot" and add them to the dictionary 1 key "R1 Robot"

[beutlerm]

Bump - No Answer

I've tried multiple other ways to try to get the values and comparisons I need but to no avail. Any other route ideas would also be appreciated.