[help] copy và paste vào dòng trống phía dưới với VBA

[luxuryhanoi]

Chào các bạn, mình đang cần làm 1 file excel với mục đích thống kê bán hàng, đặc điểm của file có mấy yêu cầu sau:
- Do yếu tố về đơn giá thường xuyên thay đổi theo đơn giá nhà cung cấp nên mình muốn sau khi đơn hàng trong ngày được chốt thì toàn bộ số liệu của bảng tính 1 (table1) sẽ được copy và paste nối tiếp ở dòng trống dưới cùng của bảng tính 2 (table2) dưới dạng VALUE,

(xin lỗi vì diễn đàn ko cho tải file Excel lên nên mình đành in ra file png, các bạn giúp mình đoạn Code VBA vậy nhé:


[IMG]http://**************/attachments/tong-hop-ban-hang-31-png.962679133/[/IMG]



Rất mong các bạn trên diễn đàn bạn nào thạo VBA lập giúp mình 1 hàm ở file đính kèm mình gửi với.
Rất cám ơn các bạn và chúc các bạn 1 năm mới vạn sự như ý!!!

View more random threads:

• Hướng dẫn Lập Công Thức Tách Dòng
• tìm số mũ của luỹ thừa
• Theo dõi thu học phí sinh viên
• Bổ Sung Dùm Code Lập Cân Đối Kế Toán
• Hàm chuyển số sang chữ trong excel
• File viết bằng VBA đầu tiên
• Theo dõi hồ sơ vay vốn, thế chấp, cầm cố
• Xin hỏi cách tạo hàm tự động đếm trong excel
• Tự tạo calendar "độc" = Excel
• Giúp đỡ viết code trong excel

[tunglamthinh]

Macro của bạn đây, xin mời:

[COLOR=#000000]
Option ExplicitSub Chép[/COLOR][COLOR=#007700]() [/COLOR][COLOR=#0000BB]Dim Arr[/COLOR][COLOR=#007700](), [/COLOR][COLOR=#0000BB]Sh [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Worksheet Dim Rws [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Dg [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long3 Set Sh [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]ThisWorkbook[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Worksheets[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"Table2"[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]Sheets[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"Table1"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Select5 Rws [/COLOR][COLOR=#007700]= [[/COLOR][COLOR=#0000BB]B2[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]CurrentRegion[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Rows[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Count Arr[/COLOR][COLOR=#007700]() = [[/COLOR][COLOR=#0000BB]B2[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]Resize[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Rws[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]7[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value7 Dg [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[[/COLOR][COLOR=#0000BB]B65500[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]End[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]xlUp[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Row [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]1 Sh[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Dg[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"B"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Resize[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Rws[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]7[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Arr[/COLOR][COLOR=#007700]()[/COLOR][COLOR=#0000BB]End Sub [/COLOR] 

Ghi chú: Ở trang tính [Table1] ngoài cột [STT] ta có 7 cột dữ liệu

Chúc bạn thành công & vui vẻ!

[linhads]

Macro của bạn đây, xin mời:

[COLOR=#000000]
Option ExplicitSub Chép[/COLOR][COLOR=#007700]()[/COLOR][COLOR=#0000BB]Dim Arr[/COLOR][COLOR=#007700](), [/COLOR][COLOR=#0000BB]Sh [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]WorksheetDim Rws [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Dg [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long3 Set Sh [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]ThisWorkbook[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Worksheets[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"Table2"[/COLOR][COLOR=#007700])[/COLOR][COLOR=#0000BB]Sheets[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"Table1"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Select5 Rws [/COLOR][COLOR=#007700]= [[/COLOR][COLOR=#0000BB]B2[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]CurrentRegion[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Rows[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]CountArr[/COLOR][COLOR=#007700]() = [[/COLOR][COLOR=#0000BB]B2[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]Resize[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Rws[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]7[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value7 Dg [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[[/COLOR][COLOR=#0000BB]B65500[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]End[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]xlUp[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Row [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]1Sh[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Dg[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"B"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Resize[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Rws[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]7[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Arr[/COLOR][COLOR=#007700]()[/COLOR][COLOR=#0000BB]End Sub [/COLOR] 

Ghi chú: Ở trang tính [Table1] ngoài cột [STT] ta có 7 cột dữ liệu

Chúc bạn thành công & vui vẻ!

Dạ năm mới chúc bác và gia đình luôn vui vẻ hạnh phúc và gặp nhiều may mắn.

Nhg em copy đoạn code đó về và dán vào thì nó báo lỗi ạ, nếu được phiền bác tạo giúp em với ạ. Tks bác lần nữa.