chạy nhiều macro trong một button

[ishikawangocthuy]

Xin chào mọi người!
Cho em hỏi mình có thể chạy cùng lúc 2 macro trở lên trong một button không ah.?
Em có làm thử như đã viết ở dưới nhưng nó chỉ hiện ra macro của book1 thôi không có đóng book2.
Mong mọi người giúp đỡ.

Sub MacroA()
Application.ScreenUpdating = False
    On Error Resume Next
    Dim wbUserform As Workbook
    Set wbUserform = Workbooks.Open("C:\Users\user1\Desktop\data\Book1.xlsm")
    Application.Run "'C:\Users\user1\Desktop\data\Book1.xlsm'!Macro1"
End Sub
Sub MacroB()
    Workbooks("Book2.xlsm").Close SaveChanges:=True
End Sub
/////////////////
Private Sub CommandButton3_Click()
call MacroA
call MacroB
End sub

 

[Maika8008]

Xin chào mọi người!
Cho em hỏi mình có thể chạy cùng lúc 2 macro trở lên trong một button không ah.?
Em có làm thử như đã viết ở dưới nhưng nó chỉ hiện ra macro của book1 thôi không có đóng book2.
Mong mọi người giúp đỡ.

Sub MacroA()
Application.ScreenUpdating = False
    On Error Resume Next
    Dim wbUserform As Workbook
    Set wbUserform = Workbooks.Open("C:\Users\user1\Desktop\data\Book1.xlsm")
    Application.Run "'C:\Users\user1\Desktop\data\Book1.xlsm'!Macro1"
End Sub
Sub MacroB()
    Workbooks("Book2.xlsm").Close SaveChanges:=True
End Sub
/////////////////
Private Sub CommandButton3_Click()
call MacroA
call MacroB
End sub

Bạn hỏi cái đến chịu luôn. Tiêu đề là chạy nhiều macro, trong bài thì chạy "cùng lúc". Nhiều macro sao chạy cùng lúc được. Chúng chỉ được chạy hết cái này đến cái kia hoặc là chạy cái này thay vì cái kia.

 

[ishikawangocthuy]

Bạn hỏi cái đến chịu luôn. Tiêu đề là chạy nhiều macro, trong bài thì chạy "cùng lúc". Nhiều macro sao chạy cùng lúc được. Chúng chỉ được chạy hết cái này đến cái kia hoặc là chạy cái này thay vì cái kia.

bạn thông cảm ý của mình không rõ ràng lắm tức là mình muốn sau khi chạy hết marcro A sẽ chạy đến macro B nhưg hiện tại chuong trình mình viết thì nó chỉ chạy cái macroA mà không chạy MacroB,bạn biết lý do thì chỉ mình với ah?

 

[Excel my love_1]

Vậy bạn lồng Macro B vào gần cuối Macro A là nó sẽ nối tiếp luôn

 

[anhtuan2939]

Xin chào mọi người!
Cho em hỏi mình có thể chạy cùng lúc 2 macro trở lên trong một button không ah.?
Em có làm thử như đã viết ở dưới nhưng nó chỉ hiện ra macro của book1 thôi không có đóng book2.
Mong mọi người giúp đỡ.

Sub MacroA()
Application.ScreenUpdating = False
    On Error Resume Next
    Dim wbUserform As Workbook
    Set wbUserform = Workbooks.Open("C:\Users\user1\Desktop\data\Book1.xlsm")
    Application.Run "'C:\Users\user1\Desktop\data\Book1.xlsm'!Macro1"
End Sub
Sub MacroB()
    Workbooks("Book2.xlsm").Close SaveChanges:=True
End Sub
/////////////////
Private Sub CommandButton3_Click()
call MacroA
call MacroB
End sub

Mình nghĩ vì khi chạy call MacroA thì lúc đó Book1 là workbook hiện hành, mà trong workbook này không có MacroB nên nó ko chạy được. Bạn thử chèn vào giữa call MacroA và call MacroB 1 dòng lệnh để gọi lại workbook có nút CommandButton3 xem có được ko?

 

[hoahongden142917]

Xin chào mọi người!
Cho em hỏi mình có thể chạy cùng lúc 2 macro trở lên trong một button không ah.?
Em có làm thử như đã viết ở dưới nhưng nó chỉ hiện ra macro của book1 thôi không có đóng book2.
Mong mọi người giúp đỡ.

Sub MacroA()
Application.ScreenUpdating = False
    On Error Resume Next
    Dim wbUserform As Workbook
    Set wbUserform = Workbooks.Open("C:\Users\user1\Desktop\data\Book1.xlsm")
    Application.Run "'C:\Users\user1\Desktop\data\Book1.xlsm'!Macro1"
End Sub
Sub MacroB()
    Workbooks("Book2.xlsm").Close SaveChanges:=True
End Sub
/////////////////
Private Sub CommandButton3_Click()
call MacroA
call MacroB
End sub

bạn làm thử này xem vì mình cũng đang dùng cách này và ổn:
Sub chay_taomagv()
Application.Run "sumproduc"
Application.Run "VLOUP"
End Sub
giải thích: giả sử mình đang có 2 sub sumproduc và VLOUP trong cùng 1 file excel. Mình tạo 1 nút button cho sub chay_taomagv thì nó sẽ chạy 2 sub kia. Tương tự vậy bạn lồng mấy sub kia vô nhé. Hy vọng giúp được bạn