البحث في الموقع
Showing results for tags 'ارجو المساعة ، في هذا الموضوع'.
تم العثور علي 1 نتيجه
-
لدي برنامج علي الاكسيل مبيعات وعايز البرنامج يشتغل علي سيريال نمبر الهاردومش عارف الخطا فين في الكود ده برجاء المساعدة وشكرا 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
