طارق محمود

السلام عليكم أخي العزيز راجع الردود في الموضوع التالي: http://www.officena.net/ib/index.php?showtopic=56402&hl=

السلام عليكم أخي الكريم تم تسمية نطاقين في الورقة 1 هما : jadeed ، qadeem ويأخذان القيم التي بالمجالان : =ورقة1!$G$2:$G$50 ، =ورقة1!$F$2:$F$50 بالترتيب وعليهما تعتمد المعادلتان التي تجلب الآخر إذن عند إضافة بيانات جديدة ينمكنك تحديث النطاقان أو يمكن إصلاحها بجعل النطاقين دينامكيين يتغيران بتغير المصدر كما بالمرفق تم إصلاح هذه بإضافة شرط كما بالمرفق ممكن ولكنها ستأخذ وقتا وليس عندي حاليا تفضل المرفق Test2_3.rar

السلام عليكم أخي الكريم تفضل الملف به المطلوب Book1-1.rar

السلام عليكم أخي الكريم وضعت بعض البيانات الافتراضية بالورقة الأولي لتجربة المعادلات تفضل المرفق Test2.rar

السلام عليكم تفضل أخي المرفق به المطلوب حساب الأقدمية2.rar

السلام عليكم اخي الكريم ارفق الملف الإكسل بغض النظر عن الملف الأصلي الذي يأخذ منه البيانات

السلام عليكم تفضل أخي المطلوب باستخدام الجداول المحورية Pivot Table a2.rar

السلام عليكم بعد إذن أخي الغالي الحبيب / ياسر ================ أخي أبو ليمونة واجهتني هذه المشكلة من قبل يمكنك إضافة الأيكونة الخاصة بذلك في شريط الأدوات العلوي إن كنت تستعمل أوفيس 2007 أو 2010 إضافة الأيكونة (لصق - خاص قيم) من الاكسل مباشرة بلاأكواد ولامعادلات لإضافة هذه الأيكونة إتبع الخطوات السبعة في الصورة المرفقة بعد إضافتها ستجدها مطفأة ثم إذا نسخت شيئا من الإكسل أو من خارج الإكسل أو من الانترنت ستجد أنه تم تفعيلها أي أنها جاهزة للصق فقط تقف في الموضع المطلوب وتنقر عليها بالماوس تفضل الصورة

لماذا إذن 5 صفوف عند كل حضور أو إنصراف أرجو أن تملأ من الورقة الأولي مرتين علي الأقل من check in , check out وتحسب ماتريد يدويا لأفهم أنا أو غيري ويتم العمل أوتوماتيكيا بعد ذلك

مازلت لاأفهم هل العاملين 5 أشخاص فقط ؟ لأنك تضع في الورقة الأولي 5 صفوف عند كل حضور أو إنصراف

لست متأكدا ولكن يمكنك استبدال هذا الجزء ChDir "D:\PDF\" '======================================= ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=MyFullName بالسطر التالي ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\PDF\" & MyFullName

السلام عليكم تفضل أخي الملف وبه التعديل طباعة3.rar

السلام عليكم أخي العزيز السؤال غير واضح رجاء لك ولجميع الإخوة السائلين: لاتبخلوا بالشرح حتي تجدوا حلا مناسبا ومن محاولة واحدة إعطي مثال 10 أسطر مثلا ضع فيها مواعيد حضور وانصراف ثم ضع الناتج يدويا بالشكل الذي تريد

السلام عليكم أخي العزيز مادام الكود شغال 100% ، لاداعي لاستخدام آخر ============== الكود مهما كان صغيرا يأخذ وقت كبير في الفهم والتعديل عموما أعتقد أن الجزء التالي من الكود هو السبب MyFullName = "GL " + Me.TextBox1.Value '======================================= ChDir "D:\PDF\" '======================================= ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=MyFullName هذا المتغير MyFullName في السطر الأول يساوي جزء ثابت "GL" بالاضافة لجزء آخر يأتي من يوزرفورم Me.TextBox1.Value إن أردت تصليح ذلك فعليك إضافة المسار للمتغيرMyFullName

السلام عليكم أخي العزيز أولا تم تعديل عنوان الموضوع ========================== ثانيا بالنسبة للمشكلة بالملف ، يبدو أنك وقعت بالخطأ الشائع حيث ذهبت (انت أو من استخدم الملف) لآخر خلية بالعمود A مثلا A1048576 ثم لمست مفتاح المسافة مثلا Space Bar ========================== تستطيع التعرف علي ذلك إذا ضغطت Ctrl-End ستجد مؤشر الإكسل يذهب لآخر خلية مستخدمة في الورقة وهذا يعني أنه تم حجز كل الصفوف لوجود بيانات محتملة فيها مما يزيد كثيرا من حجم الملف ============================= تم حذف الصفوف بعد البيانات الموجودة بالورقتين الأوليين ثم إعادة التخزين (الحفظ) تفضل المرفق بعد التعديل فقط 282 كيلوبايت طباعة2.rar

السلام عليكم أخي العزيز إبدأ أولا بالبحث قد تجد ماتريد أو أكثر حتي مما تريد أنظر مثلا هذا الموضوع http://www.officena.net/ib/index.php?showtopic=54120&hl=%D8%B1%D8%BA%D8%A8%D8%A9 أو هذا http://www.officena.net/ib/index.php?showtopic=54109&hl=%D8%B1%D8%BA%D8%A8%D8%A9 أو هذا http://www.officena.net/ib/index.php?showtopic=55479&hl=%D8%B1%D8%BA%D8%A8%D8%A9#entry351050

السلام عليكم أخي العزيزلديك أكثر من حل 1 - يمكنك طباعة الجدول PDF ثم إرسال المطبوع (الملف PDF ) 2- يمكنك فصل الجدول عن الملف في شيت منفصل ثم نسخ أو قص الشيت بالكامل لملف جديد إكسل ليس به إلا هذا الشيت وبالطبع سيكون الشيت متصل بالبيانات الأصلية Hyperlink ثم ترسل ذلك الملف الجديد

عندك حق أخي جمال ولكني أتعاطف مع الأعضاء الجدد (المنضمين حديثا وعدد مشاركاتهم قليل) إن شاء الله ، نجد الأخ الأستاذ / عزيز من الأعضاء الفاعلين قريبا

السلام عليكم تفضل أخي الملف وقد أضفت بعض الأسماء والفصول الأخري Aziz002.rar

السلام عليكم أخي العزيز ضع الكود التالي في أي ملف إكسل علي الجهاز وسوف يفعل ماتريد Sub pdf_Move() Dim myFile As String pt = "c:\A\" myFile = Dir(pt) Do While myFile <> "" If Right(myFile, 4) = ".pdf" Then Name "c:\A\" & myFile As "d:\A\" & myFile myFile = Dir() Loop End Sub

السلام عليكم كما قلت لك ddd تخبر الاكسل أنك تريد اليوم بالتنسيق العادي (الشائع : الإنجليزي) فإذا كان العادي علي جهازك اللغة العربية والتاريخ بالعربي فسيكون الشائع : العادي عندك هو الأيام العربية أما تلك الأرقام فهي كود صفحة اللغة ، كما أشرت سابقا

السلام عليكم أخي العزيز ddd تخبر الاكسل أنك تريد اليوم بالتنسيق العادي (الشائع : الإنجليزي) Saturday, Sunday,... أما إن كنت تريد غير الإنجليزية فلابد من أن تسبق التنسيق ببادئة يكون لها علاقة بكود صفحة اللغة التي تريدها مثلا B2ddd للتنسيق بالعربية (السبت - الأحد -... وهذه للتنسيق بالهندي (शनि. , रवि. , सोम. , मंगल. , बुध. , गुरु. , शुक्र.) [$-4010439]ddd وهذه للتنسيق بلغة الأفريكانو ( Sat , Son , Maan , Dins , Woen , Dond , Vry) [$-436]ddd

السلام عليكم أخي الحبيب محمد الريفى فعلا الحل بواسطة ال solverجميل ولكنه كما أشار الأخ السائل ينتج حلا واحدا وهو يريد الإحتمالات المتعددة الممكنة ========================== أخي / مدحت تفضل المرفق به جزء كبير من الحل مازال الكود يحتاج مراجعة وتدقيق لأن النتائج ليست دقيقة وليست كل الإحتمالات ولن أكون جاهز لمشاركة أخري قبل عدة أيام سأرفع الملف لمن أراد أن يتم العمل وسأكون له شاكرا تفضل المرفق Invoice2.rar

السلام عليكم أخي العزيز ضع الشرط التالي في التنسيق الشرطي =AND(E3=E4,E3<>E2) تفضل المرفق دالة تظليل2.rar

بالأكواد ولكني لست جاهزا لهذا الآن إذا لم يتدخل أحد الإخوة سأحاول فيها غدا