Nhờ xem đoạn code xử lý Mã hàng hóa trùng nhập từ Form sai chỗ nào?

[anhtotbung35]

Mình có 2 đoạn code như sau:
1. Code xử lý Mã hàng hóa trùng 2. Code cập nhật dữ liệu từ Form

Khi mình load Form lên nhập liệu, thì theo đoạn code 2 thì dữ liệu sẽ nhập vào Sheets "DM VT-HH". Nhưng khi mình qua Sheets "Thong tin" thì dữ liệu cũng cập nhật vào Sheets này tại ô A2, nếu tiếp tục tạo mã nữa thì nó lại cập nhật tiếp vào ô A3 Mình thử Protect Sheets "Thong tin" không cho nhập dữ liệu, thì đoạn code 2 báo lỗi như trên. Mình nghĩ báo lỗi này là do xử lý ở đoạn code 1, dòng
Range("a65536").End(xlUp)(2).Select
Application.Selection.Value = MHH.Text
nhưng mình không biết phải sửa như thế nào.
Mong các bạn xử lý giúp mình.

 

[nguyentuhp]

Bạn xem lại dòng code sau:

...
Activecell.offset(0, 0).select
' Dòng này không có tác dụng gì -> bỏ đi
'.................
Activecell.value = "MHH"
' nghĩa là C1 = MHH -> giá trị là Text thì làm sao + 1 được?
Range("C1").select
ActiveCell.value = ActiveCell.value+1