summing new value over the previous value based on more than item

[Alaa mg]

hello
can I sum the new value in cell F6 over the prevouis value in cell F6 based on item in cell F2
F2 depends on column B , F6 depends on column C
when select A001 it will be

1.xlsx
	A	B	C	D	E	F
1		ITEM	COST			ITEM
2		A001	1000			A001
3		A002	1500
4		A003	2900
5		A004	100			TOTAL
6						1000
Sheet1

and when select different item should sum over previous value like this

1.xlsx
	A	B	C	D	E	F
1		ITEM	COST			ITEM
2		A001	1000			A002
3		A002	1500
4		A003	2900
5		A004	100			TOTAL
6						2500
Sheet1

 

[Sahak]

Hi Alla,
If the item in cell F2 will match with any item in column B, the code I gave you will work with no errors.
The code below will inform you if you will have an invalid Item name in F2 or it will have no value (blank)

Sub GetTotal()
    Dim WledVal As Long
    On Error GoTo 1001
    WledVal = Application.VLookup(Range("F2"), Range("B2:C5"), 2, 0)
    Range("F6").Value = Range("F6").Value + WledVal
    Exit Sub
1001 MsgBox "Invalid Item in cell F2"
End Sub

I hope this will help.

 

[Alaa mg]

@Sahak this is awesome !
much appreciated .

 

[Sahak]

You are very welcome