رساله تحذير

[ابو حمادة]

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

رجاء من خبراء الاكسل

 

مرفق ملف للتوضيح

مهم.rar

     .......... ولكم منى جزيل الشكر والاحترام..........

 

[صالح أبو أحمد]

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

الأخ العزيز /ابو حمادة

ضع الكود فى حدث    ()TextBox1_AfterUpdate

وإن شاء الله يكون المطلوب

تقبل تحياتى

مهم1.rar

[ابو عبدالبارى]

الأخ الكريمابو حمادة

السلام عليكم

استبد الكود بالكود التالى

Private Sub CommandButton1_Click()
If Val(TextBox1.Text) > Val(Me.TextBox2.Text) Then MsgBox "ÚÝæÇ áÇíæÌÏ ÑÕíÏ ßÇÝí ÇáÑÕíÏ ÇáãæÌæÏ  " & vbCr & vbCr & (Me.TextBox2.Value), 16, "ÊÍÐíÑ": Me.TextBox1.SetFocus: Exit Sub
UserForm2.Show
End Sub

 

[ابو حمادة]

12 دقائق مضت, صالح أبو أحمد said:

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

الأخ العزيز /ابو حمادة

ضع الكود فى حدث    ()TextBox1_AfterUpdate

وإن شاء الله يكون المطلوب

تقبل تحياتى

مهم1.rar

 

شكرا للاستاذ : صالح أبو أحمد

وشكرا للاستاذ ابو عبدالبارى

علي مساهمتهم في حل المشكله

جزاكم الله كل خير ووفقكم لما يحبه ويرضاه

 

[ابو حمادة]

تعديل لو امكن من اساتذتي

ابو عبدالبارى  & صالح أبو أحمد

هل فيه حل ان نص الرساله التى تظهر

تظهر من اليمين الى الشمال ؟؟