Tạo macro copy dữ liệu

[hongmai123]

Chào GPEX,
Mình biết việc này dễ nhưng mình mới tìm hiểu nên còn lúng túng. Nhờ các bạn viết giúp đoạn macro để copy dữ liệu.

VD mình chạy macro để copy dữ liệu cột A sheet 1 sang cột A sheet 2, tiếp tục chạy macro lần nữa sẽ copy dữ liệu từ cột A sheet 1 sang cột B sheet 2, lần nữa sẽ sang cột C, D, E, ... (sheet 1 là cố định)

View more random threads:

• tạo các mục cho word
• Tạo cột ngày tháng năm trong Excel
• Sổ cái trong excel
• Cách chuyển lỗ để tính thuế TNDN tạm tính
• Hỏi: Xin bài tập kế toán bằng tiếng anh.
• Dò tìm
• Sử dụng hàm & để liên kết các ô trong exel, nhưng khi đền ô có dữ liệu ngày tháng năm
• Tạo mã vạch có số ký tự trong mã vạch là 6 số
• Phần mềm hổ trợ tính các công thức ToolExcel.dll
• Nhờ các bạn giúp mình tạo form tự điền thông tin cá nhân

[zinzin8x]

Chào GPEX,
Mình biết việc này dễ nhưng mình mới tìm hiểu nên còn lúng túng. Nhờ các bạn viết giúp đoạn macro để copy dữ liệu.

VD mình chạy macro để copy dữ liệu cột A sheet 1 sang cột A sheet 2, tiếp tục chạy macro lần nữa sẽ copy dữ liệu từ cột A sheet 1 sang cột B sheet 2, lần nữa sẽ sang cột C, D, E, ... (sheet 1 là cố định)

Sub TT()
Sheet1.Range("A1:A10000").Copy Sheet2.Range("A1:D10000")
End Sub

[vanthi1991]

<div class="bbcode_container">
<div class="bbcode_description">Code:

</div>
</div>
Chào bác,
Ý mình là mỗi lần chỉ copy qua 1 cột bên sheet 2 thôi.
Cụ thể TH của mình là Sheet1 mỗi ngày mình sẽ copy dữ liệu mới vào cột A, sau đó chạy macro để copy 1 số dữ liệu mình muốn qua sheet 2 lưu trữ theo từng ngày.

[jindo11111]

<div class="bbcode_container">
<div class="bbcode_description">Code:

</div>
</div>
Mình chạy bị báo lỗi mình gửi file minh họa bạn xem giúp nhé. Tks

Mong muốn của mình là mỗi lần chạy macro sẽ copy từ cột A sheet 1 sang cột tiếp theo của sheet 2

[grantevil]

bạn copy chạy như thế nào mà bị lỗi

[noithat889]

bạn copy chạy như thế nào mà bị lỗi

lỗi ngay dòng này bạn ơi

Col = Sheets("AA (%)").Range("XFD1").End(xlToLeft).Column

Sheet AA là sheet mình muốn copy dữ liệu vào

[thuyduong]

Mình chạy bị báo lỗi mình gửi file minh họa bạn xem giúp nhé. Tks

Mong muốn của mình là mỗi lần chạy macro sẽ copy từ cột A sheet 1 sang cột tiếp theo của sheet 2

Chạy thử Sub này từ Module Excel 2007 trở lên.

Public Sub GPE()Sheet1.Range(Sheet1.[A2], Sheet1.[A1048576].End(xlUp)).Copy _Sheet2.Cells(2, Application.WorksheetFunction.CountA(Sheet2.Range("A2:XFD2")) + 1)End Sub