Excel Forum

Code: Select all

Private Sub BranchBox1_Change()
    On Error Resume Next
    If Len(Sheets("Sheet1").BranchBox1.Text) < 5 Then Exit Sub
    v = CLng(Sheets("Sheet1").BranchBox1.Value)
    With Application.WorksheetFunction
        Sheets("Sheet1").BranchBox2.Value = .VLookup(v, Sheets("data").Range("Name"), 2, False)
        Sheets("Sheet1").BranchBox3.Value = .VLookup(v, Sheets("data").Range("Name"), 3, False)
    End With
    If Err <> 0 Then
        MsgBox "Please check your code."
    End If
End Sub