Giúp đoạn code copy và dán (1 người xem)

[mymapmap]

Mình được giúp đoạn code copy và xóa một số nội dung trong vùng copy và dán vào vùng mới nhưng mình phải định dạng trước vùng cần dán giống nguồn copy nên làm tăng dung lượng file tính rất nhiều (định dạng chiều cao dòng, độ rộng cột, merge cell, vùng in..). Có cách nào mình không cần định dạng trước vùng cần dán nhưng khi dán vào vùng mới tự định dạng giống với nguồn copy không?
Mong các ACE chĩ gúp mình với
Mọi ý kiến phản hồi được quan nghênh và cảm ơn nhiều

ElseIf NameSheet = "Record" Then        
Set dRng = Union([A12].Resize(2), [D14].Resize(6), [E20].Resize(3), _ 
 [H17:L19], [H21].Resize(2), [M26].Resize(3), [C46:N51], [M3], [E40], [K4])        
StrC = "Ban Can Copy Den: " & Rng.Offset(Paj * TimeS).Address & Chr(13) _            & "Va Xoa Vung: " & dRng.Offset(Paj * TimeS).Address        Rng.Copy Destination:=Rng.Offset(Paj * TimeS)        
dRng.Offset(Paj * TimeS).Value = ""                 
  End If

 

[mymapmap]

Hom nay các ACE đi choi lễ 2-9 hết rồi. Hy vọng qua lễ se có nguoi giúp mình

 

[Quang_Hải]

Mình được giúp đoạn code copy và xóa một số nội dung trong vùng copy và dán vào vùng mới nhưng mình phải định dạng trước vùng cần dán giống nguồn copy nên làm tăng dung lượng file tính rất nhiều (định dạng chiều cao dòng, độ rộng cột, merge cell, vùng in..). Có cách nào mình không cần định dạng trước vùng cần dán nhưng khi dán vào vùng mới tự định dạng giống với nguồn copy không?
Mong các ACE chĩ gúp mình với
Mọi ý kiến phản hồi được quan nghênh và cảm ơn nhiều

ElseIf NameSheet = "Record" Then        
Set dRng = Union([A12].Resize(2), [D14].Resize(6), [E20].Resize(3), _ 
 [H17:L19], [H21].Resize(2), [M26].Resize(3), [C46:N51], [M3], [E40], [K4])        
StrC = "Ban Can Copy Den: " & Rng.Offset(Paj * TimeS).Address & Chr(13) _            & "Va Xoa Vung: " & dRng.Offset(Paj * TimeS).Address        Rng.Copy Destination:=Rng.Offset(Paj * TimeS)        
dRng.Offset(Paj * TimeS).Value = ""                 
  End If

Mình đánh cuộc với bạn là tới tết Công gô cũng không có ai sửa đoạn code trên

Muốn thế nào thì gởi file lên, mệt nhất là ngồi đọc code và sửa code

 

[mymapmap]

Mình đánh cuộc với bạn là tới tết Công gô cũng không có ai sửa đoạn code trên

Muốn thế nào thì gởi file lên, mệt nhất là ngồi đọc code và sửa code

Trước hết xin chúc Anh QuangHai có ngày nghỉ vui khỏe. Và mình xin up thêm file mong Anh và các ACE khác giúp đỡ.
Xin Cảm ơn nhiều!

 

[Quang_Hải]

Trước hết xin chúc Anh QuangHai có ngày nghỉ vui khỏe. Và mình xin up thêm file mong Anh và các ACE khác giúp đỡ.
Xin Cảm ơn nhiều!

Thông thường khi copy và paste thì đich đến sẽ có cùng format mà. Trong file của bạn code nhiều lắm ai biết chạy thế nào. Nếu bạn muốn copy thế nào và dán đến đâu thì nói rõ hơn mọi người có thể viết code khác

 

[mymapmap]

Đúng là đoạn code hơi dài dòng lê thê tí nhưng chung quy là click chuột vào nút COPY & PASTE thì sẽ copy trang 1 dán xuống từ trang 2 đến trang thứ n (nhập vào) và xóa một số nội dung từ trang 2 trở đi, hiện ra các cell màu vàng. Vấn đề nếu không định dạng trước đích đến thì các dòng cột sẽ bị bun ra rất rộng. chỉ cần giải quyết việc không formmat trước nhưng không bun dòng cột là được.
Xin cảm ơn.

 

[tranvanold]

Trước hết xin chúc Anh QuangHai có ngày nghỉ vui khỏe. Và mình xin up thêm file mong Anh và các ACE khác giúp đỡ.
Xin Cảm ơn nhiều!

Bạn định dạng trước vùng cần dán giống với trang đầu là được. còn viết code như thế nào thì mình không biết. Chắc bạn phải chờ một cao thủ nào ra tay thôi.