Nhờ giúp về AdvancedFilter 2

[ngocthieugia]

Chào cả nhà
mình có thắc mắc về hàm AdvFilter khi trả về giữ liệu lại không cập nhật giá trị âm
không biết code mính sai hay vấn đề ở đâu nhờ các cao thử chỉ giáo


Sub Test_AdvFilter()
Sheet2.Range("A6:O100").ClearContents
Sheet1.Range("A1", Sheet1.Range("O" & Rows.Count).End(xlUp)).AdvancedFilter 2, Sheet2.[A12], Sheet2.[A6]
End Sub

thanks!

 

[SA_DQ]

Trước tiên bạn đưa bài không đúng chỗ, vì đây là ngăn dành cho công thức, mà bài của bạn đang hỏi là VBA
Thứ 2 mình thấy macro chạy vẫn đúng, tuy với mình thì không ưa cho lắm cách viết của bạn.
Bằng chứng là mình thêm vô ô [D2] của trang 'Vidu2 cụm từ 'GA21' thì macro vẫn cho kết quả đúng.
Bạn đang không cập nhật trị ở trường 'Tong' vì bạn đang có 2 trường 'Tong'
Nếu ta thêm 1 trong 2 trường dấu "_" thì mọi chuyện sẽ bình yên thật sự


Chúc tuần làm việc vui vẻ!

 

[phulien1902]

Chào cả nhà
mình có thắc mắc về hàm AdvFilter khi trả về giữ liệu lại không cập nhật giá trị âm
không biết code mính sai hay vấn đề ở đâu nhờ các cao thử chỉ giáo


Sub Test_AdvFilter()
Sheet2.Range("A6:O100").ClearContents
Sheet1.Range("A1", Sheet1.Range("O" & Rows.Count).End(xlUp)).AdvancedFilter 2, Sheet2.[A12], Sheet2.[A6]
End Sub

Cảm ơn!

Taị Sheets("vidu1") cột L và cột N, bạn thay ký tự "tong" lần lượt là "tong1" và "tong2".
Chạy lại Code xem sao nhé.

 

[ngocthieugia]

mình làm OK rồi, cám ơn sư chỉ giáo của phulien1902 và SA_DQ nhé