VBA_Gắn 2 code vào 1; sửa Form; và copy sheet (1 người xem)

[MeThuongNho]

Dear Anh / Chị,
Em có file đính kèm và mong muốn như sau:
1. File Form nhập liệu:
- Sheet DataCopy : em có được 2 code : UpdateFL và UpdateOFF:
Em muốn 2 button này đặt ở sheet nào thì nó cũng chỉ update vào sheet DataCopy thôi.
(Và mong muốn thêm là đưa 2 code này vào 1 chung 1 code để chỉ click 1 lần).
- Code NEW: Khi chạy được code trên rồi : em cần code new:
Để lấy được hết dữ liệu của vùng ABCD, và FGHI do 2 code trên cập nhật được: paste qua vùng ABCD sheet TTSP

2. Phần Use Form:
- Em cần 1 button clear: khi clear nó sẽ clear theo 1 textbox mã sp nào đó.
- Em cần 1 button edit: sẽ chỉnh sửa theo 1 textbox mã sp nào đó.
- Em cần 1 button delete: nó quét mã sp trong cột B sheet Data, và xóa nội dung từ cột B đến G tương ứng.

Mong mọi người giúp đỡ thanks.

 

[HieuCD]

1. File Form nhập liệu:
- Sheet DataCopy : em có được 2 code : UpdateFL và UpdateOFF:
Em muốn 2 button này đặt ở sheet nào thì nó cũng chỉ update vào sheet DataCopy thôi.
(Và mong muốn thêm là đưa 2 code này vào 1 chung 1 code để chỉ click 1 lần).
- Code NEW: Khi chạy được code trên rồi : em cần code new:
Để lấy được hết dữ liệu của vùng ABCD, và FGHI do 2 code trên cập nhật được: paste qua vùng ABCD sheet TTSP

Tại sao phải qua sheet trung gian DataCopy?

 

[MeThuongNho]

1. File Form nhập liệu:
- Sheet DataCopy : em có được 2 code : UpdateFL và UpdateOFF:
Em muốn 2 button này đặt ở sheet nào thì nó cũng chỉ update vào sheet DataCopy thôi.
(Và mong muốn thêm là đưa 2 code này vào 1 chung 1 code để chỉ click 1 lần).
- Code NEW: Khi chạy được code trên rồi : em cần code new:
Để lấy được hết dữ liệu của vùng ABCD, và FGHI do 2 code trên cập nhật được: paste qua vùng ABCD sheet TTSP

Tại sao phải qua sheet trung gian DataCopy?

Hi anh HieuCD,
Vậy anh cho em xin code Update 2 sheet FLEXO và OFFSET : vào TTSP luôn nha anh.
(ANH chỉ giúp em dòng nào trong code là sửa được vùng copy : CDEF của 2 sheet đó, để e học rồi có thể tăng giảm vùng khi cần thiết nha anh.)
Cám ơn anh!

 

[HieuCD]

Hi anh HieuCD,
Vậy anh cho em xin code Update 2 sheet FLEXO và OFFSET : vào TTSP luôn nha anh.
(ANH chỉ giúp em dòng nào trong code là sửa được vùng copy : CDEF của 2 sheet đó, để e học rồi có thể tăng giảm vùng khi cần thiết nha anh.)
Cám ơn anh!

Dùng key là mã sản phẩm hợp lý hơn tên sản phẩm, nếu dùng tên sản phẩm làm key bạn chỉnh lại thứ tự cột cho tất cả key
Code lấy 4 cột, nếu chỉ cần 3 cột thì bạn tự viết lại, thử nhiều lần không được thì gởi lên
Form phải giải thích từng nút lệnh mới làm đúng ý

 

[MeThuongNho]

Dùng key là mã sản phẩm hợp lý hơn tên sản phẩm, nếu dùng tên sản phẩm làm key bạn chỉnh lại thứ tự cột cho tất cả key
Code lấy 4 cột, nếu chỉ cần 3 cột thì bạn tự viết lại, thử nhiều lần không được thì gởi lên
Form phải giải thích từng nút lệnh mới làm đúng ý

Cám ơn HieuCD,
Em test code xong rồi sẽ làm cái form lại và gửi lại bài.
Cám ơn anh nhiều!

 

[MeThuongNho]

Cám ơn HieuCD,
Em test code xong rồi sẽ làm cái form lại và gửi lại bài.
Cám ơn anh nhiều!

Sau khi copy xong em muốn có thông báo đã cập nhật xong dữ liệu thì thêm code sao anh.

 

[HieuCD]

Sau khi copy xong em muốn có thông báo đã cập nhật xong dữ liệu thì thêm code sao anh.

Dùng MsgBox cuối sub