افيدوني

[المدير1122]

لدي برنامج علي الاكسيل مبيعات وعايز البرنامج يشتغل علي سيريال نمبر الهاردومش عارف الخطا فين في الكود ده برجاء المساعدة وشكرا

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, "الامير "
Application.DisplayFullScreen = False
Application.DisplayAlerts = False
Application.Quit
ThisWorkbook.Close savechanges:=False
Application.DisplayAlerts = True
End Sub