Sub Button5_Click()
Dim Tm, eR, i
Dim Tb As String, Dc As String
Tm = Sheet2.Range("A2:F" & Sheet2.[A65536].End(3).Row)
'Kiem tra ma trung thi xoa va nhap lai
If Evaluate("=COUNTIF(data_kh!G2:G10000,FORM!E5)") > 0 Then
MsgBox "Ma KH da co trong Ho so luu. "
Sheet4.[E5] = ""
Sheet4.[E5].Select
Exit Sub
End If
'Kiem tra du lieu nhap thieu
For i = 1 To UBound(Tm, 1)
If Tm(i, 4) = 1 And Trim(Sheet4.Range(Tm(i, 3))) = "" Then
If Dc = "" Then Dc = Tm(i, 3)
If Tb = "" Then Tb = "CHUA HOAN THIEN HO SO : " & Chr(13)
Tb = Tb & Chr(13) & Tm(i, 5)
End If
Next
If Dc <> "" Then
Tb = Tb & Chr(13) & Chr(13) & "HOAN THIEN TRUOC KHI NHAP"
MsgBox Tb
Sheet4.Range(Dc).Select
Exit Sub
End If
'Nhap du lieu vao ho so luu
eR = Sheet3.[G65536].End(3).Row + 1
For i = 1 To UBound(Tm, 1)
Sheet3.Cells(eR, Tm(i, 2)) = Sheet4.Range(Tm(i, 3))
Next
End Sub