احمدزمان

السلام عليكم طبعا الأستاذ نذار قدم لك عمل رائع و جميل بحيث لا يتم الدخول الى صفحة معينة الا برقم سري و ايضا عمل شريط ادوات للذهاب الى الصفحات عن طريق هذا الشريط بدلا من اسماء الأوراق الموجود في اسفل الشاشة و انا متأكد انك سوف تعود وتستخدمة لاحقا المهم طلبك كما فهمته تم تنفيذة في المرفق Sub File1() Sheets("ورقة1").Visible = True Sheets("ورقة1").Select With ActiveWindow .DisplayHeadings = False 'اخفاء رئوس الصفوف و الأعمدة .DisplayWorkbookTabs = False 'اخفاء علامات تبويب الأوراق End With End Sub Sub File2() Sheets("ورقة2").Visible = True Sheets("ورقة2").Select ActiveWindow.DisplayWorkbookTabs = True End Sub آمل ان يكون هو المطلوب مع خالص الشكر و التقدير للأستاذ الفاضل / نذار سليمان عيد _________________.rar

السلام عليكم و رحمة الله وبركاته جزاك الله خير استاذ خبور اكواد برمجية جميلة وسهلة

بسم الله ماشاء الله زادك الله من فضله و رحمته في الدارين اعمالك دائما جميلة ورائعة جزاك الله كل خير

اجر و عافية ان شاء الله

آسف تم التعديل كلمة دليل في الخلية الخضراء كانت بها مسافة زائدة تم توسيع المدى للإستخراج والكود صحيح من الأول ay__________________________________2.rar

اخي الفاضل وعليكم السلام و رحمة الله ارفقت لك في الملف كود جميل كنت قد تعلمته من الأستاذ ابو تامر جزاه الله كل خير وهو يعمل على استدعاء اي بيانات وذلك عن طريق تسمية النطاقات حيث يمكنك الإستعلام عن عدة بيانات و ليس اثنان فقط وقد وضعته في حدث تغيير الصفحة بحيث بمجرد ادخال ماتبحث عنه يظهر فورا وبدون الحاجة الى زر Range("input").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _ "output"), CopyToRange:=Range("order"), Unique:=False مع التحية احمدزمان ay__________________________________2.rar

و عليكم السلام شاهد المرفق هل هذا المطلوب H_Date.rar

السلام عليكم أخي المهندس صلاح طبعا عمل كبير الذي قمت به وواضح من الكود و المعادلات انك تعبت فيه كثيرا آمل ان تتقبل اقتراحي بصدر رحب حسب ما فهمت من شرحك اعلاه انك تحتاج في الأخير ملخص بالأجهزه المطلوبة و عددها رغم انني لم افهم دور Z & X في الأعمدة او الموضوع المهم وجدة لدي كود من سطر واحد للأستاذ ابو اسامة جزاه الله خيرا يقوم بعمل تصفية للعمود A ويستخرج البارت نمبر المكرر كل واحد لوحدة واذا اضفنا الية دالة الإكسل sum if للعمود المجاور سوف يتم جمع الأجهزة المطلوبة للكل نمبر تم تسمية العمود aللصفحة Item Table بـ PartNo وتم وضع الكود التالي في حدث اختيار الصفحة Sub qunt() Range("PartNo").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("A1"), Unique:=True End Sub بحيث بمجرد الدخول الى صفحة after filter يتم ادراج PartNo في A ثم يتم الحساب أمامهم آمل الإطلاع و التجربة وآمل ان يكون هذا مفيد لك و اتمنا ان لا اكون تعجلت في الفهم مع التحية و التقدير ________Xl0000009.rar

شكرا لك استاذ عادل على مرورك الكريم وكلماتك المشجعه و الجميلة و جزاك الله كل خير

فكرتك اخي رائعة و ان شاء الله عن نفسي سوف احاول البدأ في تطبيقها ضمن الردود مع التحية

السلام عليكم و رحمة الله وبركاته بعد اذن اخي الفاضل طارق محمود - جزاه الله كل خير الأخ عرفات يوجد حل مشابه لطلبك على قدرما فهمت من السؤال على الرابط التالي http://www.officena.net/ib/index.php?s=&am...st&p=117627 آمل ان تجد به ماتريد مع التحية

السلام عليكم و رحمة الله و بركاته ‏الاحد‏، 27‏/2‏/1430هـ. الموافق ‏22‏/2‏/09م استاذي الفاضل aah-aah2008 الآن فهمت بعد عدة محاولات طبعا عمل رائع كعادتك اسمحلي ان اضيف حل آخر يشبه حلك اخي الفاضل husas707 وهذا حل آخر باستخدام الدوال او المعادلات وهو يقوم بالتحديث تلقائيا بدون ماكروVB مع ملاحظة انه في هذا الحل تم اعتماد قيم الصفر وفي الحل السابق تم تجاهل قيم الصفر مع التحيةAY_____________________.rar

السلام عليكم و رحمة الله و بركاته ‏الاحد‏، 27‏/2‏/1430هـ. الموافق ‏22‏/2‏/09م اخي القدير الفاضل عادل ياعمي - كلنا هدفنا واحد - رفع الله قدرك لو سمحت ممكن توضح الكود الذي عملته بيعمل على اي تغيير او اية خلية لأنني نزلت الملف وجربته ولم الاحظ اي نقل للبيانات آمل التوضيح وذلك لكي يستفيد صاحب الملف من عملكم حيث انني متأكد انه رائع و لكن لم نفهم عمله وكماتعلم المرء عدو ما يجهل مع التحية و التقدير

السلام عليكم و رحمة الله وبركاته ‏‏‏‏‏‏‏الاحد‏، 27‏/2‏/1430هـ. الموافق ‏22‏/2‏/09م </FONT></FONT> هذا الحل المرفق باستخدام كود فيجول بيزك مع التحية

[font="Courier New] السلام عليكم و رحمة الله وبركاته ‏‏‏‏‏‏‏‏‏‏‏‏‏‏‏<A name=OLE_LINK21>‏‏‏‏‏‏‏الاحد‏، 27‏/2‏/1430هـ. الموافق ‏22‏/2‏/09م سبحان الله نفس الفكرة قمت انا بتطبيقها

السلام عليكم و رحمة الله وبركاته ‏‏‏‏‏‏‏‏‏‏‏‏‏‏‏‏‏‏‏‏‏‏الاحد‏، 27‏/2‏/1430هـ. الموافق ‏22‏/2‏/09م أخي الفاضل الطريقة التي استخدمتها انا لملفاتي لإضافة التاريخ هي باضافة ماكرو الى اشرطة الأدوات ثم اقوم بتسجيل من القائمة ادراج تاريخ ووقت اختار التنسيق المطلوب ثم موافق ثم ايقاف التسجيل الآن اصبح جاهزا بزر في شريط الأدوات بمجرد الضغط عليه يعطيك النتيجة في المكان الموجود به المؤشر ارجو ان تكون هذه المعلومة مفيدة حيث ان خبرتي في الوورد تعتبر بسيطة و ان كان احد الإخوة لديه طريقة افضل نأمل تزويدنا بها مع التحية

أخي احمد هنا تم استخدام التنسيق الشرطي Condtion Format بحيث انه في العمود المجاور تم وضع داله او معادلة تقوم بحساب تكرار الإسم و الشهر معا في نفس الصف واذا تكررا تعطينا روز معين بموجب هذه الرمز و باستخدام التنسيق الشرطي يتم تلوين الخليتين A&B مع الشكر

السلام عليكم و رحمة الله و بركاته أخي الفاضل ابو هاجر بداية جميلة وموضوع شيق جزاك الله كل خير آمل التكرم بالإكمال وشكرا

و عليكم السلام اذا افترضنا ان تاريخ بدأ العمل موجود في الخلية A1 و نريد عدد الأيام في الخلية B1 نكتب المعادلة التالية في الخليةB1 =sum(today()-A1) مع ملاحظة تغيير تنسيق الخلية B1 الى رقم Number

السلام عليكم اخي gone اولا يجب ان تعلم ان طريقة الأستاذ الفاضل خبور خير صحيحة 100% وهي الأفضل ثانيا - تم عمل ماطلبت على ملفك ولكن للأمانه النتائج في بعض التواريخ لن تكون دقيقة 100% gone.rar

السلام عليكم و رحمة الله الأستاذ ابو اسامة جزاك الله كل خير ورحم والديك حل رائع الأخ احمد في المرفق نفس حل الأستاذ ابو اسامة مع تعديل بسيط ليشمل طلبك _____________3____.rar

شاهد الرابط التالي http://www.officena.net/ib/index.php?showt...amp;#entry51877

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

السلام عليكم تم عمل مشابه لطلبك على الرابط التالي http://www.officena.net/ib/index.php?s=&am...st&p=129836 آمل الإطلاع وان كان ما تريد ممكن شرحة مع التحية

الأستاذ طارق عمل رائع وابداع جميل جزاك الله كل خير