Trích lọc danh sách khách hàng theo điều kiện

[langkhach156]

Trích lọc danh sách khách hàng theo điều kiện.

mình là chủ 1 cửa hàng
với mỗi khách hàng thì mình đều có ghi về : thanh toán , số tiền nợ ( ở Sheet1)
bây giờ mình muốn trích tất cả sang Sheet2 những khách hàng dã thanh toán rùi ( VD đã thank toán 100k chẳng hạn ) , nhưng vì mỗi ngày đều có khách hàng , nên nếu cứ dùng data-> filter... thì lặp lại nhiều lần
bây giờ mình muốn khi mở Sheet 2 lên là tất cả những kháchh hàng đã thanh toán 100k ở Sheet1 được tự động trích sang
vậy ai biết cách ko
chỉnh mình với
thank

From HoangDanh82:
Bạn gửi kèm file yêu cầu của bạn lên nha. Thấy dữ liệu mới làm cho bạn chính xác được

đây bạn ơi
http://www.megaupload.com/?d=3I0V3MNM
or http://www.mediafire.com/?m9t0md0wxqo
ví dụ mình muốn trích tất cả những use có "thời gian còn lại " là " lifetime " chẳng hạn ra bảng 2 (tự động mỗi khi mở Sheet2 là có -và tự động cập nhật thêm , vì mỗi ngày đều có những use mới mà )
liệu có dc ko bạn
hay mình muốn sheet3 gom nhung use có hạn sử dụng là từ 30-90 ngày chẳng hạn
bạn dạy mình thao tác với
thank

 

[hoangdanh282vn]

Ban xem trong file đình kèm nha. Trích lọc mỗi khi sheet Lifetime active

 

[hoangdanh282vn]

Khi dữ liệu tăng thì sheet2 không update, bạn giúp mình nha

bạn xem file đình kèm, mình đã test. ok

 

[langkhach156]

Cảm ơn bạn

cảm ơn bạn
được rùi bạn à
bạn làm ơn có thể giúp mình chút xíu nữa dc ko
mình muốn sheet3 là những use có "thời hạn" là từ 30-60 ngày
sheet4 là những use có "thời hạn" là từ 90-200 ngày chẳng hạn
mong bạn giúp đỡ
thank

cảm ơn bạn
mình làm được rùi
cho mình hỏi ( mình có tếp xúc với VB vài giờ lên lệnh về Vb chua lắm rõ hết , mình học lỏm thui )
nếu mình muốn lọc dữ liệu mà thỏa mãn 2 điều kiện ( cùng xảy ra đồng thời nha )
:+ chọn ở cột 5 nhưng ô có chữ
+ chọn ở côt 6 nhũng ô ko có chữ
++++++++++++++++
code bạn viết cho mình

Sub acclifetime()
Application.CutCopyMode = False
Cells.ClearContents
With Sheet1.Range("A1:O" & Sheet1.[D65536].End(xlUp).Row)
.AutoFilter Field:=8, Criteria1:="lifetime"
.Copy
Range("A1").Select
ActiveSheet.Paste
.AutoFilter
End With
End Sub
+++++++++++++++++++++++++++
chắc là sửa ở dòng .AutoFilter Field:=8, Criteria1:="lifetime" nhưng do chưa biết hết lệnh về VB nên mong mọi người giúp đỡ
uh, cảm ơn bạn hoangdanh282vn đã giúp đỡ tui

From Sa_DQ:
Bạn cần dùng cú pháp [PHP ]. . .[/PHP] hay [Code ]. . .[/code] cho đoạn macro nói trên; Bài của bạn do vậy sẽ nhiều người tìm đến hơn!