I have the below that only finds the first value.
Code for textboxes in UserForm:
I apologize if this makes no sense.
Code for textboxes in UserForm:
Code:
With Worksheets("Active Sales Orders")
Dim rng As Range
Set tbl = Worksheets("Active Sales Orders").ListObjects("SOTable")
Set rng = tbl.ListColumns(1).DataBodyRange
Set f = .Range("SOTable").Find(lstSales.value, , xlValues, xlWhole)
If Not f Is Nothing Then
Populate 1st value =
txtFB.value = f.Offset(, 19)
Populate 2nd value =
Dim modelRange As Range
Set modelRange = Range("SOTable[Freight Booking]")
Do
DoEvents
Application.Calculate
Loop While Not Application.CalculationState = xlDone
Me.txtFB2.value = WorksheetFunction.Index(modelRange, WorksheetFunction.Match(Me.lstSales.Text, Range("SOTable[Document]"), f.Offset(, 19)))
I apologize if this makes no sense.
Last edited: