Code copy sheets (tùy chọn ) sang workbook khác rồi paste value (1 người xem)

[destinythanhphuong]

Chào các anh chị diễn đàn
Em hay gưi báo cáo hằng ngày mỗi lần làm đều thao tác chọn sheets cần gửi và move sang workbook khác, paste value .

Anh chị có thể viết dùm em code VBA ,
em cám ơn trước.

 

[phulien1902]

Chào các anh chị diễn đàn
Em hay gưi báo cáo hằng ngày mỗi lần làm đều thao tác chọn sheets cần gửi và move sang workbook khác, paste value .

Anh chị có thể viết dùm em code VBA ,
em cám ơn trước.

Bạn tham khảo Code:

Sub abc()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    Sheets.Add after:=Worksheets(Worksheets.Count)
    ws.UsedRange.Copy ActiveSheet.Range("A1")
    With ActiveSheet
        .UsedRange.Value = .UsedRange.Value
    End With
End Sub

 

[destinythanhphuong]

Cám ơn bạn nhưng ý mình tách sheet sang new book chứ không phải cùng chung workbook

 

[phulien1902]

Cám ơn bạn nhưng ý mình tách sheet sang new book chứ không phải cùng chung workbook

Vậy bạn thử cái này xem sao:

Sub abc()
    Sheets("Sheet cần chuyển về dl Value").Copy
    ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
End Sub

 

[destinythanhphuong]

Theo code đó là mình tự để tên sheet cố định , còn mình muốn tùy chọn nhiều sheets cần chuyển qua workbook mới paste value

 

[phulien1902]

Theo code đó là mình tự để tên sheet cố định , còn mình muốn tùy chọn nhiều sheets cần chuyển qua workbook mới paste value

Có lẽ trong lúc chờ có Code tối ưu, bạn làm tạm làm thế này đi:
- Copy dữ liệu của bạn sang 1 File mới( giữ lại những Sheet cần xử lý)
- Chạy Code sau( Chuyển dl về dạng Value):

Sub abc()
    Dim Dem As Integer
    Dim i As Integer
    Dem = ActiveWorkbook.Worksheets.Count
    For i = 1 To Dem
        With ActiveWorkbook.Worksheets(i).Cells
            .Copy
            .PasteSpecial Paste:=xlPasteValues
        End With
    Next i
End Sub

 

[destinythanhphuong]

Mình tìm trên mạng thì có đoạn code sau
Tuy nhiên những sheets được move sang work book mới ko được paste value

Sub PasteSheetsValues()     '     '
 Copies and Pastes Selected Sheets as Values to New Workbook      
Dim w As Worksheet    ActiveWindow.SelectedSheets.Copy    For Each w In ActiveWorkbook.Sheets        
With w.UsedRange            .Value = .Value       
End With    Next wEnd Sub