Code tự động chạy CommandButton ở hai Sheet

[khamha]

Nhờ các bạn giúp viết cho mình cái Code để tự động chạy CommandButton ở hai Sheet.
tức là khi ta bấ́m nút CommandButton1 ở Sheet"Loc1" Thì cái CommandButton1 ở Sheet"Loc2" cũng tự chạy.
Cảm ơn các bạn.

 

[nghiaphuc]

Nhờ các bạn giúp viết cho mình cái Code để tự động chạy CommandButton ở hai Sheet.
tức là khi ta bấ́m nút CommandButton1 ở Sheet"Loc1" Thì cái CommandButton1 ở Sheet"Loc2" cũng tự chạy.
Cảm ơn các bạn.

Theo mình thì bạn nên tạo 2 sub Loc1 và Loc2. Sau đó code cho CommandButton1 (ở sheet1 hay sheet2 đều được) chỉ cần có 2 câu lệnh như sau:

Private Sub CommandButton1_Click
    Loc1 : Loc2
End

Hoặc bạn tạo thêm 1 Sub Loc với nội dung như trên (Loc1 : Loc2), sau đó code cho CommandButton1 chỉ là có 1 câu lệnh Loc
Hoặc đơn giản hơn nữa gộp tất cả dãy lệnh của 2 sub Loc1 và Loc2 vào thành 1 sub Loc rồi thực hiện như cách 2 ở trên.

 

[khamha]

Theo mình thì bạn nên tạo 2 sub Loc1 và Loc2. Sau đó code cho CommandButton1 (ở sheet1 hay sheet2 đều được) chỉ cần có 2 câu lệnh như sau:

Private Sub CommandButton1_Click
    Loc1 : Loc2
End

Hoặc bạn tạo thêm 1 Sub Loc với nội dung như trên (Loc1 : Loc2), sau đó code cho CommandButton1 chỉ là có 1 câu lệnh Loc
Hoặc đơn giản hơn nữa gộp tất cả dãy lệnh của 2 sub Loc1 và Loc2 vào thành 1 sub Loc rồi thực hiện như cách 2 ở trên.

Mình đã làm theo bạn hướng dẫn nhưng không được,mình đưa File lên nhờ bạn xem và làm hộ mình với.
Cảm ơn bạn.

 

[khoavu87]

Mình đã làm theo bạn hướng dẫn nhưng không được,mình đưa File lên nhờ bạn xem và làm hộ mình với.
Cảm ơn bạn.

Tạo một module sau đó cho đoạn code này vào:

Sub loc1()
Sheets("Sheet1").Range("$A$1:$F$65536").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("Loc1!$A$2:$D$3"), CopyToRange:=Range( _
        "Loc1!$A$4:$F$4"), Unique:=True
        'Range("A3:D3").ClearContents
        '''''''''''''''
        Loc2
End Sub
Sub Loc2()
Sheets("Sheet1").Range("$A$1:$F$65536").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("Loc2!$A$1:$D$2"), CopyToRange:=Range( _
        "Loc2!$A$3:$F$3"), Unique:=True
End Sub

Sau đó

Private Sub CommandButton1_Click()
loc1
End Sub

 

[khamha]

Chà,Hóa ra cái Code của bạn nghiaphuc thừa chữ Loc2

Private Sub CommandButton1_Click()
Loc1 : Loc2
End Sub

 

[viehoai]

Chà,Hóa ra cái Code của bạn nghiaphuc thừa chữ Loc2

Private Sub CommandButton1_Click()
Loc1 : Loc2
End Sub

Theo mình hiểu không phải là thừa vì Code loc1của khoavu đã có lệnh gọi loc2, nếu code loc1 không có lệnh loc2 thì phải áp dụng như anh nghiaphuc