Làm sao để thống kê dữ liệu từ một sheet data sang một sheet tonghop

[mai_kien]

Chào các bạn. Tôi có vấn đề này rất mong được các bạn giúp đỡ:
VD khi tôi nhập dữ liệu cho sheet data thì tại sheet tonghop lập tức có dự liệu như sheet data, nhưng vấn đề là tại sheet data tôi nhập dữ liệu tại các hàng không liền nhau, nhưng sang sheet tonghop thì các hàng phải liền nhau, lần lượt. Tức là sheet tonghop gần như một sheet để thống kê lại danh sách đã nhập tại sheet data.
Rât mong được sự giúp đỡ !

 

[ngoinhahoahong1492]

Chào các bạn. Tôi có vấn đề này rất mong được các bạn giúp đỡ:
VD khi tôi nhập dữ liệu cho sheet data thì tại sheet tonghop lập tức có dự liệu như sheet data, nhưng vấn đề là tại sheet data tôi nhập dữ liệu tại các hàng không liền nhau, nhưng sang sheet tonghop thì các hàng phải liền nhau, lần lượt. Tức là sheet tonghop gần như một sheet để thống kê lại danh sách đã nhập tại sheet data.
Rât mong được sự giúp đỡ !

Nếu dữ liệu đúng như vậy, theo em thì dùng hàm vlookup sẽ có được dữ liệu tại sheet tổng hợp như file đính kèm.

 

[concogia]

Chào các bạn. Tôi có vấn đề này rất mong được các bạn giúp đỡ:
VD khi tôi nhập dữ liệu cho sheet data thì tại sheet tonghop lập tức có dự liệu như sheet data, nhưng vấn đề là tại sheet data tôi nhập dữ liệu tại các hàng không liền nhau, nhưng sang sheet tonghop thì các hàng phải liền nhau, lần lượt. Tức là sheet tonghop gần như một sheet để thống kê lại danh sách đã nhập tại sheet data.
Rât mong được sự giúp đỡ !

RightClick vào sheet "tonghop" ==> ViewCode ==> chép cái này vào

Private Sub Worksheet_Activate()
[a1].CurrentRegion.Clear
    With Sheets("data").Range(Sheets("data").[a1], Sheets("data").[a5000].End(xlUp)).Resize(, 4)
        .AutoFilter 3, "<>"
        .SpecialCells(12).Copy [a1]
        .AutoFilter
    End With
End Sub

Cứ nhập thoải mái ở sheet "data" rồi sang sheet "tonghop" xem kết quả
Thân

 

[mai_kien]

Nhờ bạn concogia

Rất chân thành cảm ơn bạn concogia, vì sự giúp đỡ của bạn. Bạn có thể cho tôi địa chỉ Email của bạn được không? tôi có rất nhiều điều muốn được học từ bạn !
Tôi thêm một số cột ở trong biểu thì dữ liệ sang không theo ý muốn. Vì vậy tôi gửi bản đầy đủ của tôi lên, mong được bạn viết code hộ.
Chân thành !

 

[concogia]

Rất chân thành cảm ơn bạn concogia, vì sự giúp đỡ của bạn. Bạn có thể cho tôi địa chỉ Email của bạn được không? tôi có rất nhiều điều muốn được học từ bạn !
Tôi thêm một số cột ở trong biểu thì dữ liệ sang không theo ý muốn. Vì vậy tôi gửi bản đầy đủ của tôi lên, mong được bạn viết code hộ.
Chân thành !

Vì file của bạn không có dữ liệu nên tạm thời thế này:
- Mình đề nghị bỏ Merge Cell ở phần tiêu đề, cho tiêu đề nằm ở hàng 5 từ A5 đến I5 (vẫn đẹp chán)
- Phần khoá bảng tính thì bạn thêm vào đầu và cuối của code vài lệnh, trong code chỗ Unprotect & Protect là để mở & khoá, Pass là "abc" bạn muốn nó là gì thì cứ đổi nhé
- Mình sửa code rồi bạn chép vào file của bạn rồi chạy thử xem, có gì bàn tiếp

Private Sub Worksheet_Activate()
Unprotect "abc"
[a5].CurrentRegion.Clear
    With Sheets("data").Range(Sheets("data").[a5], Sheets("data").[a5000].End(xlUp)).Resize(, 9)
        .AutoFilter 3, "<>"
        .SpecialCells(12).Copy [a5]
        .AutoFilter
    End With
    Protect "abc"
End Sub

Đưa file lên mà chẳng có gì ở trỏng, ngộ
Thân