Sub NhapLieu()
On Error Resume Next
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim HC As Integer, i As Integer
Dim MaKH As String
Dim OB As Range
Dim Comm As Boolean
MaKH = S01.Range("B17").Value
If MaKH = "" Then Exit Sub
HC = S03.Range("B65000").End(xlUp).Row + 1
If WorksheetFunction.CountIf(S03.Range("C3:C" & HC - 1), MaKH) = 0 Then
GoTo ghi
Else
If MsgBox(" - Ma Khach Hang nay da ton tai!!" & Chr(13) & Chr(13) & " - Ban muon ghi de ??", vbYesNo, "MrOkebab") = vbYes Then
i = WorksheetFunction.Match(MaKH, S03.Range("C3:C" & HC), 0)
HC = i + 2
S03.Range("B" & HC & ":M" & HC).ClearComments
Comm = True
GoTo ghi
Else
Exit Sub
End If
End If
ghi:
i = 15
For Each OB In S03.Range("B" & HC & ":M" & HC)
i = i + 1
If OB.Value <> "" And Comm = True Then
OB.AddComment
OB.Comment.Visible = False
OB.Comment.Text Text:="Ngay : " & Format(Date, "dd/mm/yyyy") & Chr(10) & OB.Value
End If
OB.Value = S01.Range("B" & i).Value
Next
'S01.Range("B17:B27").ClearContents
Range("B17").Select
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub