Tự động xuống dòng khi nhấn CommandButton!

[son0611excel]

Em chào các anh ạ!

Em có 1 file excel và userform như hình ạ, Em đang bị vướng ở chỗ là em nhập hết dữ liệu textbox vào và bấm button " Nhập", nó đã nhập vào file.

Em muốn là khi nhập dữ liệu sau nó sẽ tự động nhập vào dòng kế tiếp không đè lên dữ liệu đã nhập trước đó ạ, mong các anh coi code trong file của em xem có gì sai xót không ạ!

 

[giaiphap]

Em chào các anh ạ!

Em có 1 file excel và userform như hình ạ, Em đang bị vướng ở chỗ là em nhập hết dữ liệu textbox vào và bấm button " Nhập", nó đã nhập vào file.

Em muốn là khi nhập dữ liệu sau nó sẽ tự động nhập vào dòng kế tiếp không đè lên dữ liệu đã nhập trước đó ạ, mong các anh coi code trong file của em xem có gì sai xót không ạ!


View attachment 258784

Thử

dong_cuoi = Sheet5.Range("C20").End(xlDown).Row + 1

 

[son0611excel]

Thử

dong_cuoi = Sheet5.Range("C20").End(xlDown).Row + 1

Lần nhập mới nó vẫn chép đè lên lần trước ạ!

 

[giaiphap]

Lần nhập mới nó vẫn chép đè lên lần trước ạ!

Do bạn không nhập cho cột C.

dong_cuoi = Sheet5.Range("A20").End(xlDown).Row + 1

 

[huhumalu]

ThisWorkbook.Sheets("Data").Range("D"&Rows.count).End(xlUp).Row + 1

Có 2 việc :
+ Bạn phải chọn cột nào làm cột phát sinh. Theo mình để kiểm soát thì phải lấy cái Field "Tên Khách Hàng"; vì dòng chứng từ của bạn bị thiếu, chứ kg phải code sai.
+ Bạn nên dẫn thêm ThisWorkbook và tên của Sheet thì dễ quản lý hơn.

 

[son0611excel]

Do bạn không nhập cho cột C.

dong_cuoi = Sheet5.Range("A20").End(xlDown).Row + 1

Cảm ơn mấy anh ạ, em làm được rùi ạ! <3