Snasui Excel Forum

Code: Select all

Private Sub TextBox2_AfterUpdate()
If WorksheetFunction.CountIf(Sheet2.Range("A:A"), Me.TextBox2.Value) = 0 Then
MsgBox "No data! Please insert name Correct"
Me.TextBox2.Value = ""
Exit Sub
End If
With Me
TextBox1 = Application.WorksheetFunction.VLookup(TextBox2, Sheet2.Range("Data1"), 2, 0)
End With
End Sub

Code: Select all

Private Sub TextBox2_AfterUpdate()
    Dim vAny As Variant
    If WorksheetFunction.CountIf(Sheet2.Range("A:A"), Me.TextBox2.Text) = 0 Then
            MsgBox "No data! Please insert name Correct"
        Me.TextBox2.Text = ""
        Exit Sub
    End If
    vAny = TextBox2.Text
    Set vAny = Sheet2.Range("a:a").Find(what:=vAny)
    TextBox1.Text = vAny.Offset(0, 1).Value
End Sub

Code: Select all

'Other code
With Me
    If IsNumeric(.TextBox2.Text) Then
        .TextBox1.Text = Application.WorksheetFunction.VLookup(CLng(TextBox2.Text), Sheet2.Range("Data1"), 2, 0)
    Else
        .TextBox1.Text = Application.WorksheetFunction.VLookup(TextBox2.Text, Sheet2.Range("Data1"), 2, 0)
    End If
End With