V/V Advanced filter và Marco (1 người xem)

[GTK-PM]

Hiện tại công việc của mình liên quan đến thống kê, mà suốt ngày lên GPE nhờ giúp đỡ thì cũng khó quá.
Mình thì không biết đọc code VBA, mà muốn tự học để cho ra 1 đoạn code.
Vậy rất mong anh chị trên diễn đàn có thể hướng dẫn ( để lại sđt,hay comment ...), hoặc có video nào để học thì share cho em xin. Chân thành cảm ơn anh chị

 

[phihndhsp]

nếu bạn biết ghi macro, thì thao tác ghi và học từ từ, [h=2]Advanced filter kết hợp với ghi Marco là công cụ tuyệt vời với những bạn muốn trích lọc động, và cũng rất dễ học[/h]

 

[GTK-PM]

nếu bạn biết ghi macro, thì thao tác ghi và học từ từ, Advanced filter kết hợp với ghi Marco là công cụ tuyệt vời với những bạn muốn trích lọc động, và cũng rất dễ học

Cám ơn bạn đã quan tâm.
Mình chỉ nghiên cứu ghi marco đơn giản như video này thôi: Còn ghi theo điều kiện, và đặt dữ liệu tại vị trí như mong muốn trên bảng tính thì chưa rõ.
https://www.youtube.com/watch?v=0KhlqS9QNRQ

 

[phihndhsp]

Cám ơn bạn đã quan tâm.
Mình chỉ nghiên cứu ghi marco đơn giản như video này thôi: Còn ghi theo điều kiện, và đặt dữ liệu tại vị trí như mong muốn trên bảng tính thì chưa rõ.
https://www.youtube.com/watch?v=0KhlqS9QNRQ

muốn biết điều kiện ở ô nào đặt dữ liệu ở đâu thì bạn phải sửa lại

Range("A1:C10").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"D12"), CopyToRange:=Range("A19"), Unique:=False


đầu tiên vùng dữ liệu trích lọc là vùng nào?
thứ 2 vùng điều kiện là vùng nào(tô màu đỏ)
thứ 3 copy dữ liệu trích lọc ở đâu

 

[GTK-PM]

muốn biết điều kiện ở ô nào đặt dữ liệu ở đâu thì bạn phải sửa lại

Range("A1:C10").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"D12"), CopyToRange:=Range("A19"), Unique:=False


đầu tiên vùng dữ liệu trích lọc là vùng nào?
thứ 2 vùng điều kiện là vùng nào(tô màu đỏ)
thứ 3 copy dữ liệu trích lọc ở đâu

Để mình thử xem sao. ! Hy vọng sẽ sửa đc.

 

[GTK-PM]

muốn biết điều kiện ở ô nào đặt dữ liệu ở đâu thì bạn phải sửa lại

Range("A1:C10").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"D12"), CopyToRange:=Range("A19"), Unique:=False


đầu tiên vùng dữ liệu trích lọc là vùng nào?
thứ 2 vùng điều kiện là vùng nào(tô màu đỏ)
thứ 3 copy dữ liệu trích lọc ở đâu

Bạn có thể " cầm tay chỉ việc " cho mình 1 tý được không? . Chúng ta có thể sử dụng team view

 

[GTK-PM]

muốn biết điều kiện ở ô nào đặt dữ liệu ở đâu thì bạn phải sửa lại

Range("A1:C10").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"D12"), CopyToRange:=Range("A19"), Unique:=False


đầu tiên vùng dữ liệu trích lọc là vùng nào?
thứ 2 vùng điều kiện là vùng nào(tô màu đỏ)
thứ 3 copy dữ liệu trích lọc ở đâu

Mình đã làm thử rồi, đến bước thứ 2 chọn vùng điều kiện thì oke, nhưng toàn trích lọc cả 1 bảng tính có dữ liệu chứ không thấy lọc theo điều kiện được. Rất mong chỉ giáo.
Sub thongke()
' thongke Macro
Range("KHO").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"C5"), CopyToRange:=Range("k10"), Unique:=False
End Sub
Bước 2 : vùng điều kiện C5 để lọc dữ liệu, nhưng chọn ở đó thì không thay đổi gì cả

 

[Let'GâuGâu]

Mình đã làm thử rồi, đến bước thứ 2 chọn vùng điều kiện thì oke, nhưng toàn trích lọc cả 1 bảng tính có dữ liệu chứ không thấy lọc theo điều kiện được. Rất mong chỉ giáo.
Sub thongke()
' thongke Macro
Range("KHO").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"C5"), CopyToRange:=Range("k10"), Unique:=False
End Sub
Bước 2 : vùng điều kiện C5 để lọc dữ liệu, nhưng chọn ở đó thì không thay đổi gì cả

cái bảng ở sheet "QuyTM" dòng tiêu đề trộn cell, tôi nghĩ là bạn không dùng advanced filter được
khoang hay nói tới macro, bạn có thể thao tác bằng tay không?

 

[GTK-PM]

cái bảng ở sheet "QuyTM" dòng tiêu đề trộn cell, tôi nghĩ là bạn không dùng advanced filter được
khoang hay nói tới macro, bạn có thể thao tác bằng tay không?

Mình đang làm thử file dưới đây, mình muốn sử dụng marco ghi lại để học thêm về code
Hiện tại, mình đang muốn rút trích bảng bên dưới theo:
Vùng dữ liệu :A3:E12
Vùng điều kiện: Chỉ là Ô B17 ( và khi thay đổi ô B17 thì sẽ rút trích ra dữ liệu theo điều kiện đó )
Vùng trả về: A23:E32 ( sao cho trích lọc điều kiện ô B17, trả về đúng vị trí mình muốn đặt tại 3 ô A23, B23, C23 chứ không phải trả toàn bộ bảng tính) mà chỉ cần 3 tiêu đề: STT, Họ tên, số đt.
Rất mong được giải đáp

 

[longpvh3010]

Theo mình,
Trước khi trích xuất dữ liệu bạn nên clear bảng đích.
CriteriaRange nên sử dụng 2 ô
CopyToRange nên sử dụng 1 ô

Mình chỉ góp ý thôi chứ cũng không giải quyết được vùng trả về của bạn
Vì cũng chỉ mới tìm hiểu được ít lâu

    Rows("23:100").EntireRow.Delete
    Range("A3:E12").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "B16:B17"), CopyToRange:=Range("A23")