Sum 2 columns on Matching values.

[Xrull]

I'm trying to extend the code below by MickG, jindon contributed to this too, but I can extend his code.

https://www.excelforum.com/excel-pro...e-columns.html

Why is it I cannot do this:

Dic(Ray(n, 4))(Ray(n, 2))(Ray(n, 2)) = Ray(n, 1) = Ray(n, 1)

with this line:

Please Login or Register  to view this content.

Please Login or Register  to view this content.

[daboho]

you do using msgbox

Please Login or Register  to view this content.

[Xrull]

daboho,

Thanks for the response.

I was trying to adapt the code to work on the spreadsheet I attached. See the code below:

I was wondering if I can adjust line 110 to something like the line below to work.

Please Login or Register  to view this content.

if Column A and B are unique, the amounts in Columns E and F will accumulate or be summed.

Please Login or Register  to view this content.

Thanks

[daboho]

I am sorri i am not see your workbook
But if only col a and col b is unique
You can join col a & col b become one key

Please Login or Register  to view this content.

[daboho]

If mother and child dictionary

Please Login or Register  to view this content.

[Xrull]

Daboho,

Thank your for responding. The codeworked but I also need to accumulate column E, so I adjusted the code to the one below, and it worked perfectly.

Please Login or Register  to view this content.

I'm improving my knowledge on dictionaries, arrays (jagged arrays); can you explain the line below to me? Jindon gave me a little tutorial a few weeks ago, but I'd appreciate your input. I'll close the thread soon.

Please Login or Register  to view this content.

Regards,
Xrull

[daboho]

Or you can exstract mother and child key like this

Please Login or Register  to view this content.

[Xrull]

daboho,

I understand it a little better now.

When I grow up I want to be like you jindon, and MickG.

Regards,
Xrull

[daboho]

If you want know mother and child dictionary
A B
1 2
1 3
1 4
2 11
2 9
First filter col a with criteria 1
You will be see
1 2
1 3
1 4
Ok dictionary only can save unique key
Than
1 >> 2,3,4
Key for mother= 1 and key for child = 2,3,4
Dim mother as object,child as object
Set mother = dic(x(i,1))
So become

Please Login or Register  to view this content.

Key for dic(1) is x(i,2))
And item for mother and child= empty

[Xrull]

daboho,

This line is jamming up in the first example.

Please Login or Register  to view this content.

and if possible, I'd appreciate a file with the second example.

Regards,
Xrull

[daboho]

your problem enaugh with one key
but if you want to know mother and child

Please Login or Register  to view this content.