وائل احمد المصري قام بنشر سبتمبر 29, 2015 قام بنشر سبتمبر 29, 2015 السلام عليكم ورحمة الله وبركاتة ارفقت ملف قمت بعمل فكرة به كانت قد طلبت مني في العمل والفكرة تقوم على عمل تنبية بعد مقارنة اليوم الحالي بتاريخ اخر فأذا تطابق الشرط الموجود بالخلية "ِA1" يتم عمل تنبية بعدد تلك الحالات يشبة الموجود في الفيس بوك ثم بالضغط على أيقونة التنبيهات يتم ترحيل البيانات لصفحة التنبيهات لعلها تفيد احد الزملاء والملف مفتوح للاستفادة والتطوير بمقابل طبعا" ان تذكروني بدعواتكم تنبيهات.rar 3
ياسر خليل أبو البراء قام بنشر سبتمبر 30, 2015 قام بنشر سبتمبر 30, 2015 أخي الحبيب وائل عوداً حميداً وبارك الله فيك على الموضوع ممكن تشرح الملف بمزيد من التفصيل إذا توفر لديك الوقت .. وجزاكم الله خير الجزاء 1
أسامة البراوى قام بنشر سبتمبر 30, 2015 قام بنشر سبتمبر 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 تم تعديل سبتمبر 30, 2015 بواسطه أسامة البراوى 4
وائل احمد المصري قام بنشر سبتمبر 30, 2015 الكاتب قام بنشر سبتمبر 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 يوم فقط والا لاصبحت مشكلة وقمت بعمل نسخة على عجالة للفكرة نستفيد جميعا منها وبارك الله فيك في التصويب والاضافة لعلها تتطور اكثر بمشاركاتكم العطرة طبتم وتقبلوا تحياتي
وائل احمد المصري قام بنشر سبتمبر 30, 2015 الكاتب قام بنشر سبتمبر 30, 2015 أخي الحبيب وائل عوداً حميداً وبارك الله فيك على الموضوع ممكن تشرح الملف بمزيد من التفصيل إذا توفر لديك الوقت .. وجزاكم الله خير الجزاء اخي ياسر اعلم بأنك تريد الايضاح للاخوة فأنت من أساتذة هذا المنتدى وارجوا ان يفي بذلك الشرح المرفق ادناة الفكرة تقوم على انه في حالة وضع بيانات عملاء مثلا او موردين ......الخ ووضع تاريخ زيارة او استحقاق في تاريخ معين في شيت "Machines_Card" وقمنا بتحديد المدة المدة الواجب التنبية عليه والموجودة في الخلية "A1" في شيت "Main" فسيتم حساب عدد التنبيهات وفقا لععد الحالات المطابقة واظهارها في منطقة الجرس وبالضغط على ايقونة الجرس سيتم عمل لنسخ لتلك الحالات لشيت "Notifications" حتى يسهل طباعتها او متابعتها او ايا" كان المراد منها ارجوا ان اكون وفقت وفقنا الله واياكم 1
وائل احمد المصري قام بنشر أكتوبر 1, 2015 الكاتب قام بنشر أكتوبر 1, 2015 أكثر من رائع.. بارك الله فيك وفيكم أخي :) بارك الله فيك على الموضوع وفيكي أخي الفاضل
محمد حسن المحمد قام بنشر أكتوبر 1, 2015 قام بنشر أكتوبر 1, 2015 السلام عليكم ورحمة الله وبركاتة ارفقت ملف قمت بعمل فكرة به كانت قد طلبت مني في العمل والفكرة تقوم على عمل تنبية بعد مقارنة اليوم الحالي بتاريخ اخر فأذا تطابق الشرط الموجود بالخلية "ِA1" يتم عمل تنبية بعدد تلك الحالات يشبة الموجود في الفيس بوك ثم بالضغط على أيقونة التنبيهات يتم ترحيل البيانات لصفحة التنبيهات لعلها تفيد احد الزملاء والملف مفتوح للاستفادة والتطوير بمقابل طبعا" ان تذكروني بدعواتكم السلام عليكم...بارك الله بهمة الشباب...إبداعات تفرزها العقول العربية....أبليت حسناً ..أخي وائل. جزاكم الله خيراً.
وائل احمد المصري قام بنشر أكتوبر 1, 2015 الكاتب قام بنشر أكتوبر 1, 2015 السلام عليكم ورحمة الله وبركاتة ارفقت ملف قمت بعمل فكرة به كانت قد طلبت مني في العمل والفكرة تقوم على عمل تنبية بعد مقارنة اليوم الحالي بتاريخ اخر فأذا تطابق الشرط الموجود بالخلية "ِA1" يتم عمل تنبية بعدد تلك الحالات يشبة الموجود في الفيس بوك ثم بالضغط على أيقونة التنبيهات يتم ترحيل البيانات لصفحة التنبيهات لعلها تفيد احد الزملاء والملف مفتوح للاستفادة والتطوير بمقابل طبعا" ان تذكروني بدعواتكم السلام عليكم...بارك الله بهمة الشباب...إبداعات تفرزها العقول العربية....أبليت حسناً ..أخي وائل. جزاكم الله خيراً. وبارك فيك اخي اشكرك على كلماتك ومرورك العطر
أبوعيد قام بنشر أكتوبر 1, 2015 قام بنشر أكتوبر 1, 2015 فكرة رائعة بارك الله فيك وهنا تطوير للفكرة وبالمرفق مزيد من الشرح الماكرو تم وضعه في حدث الصفحة change تنبيهات 2.rar 3
وائل احمد المصري قام بنشر أكتوبر 1, 2015 الكاتب قام بنشر أكتوبر 1, 2015 فكرة رائعة بارك الله فيك وهنا تطوير للفكرة وبالمرفق مزيد من الشرح الماكرو تم وضعه في حدث الصفحة change تنبيهات 2.rar بارك الله فيك اخي :)
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.