Snasui Excel Forum

ลองปรับโค้ดเป็นแบบนี้ดูครับ
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 ...

ขอโทษทีค่ะ เอาใหม่นะค่ะ
โค๊ดที่เขียนไว้ค่ะ

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 ...

ขอโทษค่ะ รูปไม่ขึ้นค่ะ

รบกวนท่านอาจารย์และผู้รู้ทุกท่านค่ะ
คือหนึ่งมีปัญหาเรื่อง Vlookup ใน UserForm ค่ะ
โค๊ดที่ใช้
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 ...