اذهب الي المحتوي
أوفيسنا

اظهار رسالة تحذير


إذهب إلى أفضل إجابة Solved by عبدالفتاح في بي اكسيل,

الردود الموصى بها

السلام عليكم .. لابد من التحية عند بدء أى مشاركة ,,عند اختيار مثلا اسم محمد ومحمود في خانة A ولايوجد شئ في خانة C تظهر رسالة تحذيرية تأكد من مركز التكلفة واذا كان يوجد شئ في الخانة لاتظهر الرسالة

رسالة.xlsx

رابط هذا التعليق
شارك

جرب  هذه  المحاولة  وضعها  في  موديول  الورقة  وليس  موديول عادي .

يمكنك تغيير  المدى  كما  تشاء 

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A2:A4")) Is Nothing Then
    If Target.Offset(, 2) = "" Then MsgBox " تاكد من مركز التكلفة "
End If

End Sub

 

رابط هذا التعليق
شارك

'بعد ادن الاستاد عبدالفتاح في بي اكسيل

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Row > 1 Then
    If Target.Offset(0, 2).Value = "" Then
        MsgBox "تاكد من مركز التكلفة"
        Target.Offset(0, 2).Select
    End If
End If
End Sub

رسالة.xlsm

رابط هذا التعليق
شارك

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

بمعنى لو اريد اختيار الكود يعمل على محمد وسعيد فقط دون الاسم الاخر فكيف يكون الكود واسف على الاطالة والف شكر مرة اخرى على المساعدة 

رسالة.xlsx

رابط هذا التعليق
شارك

@mohamedyoussef

عذرا  لا  اقوم  باي  تعديل  جديد  كما  موضح  ذلك  قي  توقيعي .  انتظر  شخص  اخر  يقوم  بتعديل  متطلباتك  الجديدة .

 

رابط هذا التعليق
شارك

يمكنك اخي بجعل الكود بهده الطريقة 'حيث يتم اظهار الرسالة فقط عند كتابة اسم محمد او سعيد فقط

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Row > 1 Then
    If (Target.Offset(0, 2).Value = "") And ((Target.Value = "محمد") Or (Target.Value = "سعيد")) Then
        MsgBox "تاكد من مركز التكلفة "
        Target.Offset(0, 2).Select
    End If
End If
End Sub

رسالة.xlsm

  • Like 2
رابط هذا التعليق
شارك

السلام عليكم ورحمة الله وبركاته ..السادة الافاضل: 

عندي ملف كنت قد ارسلته من قبل وكنت احتاج فيه اظهار رسالة عند اختيار اسم معين من القائمة ومرفق لسيادتكم الملف القديم واخر بالملف المراد العمل عليه كنت محتاج انفذ نفس الكود عليه ولكن للاسف لايريد التغير فبرجاء المساعدة الملف الجديد بأسم التكلفة  ..شكرا على المساعدة 

تكلفة.xlsm رسالة.xlsm

رابط هذا التعليق
شارك

  • أفضل إجابة

اخي  الكريم  كيف  تطبق  الكود على  بيانات  مختلفة  في  الموقع  .

وجب  عليك  تنزيل  الملف  الاصلي   اذا  كنت  غير  ملم  ببعض  الاشياء في   VBA Excel 

لقد  قمت  ببعض  التعديلات  لا ادري  اذاكنت  تريد  التطبيق  على  العمودين   E,F   وهذا  ما  فعلته 

في  المرة  القادمة وضح  اين  تريد  تطبيق  النتائج  ليس  مجرد  تنزيل  ملفين  لا احد  يقوم بتتبع  الكود  سطر  بسطر  حتى  يعلم  ما يفعله  الكود .

دائما  ضع  النتائج  قبل  وبعد حتى يستطيع  الاعضاء من مساعدتك.

تحياتي

تكلفة.xlsm

  • Like 2
رابط هذا التعليق
شارك

mohamedyousef معقوله ده بعد كل هذا المجهود لم أرى منك اى ضغط على الإعجاب 💙 لمن كان له السبب بعد ربنا فى حل مشكلتك وتفريج كربتك وده أقل ما يقدم له نظير ذلك ؟!!!

  • Like 2
رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information