Conditionally Sum Values in Column and Display Sum in Form Field

I have a form that has a value in a field and have made many attempts to use that value to select a range from a table on the basis of the value in the form field and then sum the values in the column that met the condition (in form field) and display a running total of the sum in another field on the form.


I've attached a sample file for clarity.

Any assistance wuld be greatly appreciated as it appears to be beyond my skill level.

Thanks.ShipTotTest.xls

Replace your code in the command button1 with the following code:

Fltr = UserForm1.TextBox1.Value
shiptotest (Fltr)

This code will basically read what you have typed on the text box and then will call a sub called shiptotest passing the parameter you keyed in textbox1.
This is the code you want to populate textbox2:

Sub shiptotest(Fltr)
    Columns("B:B").AutoFilter Field:=1, Criteria1:=Fltr
    iLastRow = Range("K65536").End(xlUp).Row
    i = WorksheetFunction.Sum(Range("K1:K" & iLastRow).SpecialCells(xlCellTypeVisible))
   UserForm1.TextBox2 = i
End Sub

If this is helpful please click on the Star icon to add to user's reputation and also mark your question as answered

Here is a file

Works great!!!

I was totally on the wrong path to solving this issue.

Thanks so much.

Raul,

I've been trying to add a second criteria for the filter and sum in the above file "Test.xls", but haven't been successful.

I'm trying to use column D (BoxNo) as the second condition to sum.

Can you help?