Code ShowAllData khi AutoFilter!

[ThuNghi]

Code ShowAllData khi AutoFilter!
Khi lấy dòng cuối của 1 sh tối phải dùng

With Sheet1
  .AutoFilterMode = False
 End With

Nhưng như vậy thì Autofilter sẽ mất tác dụng. Mất công phải AuFi lại.
Khi đó tôi lại dùng

With Sheet1
  .ShowAllData
End With

Nhưng lại báo lỗi khi data đã ShowAll ie trạng thái kg AuFi.
Nhờ các bạn hd cách khắc phục ShowAllData để lấy dòng cuối mà kg cần dùng .AutoFilterMode
Chả nhẻ lại filter cái gì đó rồi ShowAll.
Xin cám ơn!

 

[ndu96081631]

Code ShowAllData khi AutoFilter!
Khi lấy dòng cuối của 1 sh tối phải dùng

With Sheet1
  .AutoFilterMode = False
 End With

Nhưng như vậy thì Autofilter sẽ mất tác dụng. Mất công phải AuFi lại.
Khi đó tôi lại dùng

With Sheet1
  .ShowAllData
End With

Nhưng lại báo lỗi khi data đã ShowAll ie trạng thái kg AuFi.
Nhờ các bạn hd cách khắc phục ShowAllData để lấy dòng cuối mà kg cần dùng .AutoFilterMode
Chả nhẻ lại filter cái gì đó rồi ShowAll.
Xin cám ơn!

Thì ThuNghi thêm On Error Resume Next ở trên là xong chứ gì... Nếu có Filter, nó sẽ ShowAll, không có thì cho qua

On Error Resume Next
Sheet1.ShowAllData
On Error GoTo 0