Code cho nút Sửa dữ liệu

[heyyouhd]

Mọi người cho e hỏi e viết code cho nút Sua dữ liệu như sau:
Private Sub cmdSua_Click()
With UserForm1
If .txtTenGV = "" Then Exit Sub
For j = 1 To 4
Cont = Choose(j, .txtTenGV.Text, .txtMon.Text, .txtDT.Text, .txtEmail.Text)
Worksheets("tinh tiet").Cells(sRow, j) = Cont
Next j
End With
sRow = 0
MsgBox "CAP NHAT XONG"

End Sub
Nhưng khi sửa giá trị ở các ô textbox rồi click vào nút Sua nó chỉ sửa được giá trị TenGV thôi ah. (sRow đã xác định được khi tìm được dữ liệu cần sửa ah)
Mong mọi người giải thích và giúp đỡ e với ah. E cám ơn!

 

[huuthang_bd]

Trình bày lại cho dễ nhìn đi bạn.

 

[Hieu042]

Đưa cái file lên cho nó dễ

 

[SA_DQ]

Đưa cái file lên cho nó dễ

. . . . . . . . .
Nhưng mình nghĩ rằng 4 trường cần nhập có kiểu dữ liệu khác nhau
Nên nhập nhờ vòng lặp không hẵn hay