Tự động chuyển đến ô tương ứng sau khi chạy code lọc (1 người xem)

[Nguyễn Hồng Quang]

Em chào các anh, chị và các thầy cô
HIện em có 1 file excel đang sử dụng Textbox để lọc tự động

Tuy nhiên khi em gắn thêm đoạn code đi đến ô tương ứng tại cột L thì
code lọc không hoạt động đúng. (Cụ thể là khi vừa gõ được 1 số đầu tiên của Mã vào Textbox thì Excel lập tức nó nhảy luôn đến 1 ô không liên quan)
Điều em muốn là sau khi nhập đủ các số của mã hàng thì mới đi đến ô tương ứng tại cột L

Mong các anh chi và thầy cô giúp em xử lý lỗi

 

[Hai Lúa Miền Tây]

Em chào các anh, chị và các thầy cô
HIện em có 1 file excel đang sử dụng Textbox để lọc tự động

Tuy nhiên khi em gắn thêm đoạn code đi đến ô tương ứng tại cột L thì
code lọc không hoạt động đúng. (Cụ thể là khi vừa gõ được 1 số đầu tiên của Mã vào Textbox thì Excel lập tức nó nhảy luôn đến 1 ô không liên quan)
Điều em muốn là sau khi nhập đủ các số của mã hàng thì mới đi đến ô tương ứng tại cột L

Mong các anh chi và thầy cô giúp em xử lý lỗi

Bắt sự kiện nó, nó đâu biết lúc nào thì bạn gõ xong??? Bạn phải cho nó biết khi nào bạn gõ xong chứ. Ví dụ khi gõ xong, nhấn enter, như vậy sau khi ấn cái enter thì nhiệm vụ nó sẽ thực hiện theo ý đồ của bạn.

Ví dụ:

Private Sub TextBox1_Change()
    ActiveSheet.ListObjects("Listnguyentrai").Range.AutoFilter Field:=2, _
            Criteria1:="*" & [b1] & "*", Operator:=xlFilterValues
    
End Sub


Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode.Value = 13 Then
        Range("L1:M1").Select
        Selection.End(xlDown).Select
        Selection.End(xlDown).Select
    End If

End Sub

 

[Nguyễn Hồng Quang]

Em cảm ơn thầy đã giúp đỡ
Em còn 1 vấn đề này nữa ạ
Vấn là Bảng tính đó
Em làm 1 cái Button , Em đã gắn được code là sau khi kích chuột vào Button thì xóa nội dung trong TextBox.
Nhưng khổ nỗi em muốn thêm 1 thao tác nữa là sau khi xóa nội dụng trong TextBox thì con trỏ chuột nó sẽ truy cập vào trong TextBox đó để tiếp tục tìm kiếm các mã khác. Nhưng em loay hoay mãi chưa làm được
Chi tiết như fle gửi kèm

 

[Hai Lúa Miền Tây]

Em cảm ơn thầy đã giúp đỡ
Em còn 1 vấn đề này nữa ạ
Vấn là Bảng tính đó
Em làm 1 cái Button , Em đã gắn được code là sau khi kích chuột vào Button thì xóa nội dung trong TextBox.
Nhưng khổ nỗi em muốn thêm 1 thao tác nữa là sau khi xóa nội dụng trong TextBox thì con trỏ chuột nó sẽ truy cập vào trong TextBox đó để tiếp tục tìm kiếm các mã khác. Nhưng em loay hoay mãi chưa làm được
Chi tiết như fle gửi kèm

Bạn chỉnh lại code như sau nhé:

Sub ListnhpNguynTrãi_Button30_Click()
'Dim tbx As OLEObject
'For Each tbx In ActiveSheet.OLEObjects
'If TypeName(tbx.Object) = "TextBox" Then
'tbx.Object.Text = ""
'End If
'Next
    With Sheet1.TextBox1
        .Activate
        .Text = ""
    End With

End Sub

 

[Nguyễn Hồng Quang]

Vâng code chạy đúng như ý rồi ạ