Code khi thay đổi dữ liệu từ sheet 1 sẽ tự động copy sang sheet 2 có điều kiện (2 người xem)

[Pirate]

Chào mọi người,
xin mọi người giúp đỡ. Mình có sheet Knowledge vùng dữ liệu từ E20:AB24 và E29:AG33 (line vàng)
Khi em nhập dữ liệu xong từ sheet này. Em muốn nhấn nút cập nhật tại sheet A sẽ tự động copy và chèn thêm dòng nếu thiếu so với sheet Knowledge hoặc giảm bớt dòng như vùng dữ liệu bên sheet Knowledge.
Điều kiện bên dưới vùng được copy có dữ liệu bên dưới.
Mong mọi người giúp đỡ và cho em xin code nút cập nhật và xóa cập nhật.
Chúc năm 2015 hạnh phúc và thành công nhé mọi người!

 

[phuyen89]

Oh, dữ liệu bị gộp Ô, mong các Thầy ra tay để em học hỏi!

 

[Pirate]

Mong mọi người nghiên cứu giúp mình với.

 

[Kiều Mạnh]

Chào mọi người,
xin mọi người giúp đỡ. Mình có sheet Knowledge vùng dữ liệu từ E20:AB24 và E29:AG33 (line vàng)
Khi em nhập dữ liệu xong từ sheet này. Em muốn nhấn nút cập nhật tại sheet A sẽ tự động copy và chèn thêm dòng nếu thiếu so với sheet Knowledge hoặc giảm bớt dòng như vùng dữ liệu bên sheet Knowledge.
Điều kiện bên dưới vùng được copy có dữ liệu bên dưới.
Mong mọi người giúp đỡ và cho em xin code nút cập nhật và xóa cập nhật.
Chúc năm 2015 hạnh phúc và thành công nhé mọi người!

bài này nếu bạn cố định dòng cột thì làm VBA cho bạn đơn giản ... đường này nếu thiếu lại thêm dòng ...và làm một lần hay nhiều lần ..nếu như vây rất kho cho người viết code cho bạn..
bạn thử nghiên cứu lại cấu trúc dữ liệu nếu có thay đổi theo hướng dễ thì mình nghiên cứu làm xem có được không

 

[be_09]

bài này nếu bạn cố định dòng cột thì làm VBA cho bạn đơn giản ... đường này nếu thiếu lại thêm dòng ...và làm một lần hay nhiều lần ..nếu như vây rất kho cho người viết code cho bạn..
bạn thử nghiên cứu lại cấu trúc dữ liệu nếu có thay đổi theo hướng dễ thì mình nghiên cứu làm xem có được không

Bài này làm cũng được, nhưng phải chờ ngâm cứu.


Gợi ý:

- Sheet A (update from Knowledge) và Sheet Knowledge vùng chứa dữ liệu phải đồng dạng (trong File của tác giả chưa đồng dạng và Merge and Center nên thực hiện Code sẽ khó).

- Sau đó làm thủ công: Copy và Paste (chỉ mấy thao tác đâu cần Code chi cho phức tạp). Còn muốn Code thì chờ ngâm cứu sau.

 

[Pirate]

Mình gợi ý code này được không, các bạn giúp hoàn thiện nha.

Application.DisplayAlerts = False
Sheet2.Range("E20:AJ24").Copy
Sheet1.Activate
Range("E8").Select
ActiveSheet.Paste

Sheet2.Range("E29:AF33").Copy
Sheet1.Activate
Range("E15").Select

ActiveSheet.Paste

 

[Kiều Mạnh]

Mình gợi ý code này được không, các bạn giúp hoàn thiện nha.

ActiveSheet.Paste

thì cứ vậy mà sử dụng theo ý bạn đi xem sao
nếu sai tính tiếp

 

[Quang_Hải]

Mình gợi ý code này được không, các bạn giúp hoàn thiện nha.

ActiveSheet.Paste

Mình cũng tính viết code giống y chang như nội dung vừa được gợi ý.

 

[be_09]

Mình gợi ý code này được không, các bạn giúp hoàn thiện nha.

ActiveSheet.Paste

Theo yêu cầu bài #01 thì chưa đáp ứng.

Yêu cầu: Em muốn nhấn nút cập nhật tại sheet A sẽ tự động copy và chèn thêm dòng nếu thiếu so với sheet Knowledge hoặc giảm bớt dòng như vùng dữ liệu bên sheet Knowledge.

 

[Pirate]

Bạn có thể share mình file đã viết được không, tạo nút cập nhật như bài 1.
Mình làm mà không chạy được