summing and poulate values in multiple textboxes based on two columns in listbox on userform

[Alaa mg]

hi
I search for how summing the values and show in textxboxes based on 2,3 columns in listbox . in column 2 is VCH contain cash and CHEQU in column 3 . so should summing the values are existed in last column in listbox and show in textboxes for VCH and the same thing for VCL contains CASH, CHEQU so should summing the values in column 4 in listbox..
short word the summing values depend on column 2,3 when summing the values as in picture.

 

[DanteAmor]

In your description and in the label you have "VCL" but in the sheet you have "VLC".

The macro reads "VCL".

Set the name of the listbox1, textbox1, textbox2, textbox3, and textbox4 controls.

Private Sub CommandButton1_Click()
  Dim i As Long
  Dim vch_cash As Double, vcl_cash As Double
  Dim vch_cheq As Double, vcl_cheq As Double
  
  With ListBox1
    For i = 0 To .ListCount - 1
      If .List(i, 1) = "VCH" And .List(i, 2) = "CASH" Then vch_cash = vch_cash + CDbl(.List(i, 4))
      If .List(i, 1) = "VCH" And .List(i, 2) = "CHEQUE" Then vch_cheq = vch_cheq + CDbl(.List(i, 4))
      If .List(i, 1) = "VCL" And .List(i, 2) = "CASH" Then vcl_cash = vcl_cash + CDbl(.List(i, 3))
      If .List(i, 1) = "VCL" And .List(i, 2) = "CHEQUE" Then vcl_cheq = vcl_cheq + CDbl(.List(i, 3))
    Next
  End With
  TextBox1.Value = Format(vch_cash, "#,##0.00")
  TextBox2.Value = Format(vch_cheq, "#,##0.00")
  TextBox3.Value = Format(vcl_cash, "#,##0.00")
  TextBox4.Value = Format(vcl_cheq, "#,##0.00")
End Sub

 

[Alaa mg]

In your description and in the label you have "VCL" but in the sheet you have "VLC".

thanks for correcting me and I'm sorry I don't note it
now this is what I got . what's the problem?

 

[DanteAmor]

You have serious problems with your data.
says "CAHS" should say "CASH".
Also check that there are no blank spaces after each word.

It would be easier if instead of an image, you put your data here with the XL2BB minisheet tool

Try with my data:

Dante Amor
	A	B	C	D	E
1	ITEM	VOUCHER	CASE	D	C
2	1	VCH	CASH		10000
3	2	VCL	CHEQUE	2000
4	3	VCH	CASH		12000
5	4	VCH	CASH		5000
6	5	VCH	CHEQUE		2000
7	6	VCH	CHEQUE		3000
8	7	VCH	CHEQUE		1000
9	8	VCL	CHEQUE	2500
10	9	VCL	CHEQUE	500
11	10	VCL	CHEQUE	1000
12	11	VCL	CHEQUE	2000
13	12	VCL	CASH	2000
Hoja1

 

[Alaa mg]

sorry again . I lost my focus
excellent ! thanks very much