Copy tất cả các sheets Paste Special Values vào 1 sheets (1 người xem)

[ltchd1983]

Em chào cả nhà !
Em tìm trên mạng https://superuser.com/questions/1455592/excel-copy-data-from-multiple-sheets-to-one-sheet được đoạn code VBA này.
Em muốn copy paste special values vào sheets GOP (vì các sheets trong worksheets của em có công thức) mà em không chỉnh được.
ACE giúp em sửa với ạ.

Sub GOPSHEET()

    Dim I As Long
    Dim xRg As Range

    On Error Resume Next

    Worksheets.Add Sheets(1)

    ActiveSheet.Name = "GOP"

   For I = 2 To Sheets.Count
        Set xRg = Sheets(1).UsedRange

        If I > 2 Then
            Set xRg = Sheets(1).Cells(xRg.Rows.Count + 1, 1)
        End If

        Sheets(I).Activate
        ActiveSheet.UsedRange.Copy xRg
    Next

End Sub

PasteSpecial Paste:=xlValues

 

[Hoàng Nhật Phương]

Em chào cả nhà !
Em tìm trên mạng https://superuser.com/questions/1455592/excel-copy-data-from-multiple-sheets-to-one-sheet được đoạn code VBA này.
Em muốn copy paste special values vào sheets GOP (vì các sheets trong worksheets của em có công thức) mà em không chỉnh được.
ACE giúp em sửa với ạ.

Sub GOPSHEET()

    Dim I As Long
    Dim xRg As Range

    On Error Resume Next

    Worksheets.Add Sheets(1)

    ActiveSheet.Name = "GOP"

   For I = 2 To Sheets.Count
        Set xRg = Sheets(1).UsedRange

        If I > 2 Then
            Set xRg = Sheets(1).Cells(xRg.Rows.Count + 1, 1)
        End If

        Sheets(I).Activate
        ActiveSheet.UsedRange.Copy xRg
    Next

End Sub

PasteSpecial Paste:=xlValues

Bạn thử sửa dòng:

ActiveSheet.UsedRange.Copy xRg

thành:

ActiveSheet.UsedRange.Copy
xRg.PasteSpecial xlPasteValues

 

[ltchd1983]

Bạn thử sửa dòng:

ActiveSheet.UsedRange.Copy xRg

thành:

ActiveSheet.UsedRange.Copy
xRg.PasteSpecial xlPasteValues

Cảm ơn sự giúp đỡ của @Nguyễn Hoàng Oanh Thơ
Code đã copy paste special values vào sheets GOP

 

[huynhphucduy71]

lần sau trường hợp này ông cứ ghi 1 macro là xong thôi, không cần phải search google làm gì
vào tab developer chọn record macro xong thao tác copy/paste gì đó, máy tính sẽ chuyển thao tác thành code, chọn stop để ngừng ghi, vậy là ông có code chính xác thôi