remained balance for ID based on textbox on userform

[Maklil]

Hello
I want giving the remained QTY by calculation across sheet in textbox2 based on writing in textbox1 (ID)
, but before calculation should merge QTY for duplicates ID for each sheet separately .
the calculation QTY for column D across sheet should be SH2-DFG+HJK-SH
for instance when merge for each sheet take SDFR-1000 , then will be 900-370+10-40=500 as in picture1
some elements are existed in sheet but are
not existed in the others sheet like SDFR-1004,SDFR-1002 as in pictures .

Microsoft Excel (3)‬.xlsx
	A	B	C	D
1	ITEM	DATE	ID	QTY
2	1	25/05/2023	SDFR-1000	600
3	2	26/05/2023	SDFR-1001	200
4	3	27/05/2023	SDFR-VBNBN-9	150
5	4	28/05/2023	SDFR-1000	300
6	5	29/05/2023	SDFR-VBNBN-9	150
SH2

Microsoft Excel ‫(3)‬.xlsx
	A	B	C	D
1	ITEM	DATE	ID	QTY
2	1	25/06/2023	SDFR-1000	120
3	2	26/06/2023	SDFR-1000	100
4	3	27/06/2023	SDFR-1000	50
5	4	28/06/2023	SDFR-1000	100
6	5	29/06/2023	SDFR-VBNBN-9	150
DFG

Microsoft Excel ‫(3)‬.xlsx
	A	B	C	D
1	ITEM	DATE	ID	QTY
2	1	25/06/2023	SDFR-1000	5
3	2	26/06/2023	SDFR-1000	5
4	3	27/06/2023	SDFR-1004	6
HJK

Microsoft Excel ‫(3)‬.xlsx
	A	B	C	D
1	ITEM	DATE	ID	QTY
2	1	25/06/2023	SDFR-1000	20
3	2	26/06/2023	SDFR-1000	20
4	3	26/05/2023	SDFR-1001	200
5	4	27/05/2023	SDFR-1002	201
SH

I hope the pictures help
thanks

 

[Osvaldo Palmeiro]

Hi.
I assumed that there will be a command button on the userform.

Private Sub CommandButton1_Click()
 Dim ws As Worksheet, LR As Long, qtyP As Double, qtyT As Double
  If TextBox1.Text <> "" Then
   For Each ws In Worksheets(Array("SH2", "DFG", "HJK", "SH"))
    LR = ws.Cells(Rows.Count, 3).End(3).Row
    qtyP = WorksheetFunction.SumIf(ws.Range("C2:C" & LR), TextBox1.Text, ws.Range("D2:D" & LR))
    If ws.Name = "DFG" Or ws.Name = "SH" Then qtyT = qtyT - qtyP Else qtyT = qtyT + qtyP
   Next ws
   TextBox2.Text = qtyT
  End If
End Sub

 

[Maklil]

that's what I wanted
thank you so much .