abouelhassan قام بنشر يناير 10, 2021 مشاركة قام بنشر يناير 10, 2021 السلم عليكم ورحمة الله الاخوة الافاضل لدى كود من روائع الاستاذ شعلة المنتدى الاستاذ سليم به هذا الجزء If m <> 0 Then MsgBox "الرقم مكرر: " & Chr(10) & _ Join(arr, " ; ") Exit Sub End If وهو اذا كان الرقم مكرر يتوقف الكود ويخبرنا انه مكرر فى الشيت ويكتب اسم الشيت اريد اضافة له بحيث يظهر هل تريد الاستمرار نعم يكمل لا يتوقف مع الشكر والتقدير والاحترام رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر يناير 10, 2021 أفضل إجابة مشاركة قام بنشر يناير 10, 2021 Dim Reponse% If m <> 0 Then Reponse = MsgBox("الرقم مكرر هل تريد المتابعة: " & Chr(10) & _ Join(arr, " ; "), 524292) If Reponse <> 6 Then Exit Sub End If 1 رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر يناير 10, 2021 الكاتب مشاركة قام بنشر يناير 10, 2021 ماشاء الله لاقوة الابالله زادك الله من عنده حضرتك فعلا شعلة مضيئة بالمنتدى ادامك الله زخرا للمنتدى ولمساعدة اخوانك شكر وتقدير وفائق الاحترام من اخيك 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.