تنبيهات مثل التي توجد في الفيس بوك

[وائل احمد المصري]

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

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

فأذا تطابق الشرط الموجود بالخلية "ِA1" يتم عمل تنبية بعدد تلك الحالات يشبة الموجود في الفيس بوك ثم بالضغط على 

أيقونة التنبيهات يتم ترحيل البيانات لصفحة التنبيهات

لعلها تفيد احد الزملاء والملف مفتوح للاستفادة والتطوير بمقابل طبعا" ان تذكروني بدعواتكم

تنبيهات.rar

[أبو محمد أشرف]

شكرا لك وجزاك الله خيرا

[ياسر خليل أبو البراء]

أخي الحبيب وائل

عوداً حميداً وبارك الله فيك على الموضوع

ممكن تشرح الملف بمزيد من التفصيل إذا توفر لديك الوقت .. وجزاكم الله خير الجزاء

[أسامة البراوى]

السلام عليكم

الفكرة جميله وتنفع فى جدولة الأعمال او اعياد الميلاد لكن فيها خطأ برمجى صغير فى السطر

expd = Worksheets("Notifications").Range("A2")

المفروض انه يقرا من الخلية A1 فى الشيت Main

expd = Worksheets("Main").Range("A1")

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

 If (.Cells(irow, 7) - MyDate) <= expd  Then

الى 

 If (.Cells(irow, 7) - MyDate) <= expd And (.Cells(irow, 7) - MyDate) > -1 Then

   تنبيهات 1.rar

تم تعديل سبتمبر 30, 2015 بواسطه أسامة البراوى

[وائل احمد المصري]

شكرا لك وجزاك الله خيرا

اخي أبو احمد بارك الله فيكم جميعا"

أخي الحبيب وائل

عوداً حميداً وبارك الله فيك على الموضوع

ممكن تشرح الملف بمزيد من التفصيل إذا توفر لديك الوقت .. وجزاكم الله خير الجزاء

اخي ياسر حاضر بس هل تقصد الفكرة بصفة عامة ام الاكواد

السلام عليكم

الفكرة جميله وتنفع فى جدولة الأعمال او اعياد الميلاد لكن فيها خطأ برمجى صغير فى السطر

expd = Worksheets("Notifications").Range("A2")

المفروض انه يقرا من الخلية A1 فى الشيت Main

expd = Worksheets("Main").Range("A1")

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

 If (.Cells(irow, 7) - MyDate) <= expd  Then

الى 

 If (.Cells(irow, 7) - MyDate) <= expd And (.Cells(irow, 7) - MyDate) > -1 Then

   تنبيهات 1.rar

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

طبتم وتقبلوا تحياتي

[وائل احمد المصري]

أخي الحبيب وائل

عوداً حميداً وبارك الله فيك على الموضوع

ممكن تشرح الملف بمزيد من التفصيل إذا توفر لديك الوقت .. وجزاكم الله خير الجزاء

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

 

الفكرة تقوم على انه في حالة وضع بيانات عملاء مثلا او موردين ......الخ ووضع تاريخ زيارة او استحقاق في تاريخ معين في شيت "Machines_Card"

وقمنا بتحديد المدة المدة الواجب التنبية عليه والموجودة في الخلية "A1" في شيت "Main" فسيتم حساب عدد التنبيهات وفقا لععد الحالات المطابقة واظهارها في منطقة الجرس

وبالضغط على ايقونة الجرس سيتم عمل لنسخ لتلك الحالات لشيت "Notifications" حتى يسهل طباعتها او متابعتها او ايا" كان المراد منها

 ارجوا ان اكون وفقت وفقنا الله واياكم

[احمد السيد سليمان]

بارك الله فيك على الموضوع

[الزباري]

أكثر من رائع.. بارك الله فيك

[وائل احمد المصري]

أكثر من رائع.. بارك الله فيك

وفيكم أخي :)

بارك الله فيك على الموضوع

وفيكي أخي الفاضل

[محمد حسن المحمد]

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

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

فأذا تطابق الشرط الموجود بالخلية "ِA1" يتم عمل تنبية بعدد تلك الحالات يشبة الموجود في الفيس بوك ثم بالضغط على 

أيقونة التنبيهات يتم ترحيل البيانات لصفحة التنبيهات

لعلها تفيد احد الزملاء والملف مفتوح للاستفادة والتطوير بمقابل طبعا" ان تذكروني بدعواتكم

 

السلام عليكم...بارك الله بهمة الشباب...إبداعات تفرزها العقول العربية....أبليت حسناً ..أخي وائل.

جزاكم الله خيراً.

[وائل احمد المصري]

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

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

فأذا تطابق الشرط الموجود بالخلية "ِA1" يتم عمل تنبية بعدد تلك الحالات يشبة الموجود في الفيس بوك ثم بالضغط على 

أيقونة التنبيهات يتم ترحيل البيانات لصفحة التنبيهات

لعلها تفيد احد الزملاء والملف مفتوح للاستفادة والتطوير بمقابل طبعا" ان تذكروني بدعواتكم

 

السلام عليكم...بارك الله بهمة الشباب...إبداعات تفرزها العقول العربية....أبليت حسناً ..أخي وائل.

جزاكم الله خيراً.

وبارك فيك اخي اشكرك على كلماتك ومرورك العطر

[أبوعيد]

فكرة رائعة بارك الله فيك

وهنا تطوير للفكرة وبالمرفق مزيد من الشرح

الماكرو تم وضعه في حدث الصفحة change

 

تنبيهات 2.rar

[وائل احمد المصري]

فكرة رائعة بارك الله فيك

وهنا تطوير للفكرة وبالمرفق مزيد من الشرح

الماكرو تم وضعه في حدث الصفحة change

 

تنبيهات 2.rar

بارك الله فيك اخي :)