VBA / Macro that Matches Names and then Sums their Amount

[sleepysheep72]

Hello I am not a native english speaker so I'm sorry if I make grammar mistakes
I have this question in the exam sheet I'm doing and it's making my head hurt. How do I get to match the names in column C and column F and then add both amounts?

Mini-sheet for reference

Exam-Excel.xlsb
	C	D	E	F	G
4	Name	Amount		Name	Amount
5	Robert	10,000.00		Eya	50,000.00
6	Chloe	30,000.00		Alyanna	40,000.00
7	Amber	50,000.00		Robert	30,000.00
8	Eya	23,500.00		Chloe	25,000.00
9	Alyanna	53,200.00		Amber	34,000.00
VBA Test

 

[alansidman]

If I were doing this, I would use Power Query. More simpler than using VBA.

Book6
	A	B	C	D	E	F	G	H
1	Name	Amount		Name	Amount		Name	Total
2	Robert	10,000.00		Eya	50,000.00		Robert	40000
3	Chloe	30,000.00		Alyanna	40,000.00		Chloe	55000
4	Amber	50,000.00		Robert	30,000.00		Amber	84000
5	Eya	23,500.00		Chloe	25,000.00		Eya	73500
6	Alyanna	53,200.00		Amber	34,000.00		Alyanna	93200
Sheet1

let
    Source = Table.Combine({Table1, Table2}),
    #"Grouped Rows" = Table.Group(Source, {"Name"}, {{"Total", each List.Sum([Amount]), type nullable number}})
in
    #"Grouped Rows"

 

[mohadin]

Hi
VBA
Try

Sub test()
    lr = Sheets("sheet1").Cells(Rows.Count, 1).End(xlUp).Row
    a = Sheets("sheet1").Cells(1, 1).Resize(lr, 2)
    With CreateObject("scripting.dictionary")
        For i = 1 To UBound(a)
            If Not .exists(a(i, 1)) Then .Add a(i, 1), a(i, 2)
        Next
        a = Sheets("sheet1").Cells(1, 4).Resize(lr, 2)
        For i = 2 To UBound(a)
            If .exists(a(i, 1)) Then
                x = .Item(a(i, 1)): x = x + a(i, 2): .Item(a(i, 1)) = x
            End If
        Next
        Sheets("sheet1").Cells(1, 7).Resize(.Count, 2) = Application.Index(Application.Transpose(Array(.keys, .items)), 0, 0)
    End With
End Sub

 

[Fluff]

No need for a macro, you can use the sumifs function to add the amounts for each person.