Giúp sửa code call form nhưng không thể hiện được stt của form

[buivankiet]

Tôi up lên file ví dụ , trong đó có form nhập liệu userform2, và sub gọi form này là form2. Khi chạy macro form2 lần đầu nó không xuất hiện số thứ tự form ( công thức nhập vào trong textbox của "stt" không tác dụng), mở form lần thứ hai thì được, do đó mỗi lần nhập liệu phải mở form ra rồi đóng lại, sau đó lại mở ra một lần nữa, mới nhập liệu được.
Nhờ các bạn chỉ giúp.
Cám ơn

 

[ndu96081631]

Tôi up lên file ví dụ , trong đó có form nhập liệu userform2, và sub gọi form này là form2. Khi chạy macro form2 lần đầu nó không xuất hiện số thứ tự form ( công thức nhập vào trong textbox của "stt" không tác dụng), mở form lần thứ hai thì được, do đó mỗi lần nhập liệu phải mở form ra rồi đóng lại, sau đó lại mở ra một lần nữa, mới nhập liệu được.
Nhờ các bạn chỉ giúp.
Cám ơn

Vì bạn đặt code sai sự kiện!
Code của bạn là:

Sub FORM2()
Sheets("NHAP_BCHN").Activate
UserForm2.Show

UserForm2.TextBox1.Value = Evaluate("=MAX(_1)+1")
UserForm2.TextBox9.Value = Evaluate("=NOW()")
UserForm2.TextBox9.Value = Format(UserForm2.TextBox9.Value, "dd-mm-yy")


End Sub

Là 1 sub ---> Lý ra phải chia nó ra làm 2 phần
Trong sub chỉ là:

Sub FORM2()
Sheets("NHAP_BCHN").Activate
UserForm2.Show
End Sub

Và code trong UserForm là:

Private Sub UserForm_Initialize()
 TextBox1.Value = Evaluate("=MAX(_1)+1")
 TextBox9.Value = Format(Now, "dd-mm-yy")
End Sub