Giúp đỡ về tự update Data có chứa mã số từ các sheet vào 1 sheet (1 người xem)

[y2k_mqm]

Mình đang làm một phần excel về quản lý vật liệu xây dựng. Trong bảng excel sẽ có nhiều đại lý ( mà mình mua vật tư) và chuyển đến nhiều công trình. Ở các bảng đại lý có có một cột chứa mã công trình để khi nhập vật tư ở bảng đại lý thì ở công trình được đánh mã sẽ tự update vật tư vừa nhập. ( tránh việc phải nhập dữ liệu ở cả bảng đại lý và bảng công trình -> mất thời gian, sai sót)

http://ni2.upanh.com/b4.s25.d2/e7d5130fbaf10c59ec773a56735caaf7_40932922.filter.png

DO trình excel còn gà nên đã thử rất nhiều cách nhưng vẫn không mang lại kết quả như ý. Tìm kiếm trên google cũng nhiều nhưng vẫn chưa dc. . Mong các cao thủ vào giúp. Đa tạ.

 

[concogia]

Mình đang làm một phần excel về quản lý vật liệu xây dựng. Trong bảng excel sẽ có nhiều đại lý ( mà mình mua vật tư) và chuyển đến nhiều công trình. Ở các bảng đại lý có có một cột chứa mã công trình để khi nhập vật tư ở bảng đại lý thì ở công trình được đánh mã sẽ tự update vật tư vừa nhập. ( tránh việc phải nhập dữ liệu ở cả bảng đại lý và bảng công trình -> mất thời gian, sai sót)

http://ni2.upanh.com/b4.s25.d2/e7d5130fbaf10c59ec773a56735caaf7_40932922.filter.png

DO trình excel còn gà nên đã thử rất nhiều cách nhưng vẫn không mang lại kết quả như ý. Tìm kiếm trên google cũng nhiều nhưng vẫn chưa dc. . Mong các cao thủ vào giúp. Đa tạ.

Bài này làm bằng VBA thì Ok thôi nhưng có vài vấn đề:
- Trong các sheet Daily ....nên bỏ mấy thằng "Mẹc Seo" đi, "Mẹc" chỉ tổ rắc rối
Đây chỉ là file giá lập, chắc chắn file thật sẽ có nhiều sheet Daily & Congtrinh hơn nên mình phải thống nhất một số cái sau:

-Tên Sheet: có 2 nhóm Đại lý & Công trình, thống nhất cách đặt tên sheet:
* Nhóm Đại lý: Daily & khoảng trắng & Tên Đại lý : Thí dụ : Daily HaNoi Daily HaiPhong Daily Bia
* Nhóm Công trình: Congtrinh & khoảng trắng & Tên công trinh Thí dụ: Congtrinh X Congtrinh Y Congtrinh GiDo
Bạn thử xem & kiểm tra trong file, cứ chọn các sheet Congtrinh... code sẽ tự động cập nhật
Có gì bàn tiếp
Thân
*** Cột I trong các sheet Daily tên công trình phải nhập đúng như tên công trình ở tên các Sheet Congtrinh

 

[Cao Mạnh Sơn]

Bài này làm bằng VBA thì Ok thôi nhưng có vài vấn đề:
- Trong các sheet Daily ....nên bỏ mấy thằng "Mẹc Seo" đi, "Mẹc" chỉ tổ rắc rối
Đây chỉ là file giá lập, chắc chắn file thật sẽ có nhiều sheet Daily & Congtrinh hơn nên mình phải thống nhất một số cái sau:

-Tên Sheet: có 2 nhóm Đại lý & Công trình, thống nhất cách đặt tên sheet:
* Nhóm Đại lý: Daily & khoảng trắng & Tên Đại lý : Thí dụ : Daily HaNoi Daily HaiPhong Daily Bia
* Nhóm Công trình: Congtrinh & khoảng trắng & Tên công trinh Thí dụ: Congtrinh X Congtrinh Y Congtrinh GiDo
Bạn thử xem & kiểm tra trong file, cứ chọn các sheet Congtrinh... code sẽ tự động cập nhật
Có gì bàn tiếp
Thân
*** Cột I trong các sheet Daily tên công trình phải nhập đúng như tên công trình ở tên các Sheet Congtrinh

Theo tôi không nên áp đặt nguyên tắc quá cứng như vậy, thực ra tên Sheet không nên đặt tên tiếng Việt hoặc có khoảng trắng nhưng có đặt cũng không sao.
Sheet Tổng hợp không cần phải nhiều Sheets quá, rối lắm, chỉ cần 1 Sheet để báo cáo thôi.
trong File đính kèm ta chỉ cần chọn tên công trình cần tổng hợp là có kết quả.
chỉ có điều tôi đã cho dòng lệnh Application.ScreenUpdating = False mà nó vẫn không nghe.
Các Bác giỏi VBA cho nhận xét nhé, em mói tập bò chứ chưa đứng được

 

[y2k_mqm]

code của bác concogia quá hay. Đúng là thứ em đang cần.Bác nói chuẩn,trong bài toán của em còn nhiều đại lý và công trình khác. Đặt tên cho các sheet theo quy ước thì việc lập trình và quản lý sẽ dễ dàng và chính xác hơn. Đồng ý với bác về điểm này.
@bác cao mạnh sơn: Đúng là ở sheet tổng hợp chỉ cần 1 sheet thì sẽ gọn gàng hơn nhưng do tính chất công việc nên có lẽ em giữ nguyên cách lập nhiều sheet bác ạ. file của bác em cũng xem. Đúng là update dữ liệu thêm thì có lỗi + lỗi ngày tháng. EM gà VB k giúp gì được . Hì
À tiện về ngày tháng thấy 2 file của 2 bác đều sắp xếp theo đại lý. Em muốn các vật liệu sắp xếp theo ngày tháng ạ. Để phục vụ việc cuối tháng thống kê ấy mà.

 

[ChanhTQ@]

To Cao Manh Son!
Theo tôi không nên áp đặt nguyên tắc quá cứng như vậy, thực ra tên Sheet không nên đặt tên tiếng Việt hoặc có khoảng trắng nhưng có đặt cũng không sao.

Nếu xài VBA thì gán tên tiếng việt cho trang tính là ta chuôi đầu vô rọ đó bạn;

Tuy nhiên vẫn có thể xài chỉ 2 thanh "sắc" & "huyền", như 'Nháp', còn để fân biệt với trang tính nhập liệu (ta chỉ có thể xài tên 'Nhap' mà thôi). (Đó là mình đang nói với việc xài UNIKeys đó nhe; & không chịu trách nhiệm về các Font khác)

Còn khoảng trắng ấy ư; Nhiều lần mình đã nêu, rằng không ai cấm bạn đi 1 chân dưới lòng đường, 1 chưn trên vĩa hè cả, . . . . . Vui nha, nhân dịp xuân về!

 

[concogia]

Nếu xài VBA thì gán tên tiếng việt cho trang tính là ta chuôi đầu vô rọ đó bạn;
Còn khoảng trắng ấy ư; Nhiều lần mình đã nêu, rằng không ai cấm bạn đi 1 chân dưới lòng đường, 1 chưn trên vĩa hè cả, . . . . . Vui nha, nhân dịp xuân về!

Thật ra, với bài này ta chỉ cần làm 1 sheet nhập liệu & một sheet trích lọc kết quả theo ý riêng ( cái này mình đã làm nhiều lần), nhưng riêng bài này cũng là một đề hơi lạ nên mới làm theo ý của chủ topic thôi
Híc, em biết "zụ" in đậm & nghiêng này, nhưng trong trường hợp này em cần tên sheet có khoảng trắng, vì em phải tách tên của sheet, lấy cái đuôi là tên công trình làm điều kiện lọc, mà tên thì vô cùng_ số ký tự "cóc" lường trước được_ nên em muốn phải nhốt nó vào phần tử cuối của mảng (bao nhiêu ký tự cũng "chơi láng"). Híc, nó không chạy ngõ nào thoát được
To y2k_mqm:
Bạn yêu cầu thế nào thì mình làm thế nào
Muốn lọc kiểu gì khác nữa thì cứ gõ phím yêu cầu rồi.....gởi bài lên
Thân

 

[y2k_mqm]

He. rất cảm ơn bác concogia rất rất nhiều.Em rất "sướng" khi được bác quan tâm và comment. Đúng là bài toán của em còn 1 vài vấn đề nữa. Mong bác bớt chút thời gian giúp em. 30p của bác chắc bằng em mày mò cả tuần mất. Mong bác thường xuyên lượn lờ vào thread này. Em sẽ gửi ảnh và file đính kèm để các bác xem giúp. Có khi cũng là bài toán mà có nhiều người muốn biết và quan tâm.

 

[y2k_mqm]

Quản lý vật tư đại lý và công trình cho công ty xây dựng nhỏ

Sau khi nghiền ngẫm thêm bài toán của mình. Em và hoàn thiện được thêm 1 số chức năng . Nhưng vẫn còn một vài vướng mắc mong các bác "gội rồi mới cạo" giúp đỡ . Một là về phần công trình em muốn sắp xếp lần lượt theo thứ tự ngày tháng. Ở đây đang là sắp xếp theo đại lý

Hai là em có thêm 1 sheet tổng hợp về xe chở . Dữ liệu cũng được update vào sheet này khi ta nhập dữ liệu ở các sheet Đại lý. ( Em muốn giống theo cách của bác Caomanhson đã bày nhưng thay bằng X C là tên các xe và các nội dung như sheet tổng hợp về xe chở)
Nhân tiện nhờ các bác kiểm tra giúp em code ở mục lục em click "back to index" thì báo lỗi và k trở về trang mục lục được

http://ni7.upanh.com/b5.s13.d5/ead173448431c205348fd2c060355d22_41001697.update.png

 

[y2k_mqm]

Mong các bác cao thủ về VB giúp đỡ để em hoàn thiện bài toán với ạ. Về mục công trình phần sắp xếp theo thứ tự ngày tháng. Em đã thêm được đoạn code vào sau code của bác concogia để sắp xếp theo thứ tự ngày tháng. Tuy nhiên code của em chưa phải là code tối ưu thì chỉ mới bắt được các công trình đã có sẵn. Đoạn code này bất cập ở chỗ khi ta thêm các sheet" Công trình..." khác thì lại phải vào code VB và edit thêm vào.

If ActiveSheet.Name = "Congtrinh x" Or ActiveSheet.Name = "Congtrinh y" Or ActiveSheet.Name = "Congtrinh z" Then
Worksheets(ActiveSheet.Name).Sort.SortFields.Clear
Worksheets(ActiveSheet.Name).Sort.SortFields.Add Key:=Range( _
"C5:C50000"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With Worksheets(ActiveSheet.Name).Sort
.SetRange Range("C4:J19")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("C5").Select