How merge amounts into textbox based on two comboboxes instead of one combobox

[Maklil]

Hello
my data as in picture

BR.xlsm
	A	B	C	D	E
1	ITEM	DATE	CUSTOMER	ID	QTY
2	1	01/01/2024	mkl1	SDFR1000	200
3	2	01/01/2024	mkl1	SDFR1000	300
4	3	01/01/2024	mkl1	SDFR1000	100
5	4	01/01/2024	mkl1	SDFR1001	200
6	TOTAL	01/01/2024			110
7	1	02/01/2024	malk	SDFR1000	200
8	2	02/01/2024	malk	SDFR1002	300
9	TOTAL	02/01/2024			110
ORDERS

I want merging QTY into textbox1 based on column C,D after matching combobox1,2 with columns C,D like this

current code will merge based on combobox1 is matched with column D

Private Sub CommandButton1_Click()
 Dim ws As Worksheet, LR As Long, qtyP As Double, qtyT As Double
  If ComboBox1.Value <> "" Then
   Set ws = Sheets("ORDERS")
    LR = ws.Cells(Rows.Count, 3).End(3).Row
    qtyP = WorksheetFunction.SumIf(ws.Range("D2:D" & LR), ComboBox1.Value, ws.Range("E2:E" & LR))
   
   qtyT = qtyT + qtyP
   TextBox1.Text = qtyT
  End If
End Sub

I hope somebody can adapt with my requirements.

 

[Akuini]

Try using Sumifs, maybe like this:

qtyP = WorksheetFunction.SumIfs(ws.Range("E2:E" & LR), ComboBox1.Value, ws.Range("D2:D" & LR), ComboBox2.Value, ws.Range("C2:C" & LR))

Note: in sumifs, the first argument is the sum_range
Here's a good resource about sumifs:
SUMIFS Function

 

[Maklil]

Unfortunately shows error objects require in the line where contains sumifs function!
What's my bad?!

 

[Akuini]

Unfortunately shows error objects require in the line where contains sumifs function!
What's my bad?!

Not sure why.
Could you please upload a sample workbook (without sensitive data) to a file-sharing site like Dropbox.com or Google Drive, and then share the link here? Also, ensure that the link is accessible to anyone.

 

[Maklil]

may you check the file ,please?
BR.xlsm

 

[Akuini]

Sorry, I applied wrong sequence in the function arguments.
Try this:

Private Sub CommandButton1_Click()
 Dim ws As Worksheet, LR As Long, qtyP As Double, qtyT As Double
  If ComboBox1.Value <> "" Then
   Set ws = Sheets("ORDERS")
    LR = ws.Cells(Rows.Count, 3).End(3).Row
    qtyP = WorksheetFunction.SumIfs(ws.Range("E2:E" & LR), ws.Range("D2:D" & LR), ComboBox1.Value, ws.Range("C2:C" & LR), ComboBox2.Value)

   qtyT = qtyT + qtyP
   TextBox1.Text = qtyT
  End If
End Sub

 

[Maklil]

excellent !
can you modify the code,please? if I select the ID from combobox1 without select customer from combobox2 (should merge based on just ID) then should merge as in OP and if I select CUSTOMER from combobox2 then will implement as your solution .
thanks again .