sai ngay dòng đầu tiên if .range. bạn bỏ dấu "." đi
Em đang muốn làm một form như trên để nhập dữ liệu vào bảng tương ứng. với điều kiện được quy định tại ô K3
Nếu K3=1 thì dữ liệu nhập trên form sẽ chạy vào cột ABC, và ngược lại thì dữ liệu sẽ chạy vào cột DEF.
code em có xem qua hướng dẫn video trên youtube như sau ạ, nhưng bị lỗi. ai có thể giúp em với ạ
Sửa code lại thế này xem sao
Private Sub btn_nhap_Click()
Dim dong_cuoi As Long, so As Integer
dong_cuoi = Sheet1.Range("A1000").End(xlUp).Row + 1
so = Application.WorksheetFunction.Max(Sheet1.Range("K3").Value, 1)
Sheet1.Range("A" & dong_cuoi).Offset(, (so - 1) * 3).Resize(, 3) = Array(hoten.Text, email.Text, sodienthoai.Text)
End SubEm thử rồi ạ, nếu đk K3=1 thì ok, còn bằng 2 thì chạy sang DEF thật, nhưng bằng 3 4...thì chạy lung tung lắm. em muốn mở rộng từng điều kiện 1. để em có thể tùy biến cho dữ liệu chạy vào từng trường dữ liệu mà em muốn theo điều kiện của 1 ô nào đó( ở đây là K3).
Thế sửa lại vầy.
Private Sub btn_nhap_Click()
Dim dong_cuoi As Long, so As Integer
dong_cuoi = Sheet1.Range("A1000").End(xlUp).Row + 1
If (Sheet1.Range("K3").Value = 1) Or (Sheet1.Range("K3").Value = 2) Then
so = Sheet1.Range("K3").Value
Else
MsgBox "Gia tri o K3 nen xem lai"
Exit Sub
End If
Sheet1.Range("A" & dong_cuoi).Offset(, (so - 1) * 3).Resize(, 3) = Array(hoten.Text, email.Text, sodienthoai.Text)
End SubBác ơi, em sửa theo code này rồi ạ, nếu trường hợp K3=1 thì ok, nếu K3 = 2 thì dữ liệu nhập sẽ bị ghi đè, không tự động xuống dòng như kiểu K3=1. còn kiểu K3= 4 5 6 thì có thông báo ok.
