Làm thế nào để nhặt 1 danh sách từ sheet Tổng sang 1 sheet khác theo điều kiện ? (2 người xem)

[Mù Tạt_yb]

Em có 1 sheet Tổng bao gồm nhiều Khách hàng, e muốn nhặt Tất cả các dữ liệu mà có cùng 1 mã Tuyến sang 1 sheet riêng( Dữ liệu của em có khoảng mấy nghìn khách hàng và 100 mã tuyến)
Tháng nào em cũng phải nhặt, có cách nào để em làm 1 bản mẫu, chỉ cần Cóp số liệu vào sheet Tổng thì Số liệu của em tự động đc nhảy vào 100 sheet con bên cạnh không ạ?

 

[vu_tuan_manh_linh]

Em có 1 sheet Tổng bao gồm nhiều Khách hàng, e muốn nhặt Tất cả các dữ liệu mà có cùng 1 mã Tuyến sang 1 sheet riêng( Dữ liệu của em có khoảng mấy nghìn khách hàng và 100 mã tuyến)
Tháng nào em cũng phải nhặt, có cách nào để em làm 1 bản mẫu, chỉ cần Cóp số liệu vào sheet Tổng thì Số liệu của em tự động đc nhảy vào 100 sheet con bên cạnh không ạ?

Code trong file nhé bạn! Bạn cập nhật đủ dữ liệu vào sheet TH, sau đó đặt con trỏ vào ô B6 code sẽ tự động chạy.

 

[Kẻ_Độc_Hành]

Code trong file nhé bạn! Bạn cập nhật đủ dữ liệu vào sheet TH, sau đó đặt con trỏ vào ô B6 code sẽ tự động chạy.

Mình chia sẻ với bạn 1 cách tách dữ liệu của bài này nha. Cách của bạn code và mình khá khác nhau

Sub Split_Data()
Application.ScreenUpdating = False
Dim sh As Worksheet
For Each sh In Worksheets
   If sh.Name <> "TH" Then
      [F6] = [B6]: [F7] = sh.Name
      [B6:E10000].AdvancedFilter 2, [F6:F7], sh.[B6:E6], False
      sh.[E65536].End(3).Offset(1) = "=Sum(R7C:R[-1]C)"
   End If
   [F6:F7].Clear
Next
Application.ScreenUpdating = True
End Sub

 

[sonktpm2]

Em có 1 sheet Tổng bao gồm nhiều Khách hàng, e muốn nhặt Tất cả các dữ liệu mà có cùng 1 mã Tuyến sang 1 sheet riêng( Dữ liệu của em có khoảng mấy nghìn khách hàng và 100 mã tuyến)
Tháng nào em cũng phải nhặt, có cách nào để em làm 1 bản mẫu, chỉ cần Cóp số liệu vào sheet Tổng thì Số liệu của em tự động đc nhảy vào 100 sheet con bên cạnh không ạ?

Mình có cách làm rất nhanh mà không phải code gì cả, chỉ cần làm trên một sheet không chia cần chia ra thành nhiều sheet đâu bạn a..bạn đang làm bằng cái này và rất hiệu quả
http://bluesofts.net/giai-phap-phan...-thao-va-quan-tri-du-lieu-excel-qua-mang.html
Bạn down về cài nếu cần có thể gọi mình mình demo thử cho bạn xem

 

[sonktpm2]

Em có 1 sheet Tổng bao gồm nhiều Khách hàng, e muốn nhặt Tất cả các dữ liệu mà có cùng 1 mã Tuyến sang 1 sheet riêng( Dữ liệu của em có khoảng mấy nghìn khách hàng và 100 mã tuyến)
Tháng nào em cũng phải nhặt, có cách nào để em làm 1 bản mẫu, chỉ cần Cóp số liệu vào sheet Tổng thì Số liệu của em tự động đc nhảy vào 100 sheet con bên cạnh không ạ?

Bạn vào đây down về xem thử xem có đúng yêu cầu không nhé.

 

[hoangduy012]

Em có 1 sheet Tổng bao gồm nhiều Khách hàng, e muốn nhặt Tất cả các dữ liệu mà có cùng 1 mã Tuyến sang 1 sheet riêng( Dữ liệu của em có khoảng mấy nghìn khách hàng và 100 mã tuyến)
Tháng nào em cũng phải nhặt, có cách nào để em làm 1 bản mẫu, chỉ cần Cóp số liệu vào sheet Tổng thì Số liệu của em tự động đc nhảy vào 100 sheet con bên cạnh không ạ?

Bạn có thể tham khảo tại video này [video=youtube;I5xnyQ1C61c]https://www.youtube.com/watch?v=I5xnyQ1C61c&feature=youtu.be[/video]

 

[Mù Tạt_yb]

Em cảm ơn các Bác nhiều, nhưng mà.. E chỉ biết mấy công thức excel thông thường, đến tầm code như mấy Bác thì e chả hiểu đc jh , mà Video của Bác HoangDuy dễ hiểu nhưng em sài 2003, lần mãi chả ra. Mà bảng của em có hơn 100 sheet. Có Bác nào có công thức dễ hiểu, mà e chỉ cần copy lại công thức- thay tên mã tuyến là ok không ???

 

[khuuhoangphuong]

chào cả nhà , công ty của mình kinh doanh dịch vụ chủ yếu là cafe và mước giải khác
bạn nào biết giá xác định giá thành định mức hao hục cho 1 ly cafe chỉ mình với

 

[hoangduy012]

Em cảm ơn các Bác nhiều, nhưng mà.. E chỉ biết mấy công thức excel thông thường, đến tầm code như mấy Bác thì e chả hiểu đc jh , mà Video của Bác HoangDuy dễ hiểu nhưng em sài 2003, lần mãi chả ra. Mà bảng của em có hơn 100 sheet. Có Bác nào có công thức dễ hiểu, mà e chỉ cần copy lại công thức- thay tên mã tuyến là ok không ???

Bạn dùng excel 2003 cũng không sao chỉ cần bạn cài thêm addin A-tools là có thể làm được như mình bạn tải addin đó tại địa chỉ này
http://www.bluesofts.net/download-add-in-a-tools-chia-se-excel-qua-mang
nếu có gì vướng mắc trong quá trình cài đặt thì bạn có thể hỏi nhân viên tử vấn hoặc có thể mail theo địa chỉ duyktpm2@gmail.com mình sẽ giải đáp

 

[Mù Tạt_yb]

Em làm đc rồi Bác ạ , nhưng mà font chữ của em bị làm sao vậy Bác? nhìn thì vẫn đọc được, nhưng khi tích vào thì toàn hoa lá cành. Vậy là sao ạ ?