Vlookup through 3 sheets from one lookup value result in all textbox in userform vba

**Tinbendr** · 06-06-2014, 10:57 AM

You'll have to line up the textbox numbers with the column numbers.

Private Sub CommandButton1_Click()
Dim Answer As Variant
Dim A As Long
Dim tmp
    Answer = TextBox1.Value
    If Answer <> "" Then
        For A = 2 To 37
        '=VLOOKUP(B2, B2:AQ165000,2,0)
        tmp = Application.VLookup(Val(Answer), Worksheets("Dispatchcalls").Range("B1:AQ16"), A - 1, False)
            Me.Controls("TextBox" & A).Value = tmp
         'so on and so forth for several other combo- and textboxes
        Next
    End If
End Sub

**breadwinner** · 06-07-2014, 04:10 AM

Dear sir

Its Lookup range from dispatchcalls sheet only..
but requirement is Onelookup value is through order no get result in to text from 3 sheets because order no in dispatch reflects into closed and cancel also..

for e.g Order no 7005230838 is reflect in two dispatch & closedcalls also i want vlookup from dispatch for first 23s textbox then 11 textboxs from closedcalls.
another example order no 7005233198 is reflect in three sheets i want vlookup from dispatch for first 23s textbox then 11 textboxs from closedcalls. then 2 textbos from cancelcalls..

find the attachment....