Giúp câu lệnh VBA copy paste

[hunglam123]

Mình có dùng đoạn code sau

Sheets("nhaplieu").Range("B307:X307").Copy Sheets("nhaplieu").Range("B305")

Nhưng code paste không giử lại Data Validation
Mình muốn đoạn code VBA paste giống như Ctrl + V. Copy lấy tất cả, định dạng, giá trị, Data VAlidation... XIn chân thành cảm ơn

 

[Phuocam]

Nhưng code paste không giử lại Data Validation

Thử:

Sheets("nhaplieu").Range("B307:X307").Copy  
Sheets("nhaplieu").Range("B305").PasteSpecial xlPasteAll
Sheets("nhaplieu").Range("B305").PasteSpecial xlPasteValidation