Viết dùm em code copy dữ liệu sang Sheet bên

[tuyettrang186]

Em có ví dụ, nhờ anh chị viết dùm em code copy dữ liệu sang Sheet2 khi mình chọn nó.

 

[ngh_khanh]

Em có ví dụ, nhờ anh chị viết dùm em code copy dữ liệu sang Sheet2 khi mình chọn nó.

Dạng bài này ở GPE có rất nhiều mà bạn!?
Bạn tham khảo code này:

Private Sub Worksheet_Activate()
    Dim eR As Long, iR As Long
    Application.ScreenUpdating = False
    Range("A5:H65535").Clear
    eR = S1.Range("A65535").End(xlUp).Row
    S1.Range("A2:H" & eR).Copy Destination:=S2.[A5]
    For iR = S2.[a65535].End(xlUp).Row To 5 Step -1
        If Cells(iR, 1) & Cells(iR, 2) & Cells(iR, 3) = Cells(iR - 1, 1) & _
            Cells(iR - 1, 2) & Cells(iR - 1, 3) Then Cells(iR, 1).Resize(, 3) = Empty
    Next
    Application.ScreenUpdating = True
End Sub

Bạn dán nó vào Sheet2 nhé!

 

[Thaiduc]

Sau khi dán vào Sheets2 thì báo lỗi ở đoạn: eR = S1.Range("A65535").End(xlUp).Row

 

[chapi.you]

Sau khi dán vào Sheets2 thì báo lỗi ở đoạn: eR = S1.Range("A65535").End(xlUp).Row

Tôi sửa lại chút code của @ngh_khanh một chút, như vầy:

Private Sub Worksheet_Activate()
    Dim eR As Long, iR As Long
    Application.ScreenUpdating = False
    Range("A5:H65535").Clear
    eR = Sheet1.Range("A65535").End(xlUp).Row
    Sheet1.Range("A2:H" & eR).Copy Destination:=Sheet2.[A5]
    For iR = Sheet2.[a65535].End(xlUp).Row To 5 Step -1
        If Cells(iR, 1) & Cells(iR, 2) & Cells(iR, 3) = Cells(iR - 1, 1) & _
            Cells(iR - 1, 2) & Cells(iR - 1, 3) Then Cells(iR, 1).Resize(, 3) = Empty
    Next
    Application.ScreenUpdating = True
End Sub

Bạn dán code sự kiện này vào Sheet2 nhé!