Code copy và paste bị lỗi

[yeu_excel]

Mình viết 1 code nho nhỏ copy 1 số vùng không liền nhau để paste sang tài liệu khác(các vùng còn lại đã bị khóa). Khi paste thì báo lỗi. Các bạn xem hộ file rồi giúp đỡ mình với. Xin cảm ơn!

 

[Hoàng Trọng Nghĩa]

Mình viết 1 code nho nhỏ copy 1 số vùng không liền nhau để paste sang tài liệu khác(các vùng còn lại đã bị khóa). Khi paste thì báo lỗi. Các bạn xem hộ file rồi giúp đỡ mình với. Xin cảm ơn!

Thì trước khi paste bạn mở khóa ra sau đó khóa lại:

Code dưới đây giả định là Sheet2 đang bị khóa và cần Paste vào, làm như sau:

Sub copydulieu()
  Sheet2.Unprotect ("YourPassWord")
    Sheet1.Range("A1:A5,C1:C5,E1:E5").Copy Sheet2.Range("A1")
  Sheet2.Protect ("YourPassWord")
End Sub

 

[yeu_excel]

Cám ơn bạn. Như vậy lỗi là do chưa mở khóa nhỉ. Nếu mình copy vùng dữ liệu trên ở file abc (tức là file copy mình gửi kèm ấy, thay tên cho đỡ nhầm) paste sang Sheet2.Range("A1") ở file mnp với pass ở file mnp là 12345 chẳng hạn thì code như thế nào, có lẽ code này phải để ở file mnp mới được đúng không bạn?

 

[yeu_excel]

Bác minhthien321 ơi, bác giúp tiếp em với nào! Khi paste như vậy 3 cột đang rời nhau thì sẽ nhập lại sát nhau. Ở đây em muốn 3 cột đó sau khi paste vẫn rời nhau, tức là vào đúng các ô màu xanh ấy.

 

[Hoàng Trọng Nghĩa]

Bác minhthien321 ơi, bác giúp tiếp em với nào! Khi paste như vậy 3 cột đang rời nhau thì sẽ nhập lại sát nhau. Ở đây em muốn 3 cột đó sau khi paste vẫn rời nhau, tức là vào đúng các ô màu xanh ấy.

Thì tách rời ra từng phần rồi Paste từng phần thôi!

Sub copydulieu()
  Range("A1:A5").Copy Range("E8")
  Range("C1:C5").Copy Range("G8")
  Range("E1:E5").Copy Range("I8")
End Sub

 

[phan ngoc lan]

Bạn nhấn Ctrl+D và chọn các loại copy không thay đổi tham chiếu cho các ô chứa công thức có thể copy một vùng hoặc nhiều vùng
Tại đây: ------------------------

 

[yeu_excel]

Không tải được bạn Phan Ngoc Lan ơi, toàn báo lỗi do máy chủ. Bạn gửi file lên trang này đi. Có bạn nào download được thì gửi lên đây hộ mình với

 

[Hoàng Trọng Nghĩa]

Không tải được bạn Phan Ngoc Lan ơi, toàn báo lỗi do máy chủ. Bạn gửi file lên trang này đi. Có bạn nào download được thì gửi lên đây hộ mình với

Tôi up file đó dùm bạn Ngọc Lan nhé!