سعد الفقير

up

تم تعديل الملف ووضع كل تخصص في ورقة عمل مختلفة حسب مقترحكم اخي ياسر AutoFilter Multi Criteria YasserKhalil V3.zip

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

السلام عليكم ورحمة الله وبركاتة. الشكر موصول لله ثم لأاخي ياسر خليل في مساعدتي في حل بعض المشاكل المتعلقة في برنامجي الصغير . اواجة بعض الصعوبة في البرنامج سؤالي مدرج في الورقة A . اتمنى بان يكون حل هذة المشكلة بواسطة VBA . شاكرين حسن تعاونكم AutoFilter Multi Criteria YasserKhalil V3.rar

تم حل المشكلة جزيت خيرا. وكثر الله من أمثالك.

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

جزيت خيرا أخي ياسر. احسنت صنعا ما شاء الله.

up

up

وهل بالامكان ان تشرح لي هذا الكود. بارك الله فيك With WS .AutoFilterMode = False .Range("A1:J1").AutoFilter End With For I = 3 To 21 Step 2 With WS .Range("A1:J1").AutoFilter Field:=10, Criteria1:=SH.Cells(24, I).Value .Range("E1").Offset(1, 0).Resize(LR, 2).SpecialCells(xlCellTypeVisible).Copy SH.Cells(26, I).PasteSpecial xlPasteValues End With Next I

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

الانجليزية

السلام عليكم احبتي في الله. نرجوا المساعدة في حل هذة المشكلة. السؤال في الملف المرفق في الورقة الثانية . وفقكم الله 1212.rar

أحسنت اخي بن علية نعم هذا هو المطلوب جزيت خيرا

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

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

السلام عليكم : المطلوب في هذا الملف هو عملية فلترة حسب الاقدمية في الرقم الوظيفي واعلى درجة في المجموع, هل بالامكان عمل زر يقوم بهذا العمل او طريقة يتم الاختيار منها عملية الفرز المطلوبة .اما حسب الاقدمية او الاكثر مجموع. ولكم الشكر الجزيل علما لابد ان تكون هذة الجداول بنفس التنسيق ومتفرقة اي ليست في جدول واحد. شكرا لكم مقدما فرز حسب شرط معين.rar

Up

السلام عليكم أخواني انا استخدم اوفيس 2010 انجليزي وعند كتابه بعض الاكواد بالغة العربية تظهر رموز وعلامة استفهام %%%؟؟؟؟؟؟؟ وعند بحثي وجدت بان اللغة العربية غير موجودة في الاوفيس . السؤال هل من رابط مجاني لتحميل حزمة اللغة العربية لكي استطيع التعامل مع كلا اللغتين. او هناك طريقة اخرى ولكم جزيل الشكر . اذا وجد رابط اتمنى بان يكون مباشر

انا اواجه نفس المشكلة وارجو من الخبراء المساعدة هنا (الرابط بالأسفل ) http://www.officena.net/ib/index.php?showtopic=58013#entry369857

ليتني استطيع روئيه عملكم . الرقم السري غير صحيح

up

مطلوب تحويل الملف إلى ملف مشترك السلام عليكم استخدم في العمل البرنامج الموجود في المرفقات لتنظيم إجازات الموظفين وإريد تحويل الملف إلى ملف مشترك بحيث يستخدمه الموظفون من أي مكان في العمل على الشبكة المحلية فكرة عمل الملف : في ورقة (تقديم طلب) : عند تقديم طلب إجازة , يقوم الموظف فيها بإدراج رقمه في الخلية B2 وتظهر بياناته ويحدد عدد أيامها , يتم جلب البيانات للموظف من ورقة (ألأسماء) لأن كل موظف له رقم خاص بالعمل , وبعد تعبئة الجدول يضغط الموظف على ( موافق ) فتنتقل البيانات للجدول السلفي بهذا يكون الموظف قد قدم طلب الإجازة وحتى يتم الموافقة عليها لا بد أن تمر هذه الإجازة على أربعة مسؤولين 1/ رئيس الشفت : ويقوم بالنقر المزدوج على الخلية (J6) ويدخل كلمة مروره وهي (111) ثم يختار (رفض أو قبول ) 2/ رئييس القسم : ويقوم بنفس العمل في االخلية (K6) ويدخل كلمة مروره (222) ثم يختار رفض أو قبول 3/ المشرف : في الخلية (L6) كلمة مروره (333) 4/ المدير : في الخلية (M6) كلمة مروره (444) او (555) ويتحكم في تغيير كلمات المرور للمسؤولين إذا تم قبول الإجازة من المسؤؤلين الاربعة , يتم اعتماد الإجازة وإذا رفضها واحد منهم يتم رفضها بالكلية في حالة قبول الإجازة يقوم بعد ذلك أحد المسؤولين الأربعة بالضغط علي يمين الماوس في خلية (A6) فتتحول الإجازة إلى ورقة (الإجازات) أو حذف الإجازة في حالة الرفض يمكن أدخال الإجازة مباشرة من ورقة (الإجازات) دون المرور بالخطوات السابقة المطلوب : كيف أجعل الملف مشتركا ؟ فعند تحويله مباشرة تظهر رسائل خطا أثناء العمل مع العلم أن الخلايا يجب أن تكون محمية حتى لا يتم التغيير فيها من قبل الموظفين وهذا الامر مهم لي. كلمة مرور الشيتات 555 ابرنامج الإجازات.rar

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

شكرا لك اخي سليم هذا هو المطلوب.