KiemTra.bas

Sub KiemTra()
Dim CheckMa As Integer
Dim SoDong As Long
CheckMa = Range("E4").Value
SoDong = Range("E5").Value

If CheckMa = 0 Then
    MsgBox "Ma khong ton tai"
    Exit Sub
Else
    Sheet1.Range("C" & SoDong).Value = "X"
    MsgBox "Thanh cong"
End If

End Sub