Dùng form ghi dữ liệu lên 1 dòng chỉ định trong sheet (1 người xem)

[tuanvm]

Chào các bạn.
Mình mày mò trên diễn đàn cả tuần nay nên cũng tạo được 1 đơn giản cho mình. Hiện tại mình đang gặp rắc rối như tiêu đề đã nói. Mình muốn dùng form để cập nhật vào một dòng cố định trong sheet, trên dòng đã có 1 số ô có công thức tính.
Yêu cầu giúp đỡ của mình có ghi trong file. Chân thành cám ơn sự giúp đỡ của các bạn.

 

[hoanganhdl]

Việc đưa dữ liệu ra thì chỉ cần dùng lệnh Range("c10")=dai.value cho nút caculate và Range("c10")="" (hoặc vbnullstring) cho nút Update

quần áo trẻ em | quan ao tre em | quần áo sơ sinh | quần áo bé trai | quần áo bé gái | bodysuit carter | quan ao so sinh | quan ao tre em nhap khau

 

[tuanvm]

Mình tham khảo các dạng bài này mãi cũng ra được 1 cách. Đó là thay:

With [a9] 'bat dau tu o A9
    .Offset(dong, 0).Value = soql.Text '''ghi vao cot A+1 (=B)
    .Offset(dong, 1).Value = makh.Text

Bằng:

With [a10] 'bat dau tu o A10
    .Offset(0, 0).Value = soql.Text '''ghi vao cot A+1 (=B)
    .Offset(0, 1).Value = makh.Text

Còn việc xoá các trường thì mình dùng:

Me.soql.Value = ""
Me.ngay.Value = ""

dài lê thê, mỗi trường 1 dòng...
Code mình toàn đi chép lại của các bạn trên diễn đàn. Vừa mày mò làm vừa tìm hiểu thêm. Chỗ nào chưa hợp lý rất mong được các bạn góp ý.
Cám ơn bạn hoanganhdl nhé. Cách của bạn thật đơn giản và ngắn gọn.