تنبيه اذا كان الصف المحدد اصبح رقمه اقل من رقم محدد

[عاطف عبد العليم محمد]

السلام عليكم ورحمة الله وبركاته 

هل يمكن تحديد خلية معينة ولتكن  b50   ثم يحدث اضافة صفوف او حذف لصفوف  فيظهر في خانة اخرى ان الخلية المحددة اصبحت في صف اقل من 50    ان كانت ؟

وفق الله الجميع

[عاطف عبد العليم محمد]

=ROW(b50)

شكرا هذا هو الحل   

في خلية مثلا o1 توضع الصيغة اعلاه 

ثم  في الماكرو المطلوب يوضع كود مثل 

Dim at As Integer
at = Range("o1").Value
If at < 50 Then

  MSG1 = MsgBox 

("تم حذف بعض الصفوف ولذلك صف المجموع اصبح داخل نطاق مسح البيانات الذي سيتم ولذلك تحتاج اضافة صف او اكثر ليصبح صف المجموع رقمه اعلى من 50")
Exit Sub
Else
 End If