xin code hoặc công thức lọc dữ liệu theo tên

[vanhesing]

Tôi mong muốn các anh chị em giúp đỡ tôi phần này .
tôi muốn xin code hoặc công thức để khi tôi nhập dữ liệu xuất nhập thiết bị của 2 bộ phận từ 1 seet " nhật ký chung " những dữ liệu này sẽ lọc và phân loại ra mỗi sheet tưong ứng với từng bộ phận .
vấn đề tiếp theo mời mọi người tham khảo file đính kèm.
Rất mong có được sự giúp đỡ của cả nhà .
Chân thành cảm ơn !

Tôi đã chân thành xin giúp đỡ rồi , đây là bài thứ 3 nhưng vẫn ko ai phản hồi 1 cái gì cho sự mong đợi của Tôi cả.
Thanks cả nhà!!!

 

[concogia]

Em gửi file đính kèm, mong các Pro hỗ trợ em với nha.
Nếu có gì thắc mắc các bác cứ gửi vào mail này giúp em:
caovan39@gmail.com, em sẽ trả lời ngay
Cảm ơn các bác

Chép thử code này vào nút xem sao

Public Sub khongbiet()
    Dim Vung As Range, I As Integer, J As Integer, VungB
    Set Vung = Range([a8], [a8].End(xlDown)).Resize(, 11)
    Vung.Offset(0, 10).Resize(, 1).Select
        I = Application.WorksheetFunction.Match("mx1", Vung.Offset(0, 10).Resize(, 1), 0) + 7
            For J = 1 To 3
              Set VungB = Range(("a" & I + 1), Range("a" & I + 1).End(xlDown).Offset(-1, 0))
                Sheets("sheet1").Cells(J + 1, 2) = Application.WorksheetFunction.Sum(Range("a8:a" & I).Offset(0, J + 5).Resize(, 1))
                Sheets("sheet2").Cells(J + 1, 2) = Application.WorksheetFunction.Sum(VungB.Offset(0, J + 5).Resize(, 1))
            Next
End Sub

 

[vanhesing]

Chép thử code này vào nút xem sao

Public Sub khongbiet()
    Dim Vung As Range, I As Integer, J As Integer, VungB
    Set Vung = Range([a8], [a8].End(xlDown)).Resize(, 11)
    Vung.Offset(0, 10).Resize(, 1).Select
        I = Application.WorksheetFunction.Match("mx1", Vung.Offset(0, 10).Resize(, 1), 0) + 7
            For J = 1 To 3
              Set VungB = Range(("a" & I + 1), Range("a" & I + 1).End(xlDown).Offset(-1, 0))
                Sheets("sheet1").Cells(J + 1, 2) = Application.WorksheetFunction.Sum(Range("a8:a" & I).Offset(0, J + 5).Resize(, 1))
                Sheets("sheet2").Cells(J + 1, 2) = Application.WorksheetFunction.Sum(VungB.Offset(0, J + 5).Resize(, 1))
            Next
End Sub

???????????????????????

 

[ThuNghi]

Thu Nghi ơi bjan làm cho nó nó lọc qua sheeet congno 3 cột cuối luôn giúp mình (công nợ đầu , công nợ cuối cuối ) còn lại mình tự xử
thanks !!1

Góp ý tiếp nhé.
1/ Sh YeuCau bạn cần thì cột hiện trạng ở CN CanTho thì là số, còn Ninh Thuận là TB Tốt...
2/ Tạo Validation để lấy tên CN mà lại kg có Ninh Thuận.
3/ Bạn thêm vào Data 2 cột thì hiển nhiên code sẽ không biết cột nào để tham chiếu. Cụ thể như sau, data lấy từ sh Data sẽ lấy từ cột B-> Q tương ứng với sh congno, nếu tiêu đề 2 sh khác nhau thì sẽ lấy nhảy cột. Đúng ra tôi tính lấy data là 16 data theo tên cột nhưng nó dài quá.
4/ Còn phần ngày hay lấy cuối kỳ thì tôi chưa hiểu. Tạm gia công đã, phần này chưa xong mà làm phần khác nên sợ phức tạp.
5/ Nhớ rằng khi nhập tên CN hay tên TB thì không nên có khoảng trắng phía sau, gây khó khăn cho việc lọc. Cụ thể CN Ninh Thuận.

 

[vanhesing]

Góp ý tiếp nhé.
1/ (1)Sh YeuCau bạn cần thì cột hiện trạng ở CN CanTho thì là số, còn Ninh Thuận là TB Tốt...
2/ (2)Tạo Validation để lấy tên CN mà lại kg có Ninh Thuận.
3/ (3)(Bạn thêm vào Data 2 cột thì hiển nhiên code sẽ không biết cột nào để tham chiếu. Cụ thể như sau, data lấy từ sh Data sẽ lấy từ cột B-> Q tương ứng với sh congno, nếu tiêu đề 2 sh khác nhau thì sẽ lấy nhảy cột. Đúng ra tôi tính lấy data là 16 data theo tên cột nhưng nó dài quá.
4/ (4)Còn phần ngày hay lấy cuối kỳ thì tôi chưa hiểu. Tạm gia công đã, phần này chưa xong mà làm phần khác nên sợ phức tạp.
5/ (5)Nhớ rằng khi nhập tên CN hay tên TB thì không nên có khoảng trắng phía sau, gây khó khăn cho việc lọc. Cụ thể CN Ninh Thuận.

(1) và (2) : lại 1 lần nữa xin lỗi bạn , mình lại đưa ra dữ liệu và yêu cầu sai , ko ngờ nó ảnh hưởng tới vậy , chân thành xin lỗi .
(3) : bạn xem file mình mò mẩm hổm nay nhé , mình đã chèn được cột và nó nhảy đúng cột , nhưng gặp vấn đề là nó không chịu hiện 3 cột cuối mình rối quá mò quài không ra .
(4) Phần này mình chú thích rất rõ ràng trong file , mình xin nói thêm . cột "công nợ đầu " là giành cho những thiết bị còn nợ lại của tháng trước nhưng chưa đủ 5 ngày quy định trả.vd như xuất ngày 29 tháng 8 , ngày 2 tháng 9 thì nhập trả >>> thì cột "công nợ cuối " bằng 0 và cột ghi chú sẽ hiện " đã trả TB".
Trường hợp ngược lại , nếu Chi nhánh ko trả và quá quy định 5 ngày thì cột "công nợ đầu " và " công nợ cuối "vẫn hịện số lương TB nợ Và cột "ghi chú sẽ hiện " trể , xuất hoá đơn " (đại loại là vậy )
Để tính số ngày quy định khi TB được xuất đi thì mình tạo trên ô H5 công thức = today()
(5) mình sẽ xem đó là một bài học và kinh nghiệm cho mình
Mong bạn giúp đỡ . thanks !!!

 

[highcloud]

Cảm ơn bác concogia. Để em thử lại cái đã, có gì sẽ hỏi bác sau nhé

 

[vanhesing]

Góp ý tiếp nhé.
1/ Sh YeuCau bạn cần thì cột hiện trạng ở CN CanTho thì là số, còn Ninh Thuận là TB Tốt...
2/ Tạo Validation để lấy tên CN mà lại kg có Ninh Thuận.
3/ Bạn thêm vào Data 2 cột thì hiển nhiên code sẽ không biết cột nào để tham chiếu. Cụ thể như sau, data lấy từ sh Data sẽ lấy từ cột B-> Q tương ứng với sh congno, nếu tiêu đề 2 sh khác nhau thì sẽ lấy nhảy cột. Đúng ra tôi tính lấy data là 16 data theo tên cột nhưng nó dài quá.
4/ Còn phần ngày hay lấy cuối kỳ thì tôi chưa hiểu. Tạm gia công đã, phần này chưa xong mà làm phần khác nên sợ phức tạp.
5/ Nhớ rằng khi nhập tên CN hay tên TB thì không nên có khoảng trắng phía sau, gây khó khăn cho việc lọc. Cụ thể CN Ninh Thuận.

(4) Phần này mình chú thích rất rõ ràng trong file , mình xin nói thêm . cột "công nợ đầu " là giành cho những thiết bị còn nợ lại của tháng trước nhưng chưa đủ 5 ngày quy định trả.vd như xuất ngày 29 tháng 8 , ngày 2 tháng 9 thì nhập trả >>> thì cột "công nợ cuối " bằng 0 và cột ghi chú sẽ hiện " đã trả TB".
Trường hợp ngược lại , nếu Chi nhánh ko trả và quá quy định 5 ngày thì cột "công nợ đầu " và " công nợ cuối "vẫn hịện số lương TB nợ Và cột "ghi chú sẽ hiện " trể , xuất hoá đơn " (đại loại là vậy )
Thunghi giúp giùm mình mục này nha
thanks