رسالة التنبيه يتكرر ظهورها

[AbedElkader]

السلام عليكم 

عملت موديول فيه مسج تنبيه بناء على قيمة خلية لكن اذا تكررت هذه القيمة في كل الصفوف فإن رسالة التنبيه تظهر بعدد تكرار تلك القيمة
الرسالة تتضمن زر ok  وزر Cancel  اود ان يبقى التكرار كلما ضغطنا على ok و إنهاء اظهور الرسالة عند الضغط على زر cancel
وشكرا

زياد.xlsm

[عبدالفتاح في بي اكسيل]

 

حاولت  فهم  لماذ  لم  تطبق  هذه  الفكرة  لم  اجد  لها   حل  حتى الان 

اقتراحي  حدف   العمود  g   وضع  هذا   الماكرو  في  حدث  الملف  

عند  الضغط  على زر  الغاء  او اغلاق  سيتم  الخروج  من  الرسالة 

Private Sub Workbook_Open()
Dim c As Range
  '
  For Each c In Range("F4", Range("F" & Rows.Count).End(3))
    If c.value < 0 Then
      If MsgBox("انتبه ...! هناك اشتراكات انتهت مدة صلاحيتها ", vbOKCancel + vbExclamation + vbDefaultButton2, "تنبيه ! تنبيه ! تنبيه !") = vbCancel Then Exit Sub
    End If
  Next
End Sub

 

زياد.xlsm

[AbedElkader]

الف شكر على الاستجابة ...
فليكن كمال قلت , هذا يفي بالمطلوب

الف شكر 

👍👍👍