Automatically SUM the quantity if Duplicate Value entered in same column? - excel

Question

I have a range A1:B10, for data entry, where A1:A10 for Item Name and B1:B10 for there Quantity.
I need the VBA for, If I entered same Item Name in Range A1:A10, they automatically SUM there Quantity in Range B1:B10, and delete the duplicate value entered?
For Example: -
A1 = Apple, B1 = 10
A2 = Coconut, B2 = 5
A3 = Banana, B3 = 8
And When I will enter
A4 = Apple, B4 = 2
Then
B1 Should be 12
and A4:B4 should be clear.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
'On change of item, if Row found and add to receipt
If Not Intersect(Target, Range("E10")) Is Nothing And Range("E10").Value <> Empty Then AddItem
'On Change of Price Or Qty For Added Items
If Not Intersect(Target, Range("F8,F6")) Is Nothing And Range("B4").Value = False And Range("B6").Value <> Empty Then
Dim RecptRow As Long
RecptRow = Range("B6").Value 'Receipt Row
If Not Intersect(Target, Range("F6")) Is Nothing Then Range("M" & RecptRow).Value = Target.Value 'Update Price
If Not Intersect(Target, Range("F8")) Is Nothing Then Range("L" & RecptRow).Value = Target.Value 'Update Qty
End If
End Sub

Answer 1

Something like this should work.
Private Sub Worksheet_Change(ByVal Target As Range)
lastRow = Range("A" & Rows.Count).End(xlUp).Row ' or whatever other method used to determine lastrow
For Each xTarget In Target
If xTarget.Row = lastRow And xTarget.Column = 2 Then 'if B4 was changed
Call addIt(item:=Cells(xTarget.Row, xTarget.Column - 1), xTarget:=xTarget) ' passing in just xTarget so can use the value and the row
End If
Next xTarget
End Sub
Sub addIt(item, xTarget)
For x = 1 To xTarget.Row - 1 ' minus one because obviously dont wanna check the value you just now entered
If LCase(Trim(Cells(x, "A"))) = LCase(Trim(item)) Then ' lcase and trim to allow for whitespaces and case insensitivity
Cells(x, "B") = Cells(x, "B") + xTarget.value
'now will blank out if added to upper item
Application.EnableEvents = False
Cells(xTarget.Row, xTarget.Column) = "" 'b lr
Cells(xTarget.Row, xTarget.Column - 1) = "" 'a lr
Cells(xTarget.Row, xTarget.Column - 1).Activate 'a lr.activate
Application.EnableEvents = True
Exit Sub 'stop looping and get out
End If
Next x
End Sub
I use a for each xTarget in Target just in case you ever modify more than cell at a time(deleting something) so it wont throw an error
If lastrow column b was changed then it fires off the addIt sub
then it disables events so we don't get into an infinite loop if we then set lastrow column b and a to blank.
If you have more questions about this answer please add a comment! And mark as answered if this answers your question