Nhờ xem đoạn code trùng mã này sai chỗ nào

[anhtotbung35]

Mình có làm Form nhập liệu vào cell, nhưng không rõ đoạn code bị lỗi chỗ nào.
- Lỗi 1: Nếu vào Form nhập liệu từ Sheet Data, chọn tạo mã hàng hóa. Ghi click nút ghi thì Mã hàng hóa đó thì dữ liệu vào Sheet DMHH đúng, nhưng lỗi là nó lại nhảy vào cột A của Sheet Data nữa. Tương tự khi chọn tạo mã khách hàng.
- Lỗi 2: Nếu không vào Form nhập liệu nữa, sang thẳng Sheet DMHH, click Form lên thì khi click Ghi, dữ liệu ghi vào sheet lại thể hiện 2 dòng. Dòng 1 là Mã hàng, dòng 2 thì đầy đủ các thông tin. Tương tự cho Sheet DSKH.
Không biết có bị xung đột gì giữa các code không. Nhờ các bạn xem giúp file kèm theo nhé.

 

[sealand]

Mình chưa Test nhưng bạn nên xem lại đoạn này:

Range("A65536").End(xlUp)(2).Select

Application.Selection.Value = MHH.Text

Lưu ý trước chữ Range phải có dấu chấm mới chuẩn xác được và nên viết gọn lại

.Range("A65536").End(xlUp)(2)=MHH.Text

Nếu vẫn không kiểm soát được các sự kiện liên quan thì trước hết trong sub ta nên đặt
Application.EnableEvents = False
Nhập xong ta lại trả về True

*Mình thêm 1 chút khi kiểm tra dùng Find không hay. Dùng hàm Countif nếu >0 tức là đã có mã hay và gọn hơn.
Việc kiểm tra nên viết thành hàm kiểm tra với tham số là mã và vùng kiểm tra, ta co thể kiểm tra mã KH, mã VT, mã thuế, mã TK vv

 

[anhtotbung35]

Mình chưa Test nhưng bạn nên xem lại đoạn này:

Range("A65536").End(xlUp)(2).Select

Application.Selection.Value = MHH.Text

Lưu ý trước chữ Range phải có dấu chấm mới chuẩn xác được và nên viết gọn lại

.Range("A65536").End(xlUp)(2)=MHH.Text

Nếu vẫn không kiểm soát được các sự kiện liên quan thì trước hết trong sub ta nên đặt
Application.EnableEvents = False
Nhập xong ta lại trả về True

*Mình thêm 1 chút khi kiểm tra dùng Find không hay. Dùng hàm Countif nếu >0 tức là đã có mã hay và gọn hơn.
Việc kiểm tra nên viết thành hàm kiểm tra với tham số là mã và vùng kiểm tra, ta co thể kiểm tra mã KH, mã VT, mã thuế, mã TK vv

Cảm ơn bạn đã chỉ giáo, để mình làm thử nếu có gì trục trặc không hiểu mình sẽ hỏi thêm.