المدير1122 قام بنشر يوليو 31, 2018 قام بنشر يوليو 31, 2018 لدي برنامج علي الاكسيل مبيعات وعايز البرنامج يشتغل علي سيريال نمبر الهاردومش عارف الخطا فين في الكود ده برجاء المساعدة وشكرا 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
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.