Cần mọi người giúp về tạo nút Run module trên UserForm!

[Kelvin123]

Mình có code tổng hợp dữ liệu nhiều sheet vào sheet tổng! Code như sau:
Private Sub Worksheet_Activate()
Dim Sh As Worksheet, ws As Worksheet, LR&, NR&, Rng As Range
Application.ScreenUpdating = False
Set Sh = ActiveWorkbook.Sheets("MASTER")
Sh.Cells.Clear: NR = 1
For Each ws In Worksheets
If ws.Name <> Sh.Name Then
LR = ws.Range("A" & ws.Rows.Count).End(3).Row
If NR = 2 Then
ws.Range("A11", ws.Cells(11, Columns.Count).End(xlToLeft)).Copy
Sh.Range("A22").PasteSpecial xlPasteAll: NR = 22
End If
ws.Range("A11:Z" & LR).Copy
Sh.Range("A" & NR).PasteSpecial xlPasteValues
NR = Sh.Range("A" & Sh.Rows.Count).End(xlUp).Row + 1
End If
Next
Worksheets("MASTER").Range("A21:Z21").Value = Worksheets("Phuong 1").Range("A10:Z10").Value
Set Rng = Worksheets("MASTER").Range("Z21").CurrentRegion
Worksheets("MASTER").Range("A21:Z10000").Font.Name = "Times New Roman"
Worksheets("MASTER").Range("A21:Z10000").HorizontalAlignment = xlCenter
Worksheets("MASTER").Range("A21:Z10000").VerticalAlignment = xlCenter
Worksheets("MASTER").Range("A21:Z21").Interior.ColorIndex = 3
Worksheets("MASTER").Range("A22:Z10000").Interior.ColorIndex = 19
Worksheets("MASTER").Range("A1:Z20").Interior.ColorIndex = 19
Worksheets("MASTER").Range("A21:Z21").Font.ColorIndex = 2
Worksheets("MASTER").Range("A21:Z21").Font.Bold = False
Worksheets("MASTER").Range("A21:Z21").EntireRow.RowHeight = 25
Worksheets("MASTER").Range("A21:Z21").Font.Size = 13
Worksheets("MASTER").Range("A22:Z10000").Font.Size = 12
Rng.Borders.LineStyle = xlContinuous
End Sub

Các bạn có cách nào để tạo nút Run mudule chứa code trên vào trong UserForm không???? Hoặc có cách nào tự động Run code trên khi mở file Excel hay không? Vì mỗi lần cập nhật dữ liệu mới vào các sheet thì phải bấm Run để cập nhật dữ liệu vào Sheet Tổng rất bất tiện! Cám ơn mọi người nhiều!

 

[DOTEXCEL2010]

Bạn nên up kèm theo file excel của bạn để ai biết mà làm giúp còn đưa code mắc công làm file nữa.

 

[Kelvin123]

Bạn nên up kèm theo file excel của bạn để ai biết mà làm giúp còn đưa code mắc công làm file nữa.

Mình gửi bạn file mẫu nhé! File chính mình dữ liệu hơi kín nên hk up lên được! Bạn thông cảm nhé!

 

[Kelvin123]

Code này học ở đâu vậy. mình đang chập chững VBA

Của bạn gì trên diễn đàn ah bạn! Mh cũng gà nè hi

 

[Kelvin123]

Bạn nên up kèm theo file excel của bạn để ai biết mà làm giúp còn đưa code mắc công làm file nữa.

Có thể giúp mh k bạn