Xin giúp đỡ code VBA lọc dữ liệu (1 người xem)

[tuandat106]

Xin ACE GPE giúp đỡ code vba lọc và cập nhập dữ liệu nằm ngang khác sheet như trong file đính kèm. Mình xin cảm ơn!
các bạn xem file loc va cap nhap2.xls nhe

 

[dhn46]

Bạn cũng biết về VBA vậy bạn làm như sau:
1/ Copy vào Module code sau cho nút lệnh cập nhật

Sub Update()
    Dim NoFind As Range
    Set NoFind = Sheets("TONGHOP").Range("A6:A65536").Find([D2], , xlFormulas, xlWhole)
    Sheets("Chitiet").Range("D4:D43").Copy
    Sheets("TongHop").Cells(NoFind.Row, 7).PasteSpecial xlPasteValues, Transpose:=True
End Sub

2/ Copy Code sau cho code sheet Chitiet

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim NoFind As Range
    If Target.Address = "$D$2" Then
        Set NoFind = Sheets("TONGHOP").Range("A6:A65536").Find([D2], , xlFormulas, xlWhole)
        If Not NoFind Is Nothing Then
            With Sheets("TONGHOP")
            .Range(.Cells(NoFind.Row, 7), .Cells(NoFind.Row, 46)).Copy
            End With
            [D4].PasteSpecial xlPasteValues, Transpose:=True
        End If
    End If
End Sub

Các phần tiêu đề tương ứng cột B, C sheet chi tiết bạn tự làm nha.

 

[tuandat106]

Thanks bạn đã giúp đỡ mình