Code cập nhật vào đúng vị trí mã tìm được?

[bebeen]

Em có bài này nhờ mọi người xem dùm và hoàn thiện cho em đoạn code cập nhật dữ liệu.
Cụ thể là thế này: Khi em viết code tìm ra mã để sửa thông tin của hàng hóa đó. Giờ em muốn khi sửa xong lại cập nhật vào đúng vị trí của mã vừa tìm được ạ. Em nghĩ bí quá nên em đưa lên đây nhờ mọi người xem và giúp em ạ!
Cám ơn mọi người nhiều!

 

[anhdepjai]

Bạn đang viết ngược lại phần code mà bạn đã viết là OK mà:

On Error Resume Next
With S1.[A:A].Find(TextBox1, , xlValues, xlWhole)
TextBox1 = .Offset(, 0) 'Ngay
TextBox2 = .Offset(, 1) 'Nguoi nop tien
TextBox3 = .Offset(, 2) 'Dia chi
End With

Thì viết thành

On Error Resume Next
With S1.[A:A].Find(TextBox1, , xlValues, xlWhole)
.Offset(, 0) = TextBox1 'Ngay
.Offset(, 1) = TextBox2 'Nguoi nop tien
.Offset(, 2) = TextBox3 'Dia chi
End With