Nhờ anh chị sửa giúp hàm copy giữa các sheet

[Minhkhoi1206]

Em là thành viên mới em mới viết cái hàm để copy dữ liệu giữa các sheet với nhau nhưng khi chạy thì dữ liệu trả về với các ô chưa theo dạng số có số "0" ở đầu nó toàn bị mất hết và cột định dạng ngày tháng năm sinh nó bị nhảy sang dạng số hết nhờ anh chị sửa giúp em cái hàm này với a! Cảm ơn anh chị

Sub Copy_Sheet()
Sheet5.Select
Sheet2.Select

Sheet2.Range("A2:A1000").Value = Sheet5.Range("AB3:AB1001").Value
Sheet2.Range("C2:C1000").Value = Sheet5.Range("AC3:AC1001").Value


Application.CutCopyMode = False
End Sub

 

[HieuCD]

Em là thành viên mới em mới viết cái hàm để copy dữ liệu giữa các sheet với nhau nhưng khi chạy thì dữ liệu trả về với các ô chưa theo dạng số có số "0" ở đầu nó toàn bị mất hết và cột định dạng ngày tháng năm sinh nó bị nhảy sang dạng số hết nhờ anh chị sửa giúp em cái hàm này với a! Cảm ơn anh chị

Sub Copy_Sheet()
Sheet5.Select
Sheet2.Select

Sheet2.Range("A2:A1000").Value = Sheet5.Range("AB3:AB1001").Value
Sheet2.Range("C2:C1000").Value = Sheet5.Range("AC3:AC1001").Value


Application.CutCopyMode = False
End Sub

Sub Copy_Sheet()
Sheet5.Range("AB3:AB1001").copy Sheet2.Range("A2:A1000")
Sheet5.Range("AC3:AC1001").copy Sheet2.Range("C2:C1000")
Application.CutCopyMode = False
End Sub

 

[Minhkhoi1206]

Sub Copy_Sheet()
Sheet5.Range("AB3:AB1001").copy Sheet2.Range("A2:A1000")
Sheet5.Range("AC3:AC1001").copy Sheet2.Range("C2:C1000")
Application.CutCopyMode = False
End Sub

Vì những dữ liệu e copy sang chứa lệnh nếu copy như vậy nó kéo cả lệnh qua ạ

 

[Nhattanktnn]

Vì những dữ liệu e copy sang chứa lệnh nếu copy như vậy nó kéo cả lệnh qua ạ

Vậy bạn đưa file lên

 

[SA_DQ]

Bài đăng đang sai đề mục!
Nên đến đây: https://www.giaiphapexcel.com/diendan/forums/lập-trình-với-excel.79/
hay chí ít: https://www.giaiphapexcel.com/diendan/forums/những-vấn-đề-chung.3/

 

[Minhkhoi1206]

Vậy bạn đưa file lên

Dạ đây ạ với cả em đang muốn từ file này xuất ra một file mới chứa 3 sheet đầu tiên của file nếu tích vào nút chạy macro được luôn thì làm thế nào ạ? em đang dùng cái SaveAsWorkbook tìm thấy trên diễn đàn thấy nó hơi bất tiện vì tích vào nó tắt luôn cái file đang làm đi ạ

Bài đã được tự động gộp: 22/4/21

Bài đăng đang sai đề mục!
Nên đến đây: https://www.giaiphapexcel.com/diendan/forums/lập-trình-với-excel.79/
hay chí ít: https://www.giaiphapexcel.com/diendan/forums/những-vấn-đề-chung.3/

Dạ em xin lỗi em sẽ rút kinh nghiệm bài đăng sau ạ