Giúp đỡ về VB trong Ứng Dụng Nhập Thông Tin vào forms.

[aznpop]

Hiện em đang tập tành viết VB trong exel, em đang tập viết 1 ứng dụng nho nhỏ trong exel về quản lý nhân sự. Sau đây có vài câu hỏi mong các sư huynh chỉ giúp.
Hiện em mù tịt về các hàm trong VB, chỉ mới đọc sơ qua các hàm trong mấy ngày nay nên em liền áp dụng thử vào 1 chương trình sơ khai ban đầu là Quản Lý Nhân Sự, em tạo Forms gồm nội dung sau :
Họ Và Tên :
Sinh Ngày :
Địa Chỉ :
Sơ Sơ ban đầu chỉ 3 thông tin đó.
Em đang gặp rắc rối về vấn đề sau :

1. Khi click vào button để nhập thì nó sẽ mất dữ liệu ở dòng đầu tiên
2. Và khi nhập 1 dữ liệu mới thì nó chỉ nhập vào dòng đầu tiên

Bác nào biết cách xử lý trường hợp trên thì cứu hộ em cái.
Code hiện giờ của em chỉ được bao nhiêu đây mong các bác xem hộ

Sub NhapPhieu()
Dim Nextr As Long
Nextr = Sheets("DanhMuc").[A65536].End(xlUp).Row + 1
With Sheets("DanhMuc").Cells(Nextr, 3)
    .Offset(, 1).Value = frmNhapDM.txtname
    .Offset(, 2).Value = frmNhapDM.txtdiachi
    .Offset(, 3).Value = frmNhapDM.txtbday
End With
End Sub

Cảm ơn các bác !

 

[tedaynui]

Bạn hãy sửa như sau

Sub NhapPhieu()
Dim Nextr As Long
Nextr = Sheets("DanhMuc").[A65536].End(xlUp).Row + 1
With Sheets("DanhMuc").Cells(Nextr, 1)
    .Value = frmNhapDM.txtname
    .Offset(, 1).Value = frmNhapDM.txtdiachi
    .Offset(, 2).Value = frmNhapDM.txtbday
End With
End Sub

TDN

 

[aznpop]

Mình đã làm theo TDN nhưng sau khi nhập thì nó nhảy xuống dòng thứ 2, và sau đó nhập lại nó vẫn là dòng thứ 2, chứ không xuống dòng kế tiếp để thêm thông tin

 

[tedaynui]

Mình đã làm theo TDN nhưng sau khi nhập thì nó nhảy xuống dòng thứ 2, và sau đó nhập lại nó vẫn là dòng thứ 2, chứ không xuống dòng kế tiếp để thêm thông tin

Mình Test lại thấy vẫn ổn mà. Bạn xem file Test thế nào

TDN

 

[aznpop]

Chắc mới tập tành viết VB nên không nhận biết đc mình đang nằm ở lỗi nào, nhờ bác TDN xem dùm cái file của em

 

[aznpop]

Àh em làm được rồi ^^, do tham chiếu cột không đúng nên nó không nhảy hihi, thank bác TDN nhé hôm nào phải học hỏi thêm mới được