Copy sheet theo điều kiện rồi paste

[dongducnhiem]

Chào các bạn thành viên GPE!
Tại sheet Paste, nếu ô A1 có tên sheet nào thì copy toàn bộ sheet đó và paste vào sheet pate
1/ Khi paste thì paste bắt đầu từ ô A3
2/ Khi paste thì giữ nguyên định dạng, độ rộng cột nhưng số liệu thì paste value
Ví dụ: tại ô A1 của sheet Paste là Copy3, như vậy khi chạy code thì nó copy sheet Copy3 và Paste qua sheet Paste
Chân thành cảm ơn các bạn!

 

[phulien1902]

Chào các bạn thành viên GPE!
Tại sheet Paste, nếu ô A1 có tên sheet nào thì copy toàn bộ sheet đó và paste vào sheet pate
1/ Khi paste thì paste bắt đầu từ ô A3
2/ Khi paste thì giữ nguyên định dạng, độ rộng cột nhưng số liệu thì paste value
Ví dụ: tại ô A1 của sheet Paste là Copy3, như vậy khi chạy code thì nó copy sheet Copy3 và Paste qua sheet Paste
Chân thành cảm ơn các bạn!

Bạn thử:

  Sheets("Paste").Range("a2:e1000").Clear
    For Each ws In Sheets
        If ws.Name = Sheets("Paste").Range("A1") Then
            ws.UsedRange.Copy
            With Sheets("Paste").Range("A3")
                .PasteSpecial xlPasteFormats
                .PasteSpecial xlPasteColumnWidths
                .PasteSpecial xlPasteValues
            End With
            Application.CutCopyMode = False
        End If
    Next

 

[thnghiachau]

Chào các bạn thành viên GPE!
Tại sheet Paste, nếu ô A1 có tên sheet nào thì copy toàn bộ sheet đó và paste vào sheet pate
1/ Khi paste thì paste bắt đầu từ ô A3
2/ Khi paste thì giữ nguyên định dạng, độ rộng cột nhưng số liệu thì paste value
Ví dụ: tại ô A1 của sheet Paste là Copy3, như vậy khi chạy code thì nó copy sheet Copy3 và Paste qua sheet Paste
Chân thành cảm ơn các bạn!

Nên chọn sheet"Paste" là sheet mà không có "ăn theo" việc chọn sheet nào paste vào sheet"Paste" thì tốt hơn nha bạn.

 

[dongducnhiem]

Cảm ơn các bạn nhiều!