Private Sub CommandButton2_Click()
Dim i&, n&
For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).SubItems(2) = ComboBox1 Then n = Val(n) + ListView1.ListItems(i).SubItems(3)
If ListView1.ListItems(i).SubItems(2) = ComboBox3 Then Y = Val(Y) + ListView1.ListItems(i).SubItems(3)
Next i
ComboBox2 = n
ComboBox4 = Y
End Sub