em đang làm 1 file form nhập liệu tự động bằng VBA với đoạn code như sauSub

Chào thầy

em đang làm 1 file form nhập liệu tự động bằng VBA. với đoạn code như sau:

Sub nhap_lieu()

Dim form As Worksheet

Dim danh_sach As Worksheet

Dim them_moi As Worksheet

Set form = ThisWorkbook.Sheets("NhapLieu")

Set danh_sach = ThisWorkbook.Sheets("Data (supplies)")

Set them_moi = ThisWorkbook.Sheets("Item List ( Supplies)")

''''' Kiem tra danh sach

If form.Range("D4") = True Then

MsgBox "Not yet input Date"

Exit Sub

End If

If form.Range("D6") = True Then

MsgBox "Please chosse Type 1"

Exit Sub

End If

If form.Range("D6") = True Then

MsgBox "Not yet input Name"

Exit Sub

End If

If form.Range("D7") = True Then

MsgBox "Not yet input Q'ty"

Exit Sub

End If

If form.Range("J3") = 2 Or form.Range("J3") = 3 Then

MsgBox "Kiem tra Type2"

Exit Sub

End If

'''' Copy danh sach vao Data (supplies)

Dim dong_cuoi As Long

hang_cuoi = danh_sach.Range("I2") + 6

If form.Range("i2").Value = 1 And form.Range("h2").Value = False Then

danh_sach.Range("c" & hang_cuoi).Value = form.Range("c4")

danh_sach.Range("I" & hang_cuoi).Value = form.Range("c6")

ElseIf form.Range("F2").Value = True Then

danh_sach.Range("J" & hang_cuoi).Value = form.Range("c7")

ElseIf form.Range("G2").Value = True Then

danh_sach.Range("M" & hang_cuoi).Value = form.Range("c7")

end If

End Sub