Xin code lọc Autofilter khi 1 ô thay đổi giá trị (1 người xem)

[hongtu1803]

Tôi nhờ mọi người giúp, viết code sau:
- Mỗi khi dữ liệu I1, trong sheet 1 thay đổi, thì sẽ autofilter tại F7:F500 (loại bỏ dòng trống)
- Trường hợp 2: ô I1 nằm trong sheet2, cũng làm autofilter như trên.

 

[Let'GâuGâu]

Tôi nhờ mọi người giúp, viết code sau:
- Mỗi khi dữ liệu I1, trong sheet 1 thay đổi, thì sẽ autofilter tại F7:F500 (loại bỏ dòng trống)
- Trường hợp 2: ô I1 nằm trong sheet2, cũng làm autofilter như trên.

1-bạn muốn kết quả filter tại chổ hay muốn copy đi dâu đó?
2-trường hợp 2, điều kiện để filter là gì?

 

[hongtu1803]

1-bạn muốn kết quả filter tại chổ hay muốn copy đi dâu đó?
2-trường hợp 2, điều kiện để filter là gì?

Tôi muốn kết quả tại chỗ (ẩn đi dòng trống dữ liệu)
Trường hợp 2: cũng như trường hợp 1, chỉ khác ở chỗ ô dữ liệu làm điều kiện (I1) nằm ở sheet khác.
Cảm ơn bác.

 

[Let'GâuGâu]

Tôi muốn kết quả tại chỗ (ẩn đi dòng trống dữ liệu)
Trường hợp 2: cũng như trường hợp 1, chỉ khác ở chỗ ô dữ liệu làm điều kiện (I1) nằm ở sheet khác.
Cảm ơn bác.

thử xem đúng ý bạn ko nha
chép cái này vào cửa sổ code của sheet1

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$I$1" Then Range([A6], [a1000].End(3).Resize(, 6)).AutoFilter Field:=6, Criteria1:="1"
End Sub

vào sheet2

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$I$1" Then
With Sheet1
.Range(.[A6], .[a1000].End(3).Resize(, 6)).AutoFilter Field:=6, Criteria1:="1"
End With
End If
End Sub

 

[hongtu1803]

thử xem đúng ý bạn ko nha
chép cái này vào cửa sổ code của sheet1

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$I$1" Then Range([A6], [a1000].End(3).Resize(, 6)).AutoFilter Field:=6, Criteria1:="1"
End Sub

vào sheet2

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$I$1" Then
With Sheet1
.Range(.[A6], .[a1000].End(3).Resize(, 6)).AutoFilter Field:=6, Criteria1:="1"
End With
End If
End Sub

Cảm ơn bác. Code chạy đúng ý em rồi