Lọc dữ liệu tự động !Help (1 người xem)

[quocuan119]

Hi anh em!
Mình có 1 hàm lọc dữ liệu như sau :

Private Sub Worksheet_Activate()
Sheet1.Range("A1:J1000").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheet1.Range("O1:O2"), CopyToRange:=Sheet1.Range("O3:X100"), Unique:=False
End Sub

Nhưng nó chỉ lọc khi nào link qua 1 sheet khác rồi trở về sheet ban đầu thì nó mới lọc
Anh em nào giúp mình lọc tự động hơn : chỉ cần sau khi nhập liệu xong thì hàm lọc luôn tức thời.
Thanks all

 

[Ngoai Thanh]

Bạn thử sửa thế này xem, nhin code đoán rồi sửa, không hiểu sao file của bạn mình không mở được .
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$O$2" Then
Sheet1.Range("A1:J1000").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheet1.Range("O1:O2"), CopyToRange:=Sheet1.Range("O3:X100"), Unique:=False
End If
End Sub