Sửa lỗi Show All khi đã thực sự Show All

[dnphuonganh]

Sau khi dùng một đoạn mã để ẩn các dòng trống bằng Filter, em dùng đoạn mã sau để bỏ chế độ lọc:

Sub ShowAll()
ActiveSheet.ShowAllData
End Sub

và gán nó cho một commandbutton.
Có vấn đề là khi em đã bấm vào nút để bỏ filter, nếu bấm lại một lần nữa thì bị báo lỗi Run-time error '1004'.
Xin các anh chị hướng dẫn thêm để không gặp lỗi này nữa.
Cảm ơn các anh chị.

 

[Hai Lúa Miền Tây]

Sau khi dùng một đoạn mã để ẩn các dòng trống bằng Filter, em dùng đoạn mã sau để bỏ chế độ lọc:

và gán nó cho một commandbutton.
Có vấn đề là khi em đã bấm vào nút để bỏ filter, nếu bấm lại một lần nữa thì bị báo lỗi Run-time error '1004'.
Xin các anh chị hướng dẫn thêm để không gặp lỗi này nữa.
Cảm ơn các anh chị.

Bạn thêm dòng sau vào code nhé.

Sub ShowAll()
[COLOR=Blue][B]On Error Resume Next[/B][/COLOR]
ActiveSheet.ShowAllData
End Sub