Sub Form_Luumoi() Dim i As Long i = Sheets("Data_ThuChi")Range("A" & RowsCount)End(xlUp)Row

Sub Form_Luumoi()
Dim i As Long
i = Sheets("Data_ThuChi").Range("A" & Rows.Count).End(xlUp).Row + 1
If Sheets("Form").Range("C6").Value = " " Then
MsgBox "thieu ngay"
Exit Sub
ElseIf Sheets("Form").Range("C8").Value = " " Then
MsgBox "thieu thong tin"
Exit Sub
ElseIf Sheets("Form").Range("C12").Value = " " Then
MsgBox "Chua nhap So tien"
Exit Sub
Else
With Sheets("Data_thuchi")

.Range("A" & i).Value = Sheets("Form").Range("C6").Value
.Range("B" & i).Value = Sheets("Form").Range("C8").Value
.Range("C" & i).Value = Sheets("Form").Range("E8").Value
.Range("D" & i).Value = Sheets("Form").Range("C10:E10").Value
.Range("E" & i).Value = Sheets("Form").Range("C12").Value
End With
Call Form_Reset
MsgBox "Hoàn thanh luu du lieu"
End If
End Sub