Tự động lọc dữ liệu từ Sheet A sang Sheet B bằng click chuột

[longcin191119]

Nhờ các anh/chị giúp em trường hợp như bên dưới:
Khi double click vào Column A ở sheet " DLTQ" thì tự động chuyển sang sheet " DLCT" và filter theo đúng vị trí click chuôt với ạ ((

Em xin gửi file đính kèm ạ.

 

[anhtuan2939]

Bạn thử code này xem sao, code này nhập vào worksheet của sheet!DLTQ nhé.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim lr As Long
    Dim Ma_khach_hang As String

    Application.ScreenUpdating = False
    lr = Range("A" & Rows.Count).End(xlUp).Row

    If Not Intersect(Target, Range("A4:A" & lr)) Is Nothing Then
        Ma_khach_hang = Target.Value
        With Sheets("DLCT")
            .Select
            If .AutoFilterMode = True Then .AutoFilterMode = False
            lr = .Range("A" & Rows.Count).End(xlUp).Row
            .Range("A4:X" & lr).AutoFilter Field:=1, Criteria1:=Ma_khach_hang
        End With
    End If
    Application.ScreenUpdating = True

End Sub