Trích xuất dữ liệu trùng nhau sang sheet mới

[comet_1701]

Bác Ba tê có thể hướng dẫn mình là marco khi dùng advan filter ko.
Vì mình hay phải dùng công cụ và thao tác như vậy.

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
        If Target.Address = "$B$4" Then
            [A5:D1000].Clear
            Sheet1.Range("A4:D8").AdvancedFilter 2, [B3:B4], [A5:D1000]
        End If
    Application.EnableEvents = True
End Sub

Bạn tham gia nhiều bài roài nhưng mình thấy cách hỏi vẫn có vấn đề lắm , nhưng thấy ko ăn nhập lắm khi bạn hỏi Thầy Bate. Bạn rất ít khi gửi file đính kèm và kết quả mong muốn thì khỏ lắm. Nếu bạn giỏi chế biến thì quá tốt nhưng rất nhiều bạn đưa dữ liệu ko chuẩn, sau đó sửa đi, sửa lại code mệt lắm.
Topic 26 bài , bạn có thể mở topic mới , có file và kết quả thì có kết quả ngay. File hôm qua Bác ndu hứa sẽ giúp nhưng phải có File đính kèm
P/S: Các thành viên khác họ rất ngại khi phải tạo file giả lập cho chủ topic.

 

[kbw1]

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
        If Target.Address = "$B$4" Then
            [A5:D1000].Clear
            Sheet1.Range("A4:D8").AdvancedFilter 2, [B3:B4], [A5:D1000]
        End If
    Application.EnableEvents = True
End Sub

Bạn tham gia nhiều bài roài nhưng mình thấy cách hỏi vẫn có vấn đề lắm , nhưng thấy ko ăn nhập lắm khi bạn hỏi Thầy Bate. Bạn rất ít khi gửi file đính kèm và kết quả mong muốn thì khỏ lắm. Nếu bạn giỏi chế biến thì quá tốt nhưng rất nhiều bạn đưa dữ liệu ko chuẩn, sau đó sửa đi, sửa lại code mệt lắm.
Topic 26 bài , bạn có thể mở topic mới , có file và kết quả thì có kết quả ngay. File hôm qua Bác ndu hứa sẽ giúp nhưng phải có File đính kèm
P/S: Các thành viên khác họ rất ngại khi phải tạo file giả lập cho chủ topic.

Mình có gửi file đính kèm vào chủ đề trước rồi bạn.
Bạn giúp mình với.