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!

Liên hệ QC

mrgiangnam

Thành viên mới
Tham gia
10/4/11
Bài viết
4
Được thích
1
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!
 
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"):
PHP:
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
 
Upvote 0
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"):
PHP:
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
 
Upvote 0
Web KT
Back
Top Bottom