Chạy 1 lúc nhiều command button

[huy_barca]

Em chào các Anh!
Trong file êxcel của em, hiện có 10 cái lọc...mỗi lần lọc dữ liệu em phải nhấn 10 cái. Như vậy có cách nào mình chỉ cần tạo 1 cái command button chung cho 10 cái lọc của em không ah.
Thanks các anh nhiều.

 

[huy_barca]

Em gởi file excel để các anh xem thử!

 

[ndu96081631]

Em chào các Anh!
Trong file êxcel của em, hiện có 10 cái lọc...mỗi lần lọc dữ liệu em phải nhấn 10 cái. Như vậy có cách nào mình chỉ cần tạo 1 cái command button chung cho 10 cái lọc của em không ah.
Thanks các anh nhiều.

Bạn chỉ cần chạy 1 Sub này là đủ:

Sub Main()
  Dim i As Long
  On Error Resume Next
  Sheet2.Range("A8:AC10000").Clear
  With Sheet3.Range("A1:T10000")
    For i = 1 To 19 Step 2
      .AutoFilter i, ">=" & CDbl(Sheet2.[B3]), xlAnd, "<=" & CDbl(Sheet2.[B4])
      .Resize(, 2).Offset(, i - 1).SpecialCells(12).Copy _
      Sheet2.Range("A7").Offset(, 3 * (i - 1) / 2)
      .AutoFilter
    Next
    MsgBox "Da thuc hien xong!"
  End With
End Sub

Xóa hết 10 sub kia đi

 

[huy_barca]

Thanks Anh! Đúng ý em rùi/