Multiplying TextBox Value with Values in ListBox

[hpernaf]

Hi everyone

I have a product registration spreadsheet with the fields: ID, Product type, Product Amount, Price, Total
sales.PNG


This data is loaded into a form by a ListBox where I search for the category in a ComboBox and click on the button to filter only the products in the respective category.
form.PNG

Is there any way to enter a value in the TextBox "Sold Amount" and have it multiplied with the values in my ListBox "Amount, Price and Total"?
Multiplying .PNG

These multiplied registrations should be recorded in my sheet: "Sales" according to the example below:

salesregister.PNG

Attached I am forwarding the spreadsheet.
If anyone can help me, I will be very grateful.

[hpernaf]

I solved the issue by creating the following Sub.

Sub Filter()
Dim line, linelistbox As Integer

Dim value_cell As String
Dim Quantidade As Double
'Quantidade = txtAmount

linelistbox = 0
line = 2

ListBox1.Clear

Application.ScreenUpdating = False

Plan1.Select
Do Until Plan1.Cells(line, 1) = ""
With Plan1

While .Cells(line, 1).Value <> ""

    
    value_cell = .Cells(line, 2).Value
    If UCase(Left(value_cell, Len(Combo_ProductType.Text))) = UCase(Combo_ProductType.Text) Then
    
If txtAmount <> "" Then
Quantidade = txtAmount
Else
Quantidade = 1
End If

  With ListBox1
  .AddItem
  .List(linelistbox, 0) = Plan1.Cells(line, 1)
  .List(linelistbox, 1) = Plan1.Cells(line, 2)
  .List(linelistbox, 2) = Plan1.Cells(line, 3)
.List(linelistbox, 3) = Plan1.Cells(line, 4) * Quantidade
.List(linelistbox, 4) = Format(Plan1.Cells(line, 5) * Quantidade, "Currency")
.List(linelistbox, 5) = Format(Plan1.Cells(line, 6) * Quantidade, "Currency")
  End With
  linelistbox = linelistbox + 1
  End If
  line = line + 1
  Wend
  End With
  
  Loop
  
  
End Sub