Giúp e lấy ds theo dõi công nợ!

[hoabattuvn_tt]

File e đính kèm ạ, nhờ mấy a giúp e để chỉ lấy danh sách tất cả các dòng là "công nợ…." từ bảng bên tương ứng với ngày phát sinh công nợ. Thanks all.

 

[Phan Thế Hiệp]

File e đính kèm ạ, nhờ mấy a giúp e để chỉ lấy danh sách các dòng là "công nợ…." từ bảng bên tương ứng với ngày phát sinh công nợ. Cảm ơn all.

Tham khảo bằng cách công thức.
Xem file kèm.
Thân.

 

[truongvu317]

Trong file chả thấy chữ "công nợ" đâu cả, có mỗi mấy cái dữ liệu cũng chả hiểu nó là cái gì.

 

[phulien1902]

File e đính kèm ạ, nhờ mấy a giúp e để chỉ lấy danh sách các dòng là "công nợ…." từ bảng bên tương ứng với ngày phát sinh công nợ. Cảm ơn all.

Thử:

Sub abc()
Application.ScreenUpdating = False
    With Range("A1:E1")
        .AutoFilter 1, "công n" & ChrW(7907) & "*"
        .AutoFilter 5, Criteria1:="<>"
    End With
Application.ScreenUpdating = True
End Sub

 

[hoabattuvn_tt]

cảm ơn @Phan Thế Hiệp , nhưng công thức bạn đưa không lấy được tất cả ds công nợ, ví dụ ngày 12/7 có phát sinh công nợ cô hoa thì không lấy được. Tương tự cho ngày 14 của a hùng và chị chi.

Bài đã được tự động gộp: 29/7/18

Trong file chả thấy chữ "công nợ" đâu cả, có mỗi mấy cái dữ liệu cũng chả hiểu nó là cái gì.

cột danh sách có mà a.

 

[hoabattuvn_tt]

Thử:

Sub abc()
Application.ScreenUpdating = False
    With Range("A1:E1")
        .AutoFilter 1, "công n" & ChrW(7907) & "*"
        .AutoFilter 5, Criteria1:="<>"
    End With
Application.ScreenUpdating = True
End Sub

thanks a @phulien1902 , nhưng hàm của a cũng bị giống a @Phan Thế Hiệp không lấy được tất cả ds công nợ, ví dụ ngày 12/7 có phát sinh công nợ cô hoa thì không lấy được. Tương tự cho ngày 14 của a hùng và chị chi.

 

[Phan Thế Hiệp]

Cảm ơn a @phulien1902 , nhưng hàm của a cũng bị giống a @Phan Thế Hiệp không lấy được tất cả ds công nợ, ví dụ ngày 12/7 có phát sinh công nợ cô hoa thì không lấy được. Tương tự cho ngày 14 của a hùng và chị chi.

Như yêu cầu của bạn thì chỉ cần dùng chức năng filter với cách lọc cột A= "công nợ" là được rồi, cần gì tới công thức hay viết code.
Tưởng bạn cần liệt kê những công nợ nào có ngày thôi thì mới làm cho bạn như trên.
Thân

 

[hoabattuvn_tt]

Như yêu cầu của bạn thì chỉ cần dùng chức năng filter với cách lọc cột A= "công nợ" là được rồi, cần gì tới công thức hay viết code.
Tưởng bạn cần liệt kê những công nợ nào có ngày thôi thì mới làm cho bạn như trên.
Thân

thanks a. do e đang theo dõi công nợ cho cửa hàng, file trên chỉ là ví dụ thôi còn file gốc của e được tổng hợp từ nhiều sheet nên mỗi lần có sự thay đổi ở các sheet lại phải filter bằng tay lại thì hơi cực.

 

[Phan Thế Hiệp]

Cảm ơn a. do e đang theo dõi công nợ cho cửa hàng, file trên chỉ là ví dụ thôi còn file gốc của e được tổng hợp từ nhiều sheet nên mỗi lần có sự thay đổi ở các sheet lại phải filter bằng tay lại thì hơi cực.

Vậy bạn dùng đoạn VBA mà anh @phulien1902 đã gửi cho bạn, chỉ bỏ 1 dòng là được rồi:

Sub abc()
Application.ScreenUpdating = False
    With Range("A1:E1")
        .AutoFilter 1, "công n" & ChrW(7907) & "*"
    End With
Application.ScreenUpdating = True
End Sub

Hoài của, chỉ cái tội có đồ quý nhưng không biết giá trị. Cố gắng nên tìm hiểu thêm bạn nha!
Thân

 

[hoabattuvn_tt]

Vậy bạn dùng đoạn VBA mà anh @phulien1902 đã gửi cho bạn, chỉ bỏ 1 dòng là được rồi:

Sub abc()
Application.ScreenUpdating = False
    With Range("A1:E1")
        .AutoFilter 1, "công n" & ChrW(7907) & "*"
    End With
Application.ScreenUpdating = True
End Sub

Hoài của, chỉ cái tội có đồ quý nhưng không biết giá trị. Cố gắng nên tìm hiểu thêm bạn nha!
Thân

ok rồi thanks a.

 

[phulien1902]

Cảm ơn a @phulien1902 , nhưng hàm của a cũng bị giống a @Phan Thế Hiệp không lấy được tất cả ds công nợ, ví dụ ngày 12/7 có phát sinh công nợ cô hoa thì không lấy được. Tương tự cho ngày 14 của a hùng và chị chi.

Vậy thì bỏ dòng dưới này đi

        .AutoFilter 5, Criteria1:="<>"