Snasui Excel Forum

Code: Select all

Private Sub TextBox1_Change()
Sheets("data").Range("$A$2:$B$" & Range("C65536").End(xlUp).Row).AutoFilter Field:=2, Criteria1:="*" & TextBox1.Value & "*"
End Sub

Private Sub TextBox2_Change()

End Sub
	

Code: Select all

Private Sub TextBox1_Change()
    Dim data as Range
    On Error Resume Next
    With Sheets("data")
        Set data = .Range("a2", .Range("b" & .Rows.Count).End(xlUp))
        If Application.CountIf(data, TextBox1.Text) > 0 Then
            TextBox2.Text = Application.VLookup(TextBox1.Text, data, 2, 0)
        Else
            TextBox2.Text = ""
        End If
    End With
End Sub

Code: Select all

'Êͧá¶Ç¢éÒ§ÅèÒ§à»ç¹ code à¡èÒ
'Private Sub TextBox1_Change()
'Sheets("data").Range("$A$2:$B$" & Range("C65536").End(xlUp).Row).AutoFilter Field:=2, Criteria1:="*" & TextBox1.Value & "*"
End Sub
Private Sub TextBox1_Change()
    Dim data As Range
    On Error Resume Next
    With Sheets("data")
        Set data = .Range("a2", .Range("b" & .Rows.Count).End(xlUp))
        If Application.CountIf(data, TextBox1.Text) > 0 Then
            TextBox2.Text = Application.VLookup(TextBox1.Text, data, 2, 0)
        Else
            TextBox2.Text = ""
        End If
    End With
End Sub