Code "ShowAllFilterFile" ở file A thì không chạy được cho File B

[LienDong]

Chào các anh, chị
Em có sưu tầm được code dưới ở diễn đàn này (nhưng không nhớ tên tác giả)

Sub ShowAllFilterFile()
Dim wks As Worksheet, n As Long
For Each wks In ThisWorkbook.Worksheets
If wks.AutoFilterMode Then
With wks.AutoFilter
For n = 1 To .Filters.Count
If .Filters(n).On Then .Range.AutoFilter n
Next
End With
End If
Next
End Sub

Mục đích code này là xả Filter cho tất cả các sheet trong file
Nhưng nếu code này ở file A mà chạy code để xả Filter cho tất cả các sheet trong file B thì nó không chạy (không bị lỗi gì, chỉ không thực thi)
Các anh, chị giúp em sửa code cho trường hợp trên
Em cảm ơn anh, chị.

 

[ndu96081631]

Chào các anh, chị
Em có sưu tầm được code dưới ở diễn đàn này (nhưng không nhớ tên tác giả)

Sub ShowAllFilterFile()
Dim wks As Worksheet, n As Long
For Each wks In ThisWorkbook.Worksheets
If wks.AutoFilterMode Then
With wks.AutoFilter
For n = 1 To .Filters.Count
If .Filters(n).On Then .Range.AutoFilter n
Next
End With
End If
Next
End Sub

Mục đích code này là xả Filter cho tất cả các sheet trong file
Nhưng nếu code này ở file A mà chạy code để xả Filter cho tất cả các sheet trong file B thì nó không chạy (không bị lỗi gì, chỉ không thực thi)
Các anh, chị giúp em sửa code cho trường hợp trên
Em cảm ơn anh, chị.

Thay For Each wks In ThisWorkbook.Worksheets thành For Each wks In Worksheets
Rõ ràng Thisworkbook là nói về workbook chứa code, bạn cũng hiểu mà

 

[LienDong]

Thay For Each wks In ThisWorkbook.Worksheets thành For Each wks In Worksheets
Rõ ràng Thisworkbook là nói về workbook chứa code, bạn cũng hiểu mà

Dạ em cảm ơn anh