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

[mohamedyousef]

السلام عليكم .. لابد من التحية عند بدء أى مشاركة ,,عند اختيار مثلا اسم محمد ومحمود في خانة 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

[mohamedyousef]

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

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

رسالة.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

[mohamedyousef]

الف شكر استاذ محمد على المساعدة بارك الله فيك هو ده المطلوب اعاود الشكر

[mohamedyousef]

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

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

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

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

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

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

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

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

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

تحياتي

تكلفة.xlsm

[mohamedyousef]

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

الف شكر يا استاذي على المساعدة فعلا هو ده المراد عمله الف شكر مرة ثانية 

الشلام عليكم

[هانى محمد]

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