[Hỏi] Nhờ giúp code VBA tự động cập nhật thông tin

Chào mọi người.
Hiện tại mình đang tạo file theo dõi công việc và cần visual basic trong excel để tự động cập nhật thông tin giống nhau, hiện tại nếu làm thủ công thì tốn nhiều thời gian, vì vậy nhờ mọi người giúp.
Chi tiết như những ô màu đỏ cột K như sau:
1. Tại cột D11, tôi ghi "nội dung công việc", tôi muốn tại cột K luôn thể hiện công thức như ở cột K11.
2. Khi cột D11 ghi "nội dung công việc" thi các cột K12, K13,K14,K15 lần lượt ghi" Nhà thầu-Ban";"Ban-Công ty";"Chờ phê duyệt";""Đã phê duyệt"
3. Các cột từ E11 đến J11 điền công thức tự cộng như file.
Tương tự cột như vậy, nếu  cột D "ghi tên công việc" thì  cột K tự động cập nhật như ví dụ
Mọi người giúp mình được không. Cám ơn!
Đính kèm file
Tự động cập nhật thông tin.xlsm (5.01 MB, Lượt tải về: 549)

11/10/2015 09:47 Tải lên

Click to download

Macro dùng lệnh tắt Ctrl+j
Chọn 1 cell trên Dòng chuẩn bị lập công việc mới, ví dụ "B16". Nhấn tổ hợp phím Ctrl+j, xem thành quả!
Tự động cập nhật thông tin V1.xlsm (4.96 MB, Lượt tải về: 530)

11/10/2015 11:08 Tải lên

Click to download
Bạn tự xóa Validation trên cột K nhé, vì không còn cần thiết mà File rất nặng.

tranhoe gửi lúc 11/10/2015 11:10
Macro dùng lệnh tắt Ctrl+j
Chọn 1 cell trên Dòng chuẩn bị lập công việc mới, ví dụ "B1 ...

Nhờ anh tranhoe bổ sung thêm đoạn code giúp em 2 nội dung như sau:
1. Anh tạo giúp tự động cập nhật bổ sung thêm ""công thức tại cột M khi cột A  khi bấm Ctrl+Shift+J "(Giống như các cột D đến K trước đây anh đã tạo)
2. Khi bấm "Ctrl+Shift+J" tạo công việc mới, em muốn không tạo công việc nữa thì  lùi lại được không anh (Giống như nút undo trong Excel)
PS: Vì VB của em củ chuối nên chưa làm được, chắc sau này phải đi học 1 khóa thôi.
Đính kèm file:   Theo doi cong viec.xlsm (5.08 MB, Lượt tải về: 383)

13/10/2015 21:31 Tải lên

Click to download

khoa289 gửi lúc 13/10/2015 21:33
Nhờ anh tranhoe bổ sung thêm đoạn code giúp em 2 nội dung như sau:
1. Anh tạo giúp tự đ ...

- Diễn giải của bạn mình chưa hiểu ý lắm
- Thêm nút undo (Sửa lại code của Bác Hòe bằng cách thay các công thức bằng điều kiện trống)
them undo.xlsm (5.4 MB, Lượt tải về: 449)

13/10/2015 22:18 Tải lên

Click to download

butua@vn gửi lúc 13/10/2015 22:21
- Diễn giải của bạn mình chưa hiểu ý lắm
- Thêm nút undo (Sửa lại code của Bác Hò ...

Cám ơn bạn đã bổ sung nút undo.
Mình đã bổ sung file mới và mình đang muốn như sau:
Mình bấm nút tự động cập nhật(Hoặc Ctrl+shift+J như file mình gửi bổ sung thì tại cột A và cột M sẽ tự động cập nhật công thức như các cột khác (Hiện tại khi bấm nút "Ctrl+shift+J" thì chỉ tự động từ cột D đến cột K
PS: Mục đích mình muốn cột A sẽ tự điền số thự tự và cột M sẽ tự động cập nhật số lượng hồ sơ

khoa289 gửi lúc 13/10/2015 22:44
Cám ơn bạn đã bổ sung nút undo.
Mình đã bổ sung file mới và mình đang muốn như sa ...

Copy đoạn code sau vào ben dưới đoạn code "Sua noi dung"
.Offset(0, -3).FormulaR1C1 = "=MAX(R[-5]C:R[-1]C)+1"
Sao cột M lại là số lượng hồ sơ, không hiểu lắm? Số lượng hồ sơ bạn đang tính tại cột nào ? tính bằng cách nào ? ngần ấy mới đủ thông tin mình làm cho bạn !

khoa289 gửi lúc 13/10/2015 21:33
Nhờ anh tranhoe bổ sung thêm đoạn code giúp em 2 nội dung như sau:
1. Anh tạo giúp tự đ ...

1./ Đã làm xong các yêu cầu.
2./ Macro khi đã làm xong thì không thể Undo được. Muốn Undo được thì phải viết code loằng ngoằng, nhưng không có thời gian.
Đơn giản hơn là viết code Xóa 1 công việc cho nó khỏe. Phím tắt Ctrl+Shift+X, cách làm việc cũng chọn cell trong Dòng chứa Nội dung công việc cần Xóa, nhấn Ctrl+Shift+X là xong. Nếu không đúng Dòng chứa Nội dung công việc thì sẽ có thông báo: "Bạn chọn không đúng Dòng chứa tên công việc"
Theo doi cong viec V1.xlsm (423.27 KB, Lượt tải về: 426)

14/10/2015 00:19 Tải lên

Click to download

butua@vn gửi lúc 13/10/2015 23:50
Copy đoạn code sau vào ben dưới đoạn code "Sua noi dung"
.Offset(0, -3).FormulaR1C1 = "=MAX ...

Anh tranhoe đã làm xong rồi đó butua@vn. Thanks