Copy filter qua sheet khác

[tongquangtuyen]

Nhờ Anh/Chị trên GPEX sửa dùm code ghi macro(em có ghi cụ thể trong sheet đính kèm) để ki chạy macro này thì sẽ copy dữ liệu đã filter qua sheet khác.
Em xin chân thành cảm ơn!

 

[concogia]

Nhờ Anh/Chị trên GPEX sửa dùm code ghi macro(em có ghi cụ thể trong sheet đính kèm) để ki chạy macro này thì sẽ copy dữ liệu đã filter qua sheet khác.
Em xin chân thành cảm ơn!

Bạn thử cái này xem

Public Sub loc()
    Dim Vung As Range
        Set Vung = Range([j2], [j50000].End(xlUp))
            With Vung.Resize(, 7)
                .AutoFilter 7, "1"
                .SpecialCells(12).Copy Sheets("JV").[a10000].End(xlUp)(2)
                .AutoFilter
        End With
End Sub

Thân

 

[nghiaphuc]

Nhờ Anh/Chị trên GPEX sửa dùm code ghi macro(em có ghi cụ thể trong sheet đính kèm) để ki chạy macro này thì sẽ copy dữ liệu đã filter qua sheet khác.
Em xin chân thành cảm ơn!

Bạn có thể bỏ cột Ghi_chu đi, thay vào đó là bảng tiêu chuẩn lọc:

|R
2|ĐK
3|=N3+O3>0

Và tạo Sub Copy_TK như sau:

Sub Copy_TK()
    Sheet5.Activate
    Range(Sheet2.[J2], Sheet2.[J65536].End(xlUp)).Resize(, 6).AdvancedFilter xlFilterCopy, Sheet2.[R2:R3], [A1]
End Sub

Cuối cùng là Assign Macro cho nút Copy Tài_Khoản của bạn là Sub Copy_TK và nhấn nút này thử xem sao nhé.