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 cd key cho file excel
• Trợ giúp vấn đề "Lọc dữ liệu"
• Tính tổng của các sheet trong cùng 1 file
• Hỏi cách đếm nhưng loại bỏ đếm trùng
• Tạo header cho tất cả các sheet cùng 1 lúc
• Hỏi về cách in liên tục
• phần mềm quản lý thu chi
• help me file exl bao lỗi ko mở được
• Lỗi font khi xuất ra file excel từ phần mềm kế toán Asia.
• cộng trừ đơn giàn mà vẫn không ra kết quả trong exel

[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