Mình có thể nhờ các bạn cho xin đoạn mã code để copy sheet hiện hành mà chỉ copy giá trị và phần đã filter ra file mới ạ thanks!

[mrgiangnam]

Hiện mình đang phải lưu rất nhiều file mà thủ công thì lâu quá bạn nào có thể cho mình xin mà code để để copy sheet hiện hành mà chỉ copy giá trị và phần đã filter ra file mới ạ thanks!

 

[phulien1902]

Hiện mình đang phải lưu rất nhiều file mà thủ công thì lâu quá bạn nào có thể cho mình xin mà code để để copy sheet hiện hành mà chỉ copy giá trị và phần đã filter ra file mới ạ thanks!

Bạn đưa File demo để dễ dàng hướng dẫn.

 

[mrgiangnam]

Bạn đưa File demo để dễ dàng hướng dẫn.

nhờ bạn giúp

 

[phulien1902]

nhờ bạn giúp

Vì cấu trúc dữ liệu các Sheets của bạn khác nhau, nên không có Code tổng quát đươc. Bạn tham khảo Code cho Sheets("BAO_CAO"):

Sub Test()
    Dim Sh As Worksheet, Rng As Range
    Set Sh = Sheets("BAO_CAO")
    Set Rng = Sh.Range("A5").CurrentRegion
    Rng.SpecialCells(xlCellTypeVisible).EntireRow.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.[A1].PasteSpecial xlPasteValues
    Application.CutCopyMode = False
End Sub

 

[ndu96081631]

Vì cấu trúc dữ liệu các Sheets của bạn khác nhau, nên không có Code tổng quát đươc. Bạn tham khảo Code cho Sheets("BAO_CAO"):

Sub Test()
    Dim Sh As Worksheet, Rng As Range
    Set Sh = Sheets("BAO_CAO")
    Set Rng = Sh.Range("A5").CurrentRegion
    Rng.SpecialCells(xlCellTypeVisible).EntireRow.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.[A1].PasteSpecial xlPasteValues
    Application.CutCopyMode = False
End Sub

Dùng ActiveSheet.AutoFilter.Range sẽ lấy được chính xác vùng dữ liệu filter. Đương nhiên yêu cầu bắt buộc là sheet đó phải đang bật chế độ AutoFilter

 

[mrgiangnam]

Dùng ActiveSheet.AutoFilter.Range sẽ lấy được chính xác vùng dữ liệu filter. Đương nhiên yêu cầu bắt buộc là sheet đó phải đang bật chế độ AutoFilter

Mình cảm ơn bạn nhiều nhé