تعديل كود عند وجود رقم مكرر اريد مربع هل تريد الاستمرار ام لا

[abouelhassan]

السلم عليكم ورحمة الله الاخوة الافاضل لدى كود من روائع الاستاذ شعلة المنتدى الاستاذ سليم به هذا الجزء

  If m <> 0 Then
     MsgBox "الرقم مكرر: " & Chr(10) & _
     Join(arr, " ; ")
    Exit Sub
  End If

وهو اذا كان الرقم مكرر يتوقف الكود ويخبرنا انه مكرر فى الشيت ويكتب اسم الشيت اريد اضافة له بحيث يظهر  هل تريد الاستمرار نعم يكمل لا يتوقف

مع الشكر والتقدير والاحترام

[سليم حاصبيا]

Dim Reponse%
If m <> 0 Then
  Reponse = MsgBox("الرقم مكرر هل تريد المتابعة: " & Chr(10) & _
      Join(arr, " ; "), 524292)
  If Reponse <> 6 Then Exit Sub
End If

 

[abouelhassan]

ماشاء الله لاقوة الابالله زادك الله من عنده

حضرتك فعلا شعلة مضيئة بالمنتدى ادامك الله زخرا للمنتدى ولمساعدة اخوانك 

شكر وتقدير وفائق الاحترام من اخيك