sửa dùm đoạn code lọc

[yome]

Chào anh chị GPE! Em có file này nhưng không biết em làm sai chỗ nào mà không lọc được. Anh chị kiểm tra code ở sheet "NHAP VE BAN" nhé!

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$C$1" Then
   [A6].CurrentRegion.AutoFilter 8, IIf(Target = "", "<>", Target)
  End If
End Sub

Cám ơn anh chị nhiều!

Đây là file em đang làm dở nhé!

 

[solomon2211]

Bạn sửa lại thành như sau:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$1" Then
[A6].Select
[A6].CurrentRegion.AutoFilter 8, IIf(Target = "", "<>", Target)
End If
End Sub

Có đúng ý bạn không nhé!

 

[ndu96081631]

Chào anh chị GPE! Em có file này nhưng không biết em làm sai chỗ nào mà không lọc được. Anh chị kiểm tra code ở sheet "NHAP VE BAN" nhé!

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$C$1" Then
   [A6].CurrentRegion.AutoFilter 8, IIf(Target = "", "<>", Target)
  End If
End Sub

Cám ơn anh chị nhiều!

Đây là file em đang làm dở nhé!

Code không sai, chỉ là bạn đã AutoFilter cột H và I trước đó rồi ---> Vậy bỏ AutoFilter 2 cột này, xong hẳn chạy lại code nhé
Thêm nữa: Code này chỉ có tác dụng bỏ các dòng trống trong bảng tính, vậy cần gì đến code và cột phụ nhỉ? Cứ AutoFilter bằng tay bình thường, tôi nghĩ cũng không đến nổi gì gọi là cực khổ

 

[yome]

nó vẫn báo lỗi. không lọc được anh ah! anh sửa luôn file em gửi kèm!? Thanks

 

[yome]

Cám ơn các bác nhiều. Em đã làm được rồi!

 

[ndu96081631]

Cám ơn các bác nhiều. Em đã làm được rồi!

Bạn đã viết trên 100 bài... cũng được nhắc nhở (ít nhất 1 lần) về vụ CẢM ƠN này rồi
Nói chung:
- 1 là bấm vào nút THANKS
- 2 là không bấm và cũng không cần viết thêm gì cả (trừ phi bạn có thắc mắc khác)