Lọc dữ liệu trong bảng tính Exel (1 người xem)

[honglilamahn]

Gửi các anh chị trong diễn đàn. Tôi có bảng biểu theo dõi phương thức vận chuyển hàng cho khách. Bảng được tổng hợp nhiều hình thức nhưng theo yêu cầu phải tách riêng từng nội dung. Đồng thời thông tin từng ngày bị thay đổi cập nhật. Nên tôi muốn bảng dùng được hàng ngày. Vậy anh chị giúp tôi với nhé. Cảm ơn rất nhiều.
P/S: Tôi có gửi kèm file để được trợ giúp

 

[khuongvietphong]

Gửi các anh chị trong diễn đàn. Tôi có bảng biểu theo dõi phương thức vận chuyển hàng cho khách. Bảng được tổng hợp nhiều hình thức nhưng theo yêu cầu phải tách riêng từng nội dung. Đồng thời thông tin từng ngày bị thay đổi cập nhật. Nên tôi muốn bảng dùng được hàng ngày. Vậy anh chị giúp tôi với nhé. Cảm ơn rất nhiều.
P/S: Tôi có gửi kèm file để được trợ giúp

Đoạn Code này bạn dán vào module

Sub loc()
  Sheet2.[A4:G100].ClearContents
  Sheet1.Range("A4:G" & [G1000].End(3).Row).AdvancedFilter 2, Sheet2.Range("B1:B2"), Sheet2.Range("A4")
End Sub

Đoạn Code này bạn dán vào sheet1("Nhap TT"):

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("A5:G" & [G10000].End(3).Row)) Is Nothing Then
    Call loc
 End If
End Sub

Và cuối cùng đoạn Code này bạn dán vào sheet2("Gui EMS"):

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address(0, 0) = "B2" Then
  Call loc
 End If
End Sub

 

[honglilamahn]

Xin chào anh !

Tôi đã nhập các đoạn code như anh chỉ vào rồi. Nhưng kết quả đưa ra không như mong muốn. Anh có thể chỉ rõ hơn giúp 1 chút không. Rất cảm ơn anh

 

[khuongvietphong]

Xin chào anh !

Tôi đã nhập các đoạn code như anh chỉ vào rồi. Nhưng kết quả đưa ra không như mong muốn. Anh có thể chỉ rõ hơn giúp 1 chút không. Rất cảm ơn anh

Mình gởi File lên cho bạn luôn nha

Bạn chọn hình thức gởi hàng tại ô B2 của sheet 2 (Gui EMS )nhé, đồng thời khi dữ liệu trong vùng [A5:G17] của sheet1 có sự thay đổi là bảng tính sẽ tự cập nhật cho bên Sheet 2 kia

 

[honglilamahn]

Vâng. Cảm ơn anh tôi đã dùng được rồi. Rất tốt.

Cảm ơn anh rất nhiều !