Lấy dữ liệu sau khi AutoFilter (2 người xem)

[k2d_nh0k]

Mình mới tìm hiểu về VBA excel cần mọi người giúp đỡ.
Mình muốn lấy bảng dữ liệu sau khi Filter sang 1 sheet khác.
và khi điều kiện Filter ngoài bản dữ liệu thì chương trình sẻ thông báo là "nội dung cần filter rỗng".

 

[BuiQuangThuan]

Mình mới tìm hiểu về VBA excel cần mọi người giúp đỡ.
Mình muốn lấy bảng dữ liệu sau khi Filter sang 1 sheet khác.
và khi điều kiện Filter ngoài bản dữ liệu thì chương trình sẻ thông báo là "nội dung cần filter rỗng".

Thử code này coi đúng ý không?

Sub FIL()
        Sheet2.UsedRange.Clear
        Sheet1.Range("a1").AutoFilter Field:=5, Criteria1:=">20"
        Sheet1.Range("a1").CurrentRegion.Copy Sheet2.Range("A1")
        If Sheet2.Range("B" & Rows.Count).End(3).Row < 2 Then
        Sheet2.UsedRange.Clear
        MsgBox "noi dung can filter rong"
        End If
    
    If Sheet1.AutoFilterMode = True Then Sheet1.AutoFilterMode = False
End Sub