Copy dữ liệu tuần tự giữa 2 sheet (1 người xem)

[elnino167]

Em chào các anh các chị
Em ko biết chút gì về VBA. sau khi mò các bài trên diễn đàn. em có làm dc 1 file excel với công việc là sau khi nhập mặt hàng, số lượng ở sheet Hóa Đơn. thì sẽ tự copy sang sheet BanHang. Nếu nhập mới hóa đơn, thì sẽ tự copy xuống dưới ở sheet BanHang.
Em đã chạy được nhưng lại báo lỗi. mong các anh chị xem qua và sửa giúp em.

Sub Macro1()
Dim Ran As Range
Dim I As Long
Cells(65536, 3).Select
I = Selection.End(xlUp).Row + 2
Set w = ThisWorkbook.Sheets("Hóa ðõn").Range("B9:B21")
For Each Ran In w
Cells(I, 3).Value = Ran.Value
I = I + 1
Next
Cells(I, 3).Select


Dim Ran1 As Range
Dim I1 As Long
Cells(65536, 4).Select
I1 = Selection.End(xlUp).Row + 2
Set q = ThisWorkbook.Sheets("Hóa ðõn").Range("c9:c21")
For Each Ran1 In q
Cells(I1, 4).Value = Ran1.Value
I1 = I1 + 1
Next
Cells(I1, 4).Select

Dim Ran2 As Range
Dim I2 As Long
Cells(65536, 5).Select
I2 = Selection.End(xlUp).Row + 2
Set e = ThisWorkbook.Sheets("Hóa ðõn").Range("d9:d21")
For Each Ran2 In e
Cells(I2, 5).Value = Ran2.Value
I2 = I2 + 1
Next
Cells(I2, 5).Select


Dim Ran3 As Range
Dim I3 As Long
Cells(65536, 6).Select
I3 = Selection.End(xlUp).Row + 2
Set r = ThisWorkbook.Sheets("Hóa ðõn").Range("e9:e21")
For Each Ran3 In r
Cells(I3, 6).Value = Ran3.Value
I3 = I3 + 1
Next
Cells(I3, 6).Select


End Sub

 

[Let'GâuGâu]

nó báo lổi là do nó ko tìm thấy module này

Application.Run "Sheet3.Macro1"

tôi nghỉ bạn nên tìm hiểu thêm về sự kiện worksheet_change
bạn nên bỏ mấy cái select đi, vì nó sẻ làm cho code chạy chậm và màn hình cà giựt
thí dụ như bạn đang ở sheet "hoádon" mà muốn chép qua sheet bánhang"

with shéets("Bán hàng")
.[a1]= [a1]
end with
chứ ko cần phải
[a1].copy
shéets("Bán hàng").select
[a1].select
activesheet.paste

đại khái là vậy
==========

 

[elnino167]

dạ em cảm ơn. anh cho em xin lệnh của worksheet_change được ko ạ?
nếu ko tìm thấy module như anh nói, thì sửa thế nào ạ.

 

[Let'GâuGâu]

dạ em cảm ơn. anh cho em xin lệnh của worksheet_change được ko ạ?
nếu ko tìm thấy module như anh nói, thì sửa thế nào ạ.

đây nhập vào sheet hóa đơn, nó sẻ chuyển sang sheet bán hàng cho bạn