Giúp code VBA

[tuanan]

Mình có làm 1 form nhập liệu theo điều kiện.
ĐK: K3=1 thì dữ liệu nhập vào các cột A B C, ngược lại thì dữ liệu nhập vào sẽ vào các cột D E F
code như sau:

Private Sub btn_nhap_Click()
If .Range("K3").Value = 1 Then
Dim dong_cuoi As Long
dong_cuoi = Sheet1.Range("A1000").End(xlUp).Row + 1

With Sheet1
.Range("A" & dong_cuoi) = hoten.Text
.Range("B" & dong_cuoi) = email.Text
.Range("C" & dong_cuoi) = sodienthoai.Text
End With
Else
Dim dong_cuoi As Long
dong_cuoi = Sheet1.Range("A1000").End(xlUp).Row + 1

With Sheet1
.Range("D" & dong_cuoi) = hoten.Text
.Range("E" & dong_cuoi) = email.Text
.Range("F" & dong_cuoi) = sodienthoai.Text
End With
End If

Nhưng khi chạy thì bị báo lỗi ạ. ai giải thích giúp em với. thanks!

 

[tuanan]

Nó hình như là vầy:

Private Sub btn_nhap_Click()
Dim Dong_Cuoi As Long, Off As Integer

With Sheet1
    Dong_Cuoi = .Range("A1000").End(xlUp).Row + 1
1   If .Range("K3").Value <> 1 Then Off = 3
    .Range("A" & Dong_Cuoi).Offset(, Off) = hoten.Text
    .Range("B" & Dong_Cuoi).Offset(, Off) = Email.Text
    .Range("C" & Dong_Cuoi).Offset(, Off) = sodienthoai.Text
End With
Me!hoten.Text = "":        Me!Email.Text = ""
Me!sodienthoai.Text = "0000"
End Sub

Cám ơn bác, nhưng khi em nhập dữ liệu lần tiếp theo thì dữ liệu bị ghi đè bác ơi, nó không tự chạy xuống dòng cuối. tiện thể nếu em muốn nhiều điều kiện của if hơn thì sao ạ? VD K3 =1 thì nhập vào ABC, K3=2 thì DEF, K3=3 thì GHI. bác xem giúp em với, cám ơn bác nhiều lắm ạ

Em k gửi được file đính kèm