cần giúp đỡ của của mọi người về việc sao chép append data giửa 2 sheet trong excel

[VinhLink]

Yêu cầu của bài tập:
* Khi ta chọn bán hàng thì giữ liệu các cell như :
ngay,shd,tenhk,dt,tenhanghoa,ime,dongia trong sheet Hoadon
được sao chép qua cac cell trong sheet data tương ứng


* khi ta bấm chọn mới thì :
ngày giờ sẻ là ngày giờ hiện tại.
Số hóa đơn = shd hien tại + 1
các cell tenKh,dt, tenhang hóa... sẻ được xóa trắng cho ta nhập mới

View more random threads:

• đặt số thứ tự tương ứng cho ngày tháng khi ngày tháng xếp không lần lượt cho các ngày
• nhờ diễn đàn chỉ giúp e cách vẽ biểu đồ như hình vẽ
• File qlhdvat cho may in kim
• In 1 trang nhiều sheet
• tính tổng có điều kiện kèm theo loại bỏ trùng
• Lọc Kết quả trả về thứ tự của giá trị !
• Help? :Chia tổng số lượng cho các ngày trong tháng bằng hàm excel ?
• File từ dự toán
• In đậm những từ mình muốn in đậm theo hàm CONCATENATE
• [Hỏi] Mở liên kết của ô A từ ô B

[kothemyeuz]

Sub cho nut ban hang

Sub ban_hang()
    Dim cur_row As Long
    Dim table_lrow As Long
    With Sheet2
        cur_row = .Cells(.Rows.Count, 5).End(xlUp).Row + 1
        .Range("A3", "A" & cur_row) = Format(Date, "mm-dd-yyyy")
    End With


    With Sheet1
        .Range("c6").Copy
        Sheet2.Range("a" & cur_row).PasteSpecial xlPasteValues
        .Range("e6").Copy Destination:=Sheet2.Range("b" & cur_row)
        .Range("D7").Copy Destination:=Sheet2.Range("c" & cur_row)
        .Range("F7").Copy Destination:=Sheet2.Range("d" & cur_row)
        table_lrow = .Range("d8").End(xlDown).Row
        .Range("c9", "c" & table_lrow).Copy Destination:=Sheet2.Range("e" & cur_row)
        .Range("d9", "d" & table_lrow).Copy Destination:=Sheet2.Range("f" & cur_row)
        .Range("e9", "e" & table_lrow).Copy Destination:=Sheet2.Range("g" & cur_row)
    End With
End Sub

Code cho nut moi

Sub moi()
    Dim table_lrow As Long
    With Sheet1
        .Range("c6") = Now()
        .Range("e6").Value = .Range("e6").Value + 1
        .Range("d7", "f7").ClearContents
        table_lrow = .Range("d8").End(xlDown).Row
        .Range("b9", "e" & table_lrow).ClearContents
    End With
End Sub

[phamhuanmko]

cám ơn killitmore rất nhiều code của bạn chạy rất tốt
thanhk