اريد ان اربط ملف مبيعات برقم سيريال الهارد - افيدوني ما الخطا في هذا الكود لا يتم تفعيلة
Sub check_hard()
On Error Resume Next
If Da.Range("bb19").Value = "" Then GoTo 1
For Each c In Da.Range("bb21:bb35")
If c.Text = Da.Range("bb19").Text Then Exit Sub
Next
1 MsgBox " عفوا البرنامج غير مخصص لهذا الجهاز ", vbCritical + vbMsgBoxRight, "mahmoud "
Application.DisplayFullScreen = False
Application.DisplayAlerts = False
Application.Quit
ThisWorkbook.Close savechanges:=False
Application.DisplayAlerts = True
End Sub