Copy 1 dong hoặc 1 vùng được đánh dấu sang 1 sheet khác. (2 người xem)

[hoatinhyeu862000]

Như tiêu đề em có muốn khi trọn 1 dòng, 1 vùng dữ liệu rồi click vào 1 CMBT như trong sheet 1 thì vùng được chọn sẽ tự động copy sang sheet 2 theo thứ tự từ trên xuống xin anh chị chỉ giúp ạ.

 

[nghiaphuc]

Như tiêu đề em có muốn khi trọn 1 dòng, 1 vùng dữ liệu rồi click vào 1 CMBT như trong sheet 1 thì vùng được chọn sẽ tự động copy sang sheet 2 theo thứ tự từ trên xuống xin anh chị chỉ giúp ạ.

Nếu theo đúng yêu cầu của bạn thì code chỉ cần như vầy là đủ:

Selection.Copy Sheets("Sheet2").[A1]

Địa chỉ A1 bạn có thể thay đổi tùy theo nhu cầu thực tế.

 

[hoatinhyeu862000]

Nếu theo đúng yêu cầu của bạn thì code chỉ cần như vầy là đủ:

Selection.Copy Sheets("Sheet2").[A1]

Địa chỉ A1 bạn có thể thay đổi tùy theo nhu cầu thực tế.

em đã thử nhưng không ổn anh ạ
có thể em chưa nói hết ý hoặc chưa tròn ý em xin trình bày lại thế nào
trương hợp em sẽ chọn dòng 3 và click vào button nó sẽ tự động copy dòng số 3 trong sheet1 sang dòng số 1 trong sheet 2 hoặc cứ tương tự thế chọn dòng 5,7,9,11,56,n thì nó sẽ lần lượt copy sang các dòng từ 2->n bên sheet2 giống như trường hợp loc dòng 1 kicsk chuột phải chọn copy rồi chọn sheet2 nhấn vào dòng A1 kick chuột phải chọn paste ấy ạ tuy nhiên nếu làm như thế với 1 lương dữ liệu tới cả nghìn dòng thì quả thực cũng vật cho dù giờ em vẫn đang phải thực hiện công việc như vậy ạ. xin anh chỉ giúp cụ thể hơn, đoạn code của anh chỉ là copy các vũng nhưng chỉ paste vào duy nhất 1 địa chỉ là A1, và khi chọn 1 dong khác nó sẽ lại thay thế dòng copy trước đó mà k tự động nhày xuống 1 dòng khác.

 

[nghiaphuc]

em đã thử nhưng không ổn anh ạ
có thể em chưa nói hết ý hoặc chưa tròn ý em xin trình bày lại thế nào
trương hợp em sẽ chọn dòng 3 và click vào button nó sẽ tự động copy dòng số 3 trong sheet1 sang dòng số 1 trong sheet 2 hoặc cứ tương tự thế chọn dòng 5,7,9,11,56,n thì nó sẽ lần lượt copy sang các dòng từ 2->n bên sheet2 giống như trường hợp loc dòng 1 kicsk chuột phải chọn copy rồi chọn sheet2 nhấn vào dòng A1 kick chuột phải chọn paste ấy ạ tuy nhiên nếu làm như thế với 1 lương dữ liệu tới cả nghìn dòng thì quả thực cũng vật cho dù giờ em vẫn đang phải thực hiện công việc như vậy ạ. xin anh chỉ giúp cụ thể hơn

Nghĩa là bạn muốn copy những dòng được chọn vào cuối danh sách đã có ở Sheet2?
Bạn thử lại câu lệnh này xem sao:

Selection.Copy Sheet2.[A65000].End(xlUp).Offset(1)

 

[hoatinhyeu862000]

cảm ơn anh đúng rồi ạ cho em hỏi thêm 1 vấn đề nữa về mặt trình bày đó là có cách nào copy mà nó giữ nguyên định dạng như bên được copy không ạ nghĩa là: độ rộng, dài của ô ấy ạ vì nếu copy 1 ô rồi paste sang bên kia thì nó sẽ mất cái định dạng dài rộng của ô mà nó sẽ giữ nguyên định dạng ban đầu của excel giờ em muốn ô sẽ giữ nguyên định dạng như bên đc copy anh ạ!

 

[nghiaphuc]

cảm ơn anh đúng rồi ạ cho em hỏi thêm 1 vấn đề nữa về mặt trình bày đó là có cách nào copy mà nó giữ nguyên định dạng như bên được copy không ạ nghĩa là: độ rộng, dài của ô ấy ạ vì nếu copy 1 ô rồi paste sang bên kia thì nó sẽ mất cái định dạng dài rộng của ô mà nó sẽ giữ nguyên định dạng ban đầu của excel giờ em muốn ô sẽ giữ nguyên định dạng như bên đc copy anh ạ!

Cái vụ này thì có lẽ bạn phải nghiên cứu đến PasteSpecial rồi. Bạn thử bật Record Macro lên, chọn toàn bộ Sheet1, nhấn Ctrl+C. Sau đó qua Sheet2, chọn toàn bộ, chọn Edit\Paste Special, chọn Column withs, nhấn OK rồi tắt Record Macro xem mình đã thu được câu lệnh gì. Sau đó chỉ việc "gọt giũa" đi một chút là xài được thôi. Tôi đã từng bắt đầu với VBA bằng cách này đấy.

 

[hoatinhyeu862000]

Cảm ơn anh đã thành công rồi ạ

 

[hoatinhyeu862000]

Xin hỏi thêm các anh chị 1 vấn đề nữa đó là em có tạo 1 nút xóa vùng dữ liệu tuy nhiên nếu xóa vùng đó chỉ có chữ thì rất tốt nhưng nếu xóa vùng đó mà có hình thì nó sẽ không xóa được hình và các ô bị mất đường kẻ mờ. vậy phải làm sao? và vấn đề nữa như đã đề cập với anh nghiaphuc là muốn định dạng bên copy sang giống định dạng như bên đc copy thì em vẫn chưa làm được xin anh tiếp tục chỉ giúp