Tạo nút Tổng họp (1 người xem)

[Excel365]

Tạo nút Tổng hợp

Private Sub Worksheet_Activate()
    Dim Ws As Worksheet
    Application.ScreenUpdating = False
    [3:65536].Delete
    For Each Ws In ThisWorkbook.Worksheets
        If Ws.Name <> "Luong" Then
            Ws.[3:1000].Copy: [A65536].End(xlUp).Offset(1).PasteSpecial xlPasteValues
        End If
    Next
    Application.ScreenUpdating = True
End Sub

EM không muốn khi Click sang SHeets Tỏng hợp noa sẽ tự động Refresh. Mà là tạo 1 nút bấm.
Nhờ các anh / chị giúp em tao nút bấm Tổng hơp.

Trân trọng cảm ơn

 

[Excel365]

Em gởi file lên

nhờ các anh chị giúp em.
Trân trọng !

 

[Excel365]

CHo em hỏi
Tai sao em lập công thức lấy dữ liệu Bên Sheet Tổng hợp sang Sheet Lương , nhưng khi bấm nút tổng hợp , thì Bên sheet Lương công thức lại báo lỗi #Ref!