عصام عبدالرحمن بو محمد قام بنشر أبريل 10, 2014 مشاركة قام بنشر أبريل 10, 2014 السلام عليكم ورحمة الله وبركااته اعزائى الاساتذة المحترمين استاذ طارق تحياتى لكم جميعا وعلى مجهودكم الرائع فى افادتنا دائما بكل ما هو جديد و لا نعلمه المشكلة عندى ملف ادارى كبير عبارة عن 3 شيت الشيت الاول اسماء العاملين بالادارات فى المناطق تقريبا 10 مناطق وعدد العاملين 33684 عامل الشيت الثانى اسماء الاداريين وعددهم 3403 الشيت الثالث رؤساء الاقسام وعددهم 1976 وهناك شيت رابع هم المداراء وعددهم 68 المطلوب هو تقسيم العاملين والادارين ورؤساء الاقسام الى 68 مدير اى ان كل مدير يرأس عدد من العاملين والاداريين ورؤساء الاقسام بالتساوى عدد العاملين متساوين تحت كل مدير مع امكانية طباعة الكشف كامل لكل مدير وكذلك الباقى بالتساوى حيث تم تقسيم المجموعة لدينا الى 68 مجموعة تحت امرة رجل واح انا قمت بجمع 3 شيت فى شيت واحد وبعدين ما قدرت اقوم بالتقسيم بالطرق العادية تأخذ وقت كبير فهل لدديكم حل لهذه المشكلة جزاكم الله خيرا وهو مطلوب على وجه السرعة حيث صار لى يومان فى هذه المشكلة وما وجدت حل مرفق نموذج للداتا وبنفس الاشكال مع تحياتى للجميع و الى الاساتذة الافاضل المشرفين فى الالمنتدى واصحاب الخبرات الكبيرة نموذج الداتا.rar رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر أبريل 10, 2014 مشاركة قام بنشر أبريل 10, 2014 (معدل) السلام عليكم حسب ما فهمت من الطلب جرب المرفق HAnine.rar تم تعديل أبريل 10, 2014 بواسطه أبو حنين رابط هذا التعليق شارك More sharing options...
عصام عبدالرحمن بو محمد قام بنشر أبريل 11, 2014 الكاتب مشاركة قام بنشر أبريل 11, 2014 السلام عليكم ورحمة الله وبركاته الاخ الفاضل ابو حنين جزاك الله خيرا على مجهودك الرائع لقد قمت بتجربة الملف وقمت بنسخ الاسماء الى الملف المرفق ولكن عندما قمت بالضغط على ايقونة التوزيع قام بالتوزيع واخراج النسب صحيحة وعمل بالضبط ما اريد ولكن عندما نظرت الى الاوراق التى تم التوزيع نسخ فقط اول خمس اسماء وتكررت الاسماء الخمسة فى كل الصفحات والمفروض ان يأخذ فى كل ورقة نفس النسب التى تم التوزيع عليها اى ان الورقة الاولى تأخذ من اسماء العمال 496 وايضا من الاداريين 51 ومن الروساء الاقسام 30 و مدير واحد هذه النسب صحيحة ولكن اريد اظهار هذا فى كل ورقة بدون تكرار الاسماء حيث بعد التقسيم سوف يتم طباعة كل كشف واعطائه الى المدير المسئول عن جماعته وسوف يتم نقل ملفات كل مجموعة حيث الادارة المحددة لهم ولذلك يجب دقة النقل والتوزيع بدون تكرار اسم واحد الى الاخر فالمطلوب يأخذ من ورقة العمال العدد 496 ومن ثم يأخذ من ورقة الاداريين 51 اسم ومن الرؤساء 30 و من الورقة الرابعة اسم مدير واحد وسوف يكون اسم المدير اعلى الصفحة ثم الجدول ترتيبه هكذا 30 رؤساء الاقساء 51 موظفين واداريين ثم العمال 496 وهكذا يكون التقسيم مع مراعاة عدم تكرار الاسماء انا حاولت فى الملف المرفق من قبلكم ولكن يظر فقط اول خمس اسماء مكررة فى كل الصفحات وارجو ان اكون اوضحت لك المطلوب واشكرك على مجهودك الرائع فلقد تم التقسيم الى صفحات المطلوبة 68 ورقة عمل بنفس تنسيق الجدول ولكن تكرر الاسماء الاولى فقط اعتقد انك ممكن تقوم بالتعديل بسهولة بعد ما اوضحت لك المطلوب وجزاك الله خيرا على مجهودك وجعله فى ميزان حسناتك وبارك الله فى مجهودك وعلمك وزادك الله من علمه فى انتظارك بارك الله فيه رابط هذا التعليق شارك More sharing options...
عصام عبدالرحمن بو محمد قام بنشر أبريل 12, 2014 الكاتب مشاركة قام بنشر أبريل 12, 2014 السلام عليكم حسب ما فهمت من الطلب جرب المرفق السلام عليكم ورحمة الله وبركاته الاخ الفاضل ابو حنين جزاك الله خيرا على مجهودك الرائع لقد قمت بتجربة الملف وقمت بنسخ الاسماء الى الملف المرفق ولكن عندما قمت بالضغط على ايقونة التوزيع قام بالتوزيع واخراج النسب صحيحة وعمل بالضبط ما اريد ولكن عندما نظرت الى الاوراق التى تم التوزيع نسخ فقط اول خمس اسماء وتكررت الاسماء الخمسة فى كل الصفحات والمفروض ان يأخذ فى كل ورقة نفس النسب التى تم التوزيع عليها اى ان الورقة الاولى تأخذ من اسماء العمال 496 وايضا من الاداريين 51 ومن الروساء الاقسام 30 و مدير واحد هذه النسب صحيحة ولكن اريد اظهار هذا فى كل ورقة بدون تكرار الاسماء حيث بعد التقسيم سوف يتم طباعة كل كشف واعطائه الى المدير المسئول عن جماعته وسوف يتم نقل ملفات كل مجموعة حيث الادارة المحددة لهم ولذلك يجب دقة النقل والتوزيع بدون تكرار اسم واحد الى الاخر فالمطلوب يأخذ من ورقة العمال العدد 496 ومن ثم يأخذ من ورقة الاداريين 51 اسم ومن الرؤساء 30 و من الورقة الرابعة اسم مدير واحد وسوف يكون اسم المدير اعلى الصفحة ثم الجدول ترتيبه هكذا 30 رؤساء الاقساء 51 موظفين واداريين ثم العمال 496 وهكذا يكون التقسيم مع مراعاة عدم تكرار الاسماء انا حاولت فى الملف المرفق من قبلكم ولكن يظر فقط اول خمس اسماء مكررة فى كل الصفحات وارجو ان اكون اوضحت لك المطلوب واشكرك على مجهودك الرائع فلقد تم التقسيم الى صفحات المطلوبة 68 ورقة عمل بنفس تنسيق الجدول ولكن تكرر الاسماء الاولى فقط اعتقد انك ممكن تقوم بالتعديل بسهولة بعد ما اوضحت لك المطلوب وجزاك الله خيرا على مجهودك وجعله فى ميزان حسناتك وبارك الله فى مجهودك وعلمك وزادك الله من علمه فى انتظارك بارك الله فيه رابط هذا التعليق شارك More sharing options...
عصام عبدالرحمن بو محمد قام بنشر أبريل 12, 2014 الكاتب مشاركة قام بنشر أبريل 12, 2014 السلام عليكم الموضوع سبق قمت بطلبه سابقا والى الان لم يحل بالشكل النهائى وهو موجود على هذا الرابط http://www.officena.net/ib/index.php?showtopic=53106 المشكلة عندى ملف ادارى كبير عبارة عن 3 شيت الشيت الاول اسماء العاملين بالادارات فى المناطق تقريبا 10 مناطق وعدد العاملين 33684 عامل الشيت الثانى اسماء الاداريين وعددهم 4187 الشيت الثالث رؤساء الاقسام وعددهم 1976 وهناك شيت رابع هم المداراء وعددهم 68 المطلوب هو تقسيم العاملين والادارين ورؤساء الاقسام الى 68 مدير اى ان كل مدير يرأس عدد من العاملين والاداريين ورؤساء الاقسام بالتساوى عدد العاملين متساوين تحت كل مدير مع امكانية طباعة الكشف كامل لكل مدير وكذلك الباقى بالتساوى حيث تم تقسيم المجموعة لدينا الى 68 مجموعة تحت امرة رجل واح انا قمت بجمع 3 شيت فى شيت واحد وبعدين ما قدرت اقوم بالتقسيم بالطرق العادية تأخذ وقت كبير فهل لدديكم حل لهذه المشكلة جزاكم الله خيرا وهو مطلوب على وجه السرعة حيث صار لى خمس ايام فى هذه المشكلة وما وجدت حل فالمطلوب يأخذ من ورقة العمال العدد 496 ومن ثم يأخذ من ورقة الاداريين 61 اسم ومن الرؤساء 30 و من الورقة الرابعة اسم مدير واحد فى كل شيت من 68 يكون كما يلى وسوف يكون اسم المدير اعلى الصفحة ثم الجدول ترتيبه هكذا 30 رؤساء الاقسام 61 موظفين واداريين ( تم زيادة العدد الى 61 ) ثم العمال 496 وهكذا يكون التقسيم مع مراعاة عدم تكرار الاسماء انا حاولت فى الملف المرفق من قبلكم ولكن نسخ فقط اول خمس اسماء مكررة فى كل الصفحات وارجو ان اكون اوضحت لك المطلوب فى انتظار ردكم والرد الوحيد الذى جاء من ابو حنين وموجود ملف على الرابط ايضا من يستطيع جعله ينسخ بدون تكرار جزاكم الله خيرا وبارك فى مجهوده لان قام بمجهود جبار مع تحياتى له نموذج الداتا.rar HAnine.rar رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر أبريل 14, 2014 مشاركة قام بنشر أبريل 14, 2014 السلام عليكم أخي عصام تفضل الملف المرفق به بعض البيانات الإفتراضية لعدد 4 مديرين فقط ومايلزمهم من مساعدين / مشرفين / عمال إن شاء الله يكون هو ماتريد لاحظ التالي 1- يوجد ورقة مخفية إسمها Sample يأخذ منها الكود التنسيق والفورمات للشيتات المطلوبة - يمكنك إظهارها وتعديلها ثم إخفاؤها قبل تشغيل الكود 2- أول سطر بالكود For i = 1 To 4 لأنني فرضت فقط أربعة مدراء ، يلزمك التعديل للعدد الذي تريد 3- لابد أن تكون أسماء شيتات البيانات كما فرضتها انا D1 , D2 , D3 , D4 4- السطر السادس بالكود به الأعداد الذي تريد التقسيم عليها بالترتيب ، يمكنك تعديله إن شئت x = Array(11, 29, 50, 495) 5- سينتج بواقي نتيجة أن الأعداد لن تقبل القسمة صراحة علي أرقام التقسيم لذك إما أن تزيدها جميعا بمقدار 1 مثلا ويكون آخر مدير معه عدد أقل منهم جميعا أو تعيد توزيع البواقي يدويا (لن يكون كبيرا) الكود كاملا Sub Tawzee3() For i = 1 To 4 Sheets("Sample").Visible = True Sheets("Sample").Copy after:=Sheets(Sheets.Count) [B2] = "المدير المسئول / " & Sheets("Manager's").Cells(i + 1, 2) ActiveSheet.Name = "T" & Format(i, "000") x = Array(11, 29, 50, 495) For sh = 1 To 4 nr = [B99999].End(xlUp).Row + 1 ' new Row ready for data st_R = x(sh - 1) * (i - 1) + 2 ' start Row fn_R = x(sh - 1) * i + 1 ' finish Row Sheets("D" & sh).Range("B" & st_R & ":J" & fn_R).Copy Cells(nr, 2) Next sh [A4] = 1: [A5] = 2: LR = [B99999].End(xlUp).Row [A4:A5].Select Selection.AutoFill Destination:=Range("A4:A" & LR) Next i Sheets("Sample").Visible = False End Sub تفضل الملف وبه البيانات الإفتراضية و الكود نموذج الداتا2.rar 2 رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر أبريل 14, 2014 مشاركة قام بنشر أبريل 14, 2014 بعد إذن الجميع سأدمج الموضوعين لأنهما نفس الموضوع رابط هذا التعليق شارك More sharing options...
أفضل إجابة عصام عبدالرحمن بو محمد قام بنشر أبريل 15, 2014 الكاتب أفضل إجابة مشاركة قام بنشر أبريل 15, 2014 السلام عليكم ورحمة الله وبركاته استاذى العزيز الاخ الفاضل طارق جزاك الله خيرا على مجهودك الرائع وبارك الله لك فى علمك و زادك الله من علمه وجعله فى موازين حسناتك حقيقى عمل رائع ومجهود طيب منك الله لا يحرمنا من علمك ومن مساعدات التىدائما تنقذنى بها فى الوقت المناسب حقيقى لا اجد كلمات شكر اعبر بها لك عن هذا العمل الرائع سوى ان ادعو لك بظهر الغيب ان يبارك لك و فى عمرك و علمك وان تثقل مساعداتك هذه موازينك فى الاخرة فتلقاها عملا مبشرا لك بالجنات العلى جعلنا الله انتم ونحن معكم ان شاء الله مع النبين والشهداء والصديقين فى اعلى الجنان اللهم آمين ولقد التزمت بتعليماتك بدقة وتم تعديل الكود لنصل الى 68 شيت وتبقى عدد قليل من العمال 22 واحد وسألت رؤسائى قالوا يتم اضافتهم الى ااى مشروع محتاج اضافة عمال اى احتياطى للمشاريع وتم النسخ ولكن واجهت مشكلة بسيطة وقمت بتعديل بسيط فى ورقة simple فقط المدير المسئول الى مدير المشروع السيد / وكذلك تعديلها فى الكود من المدير المسئول الى مدير المشروع وايضا تعديل كود عدد الصفحات الى 68 حسب عدد المدراء والحمد لله تم بحمد الله طباعة الكشوف وبدء تجهيز العمل جزاك الله خيرا وايضا فى هذا المنتدى الرائع اولا لانه يقوم بمساعدة الاخرين دون انتظار كلمة شكرا وثانيا جمع الله فيه من الصحبة الطيبة اناس ذو خلق ودين عندهم حب مساعدة الاخرين ويسارعون فى الخير فنجد الردود تتوالى اللهم بارك فيهم جميعا وفى المنتدى ويجمعنا بصحبة الاخيار فى الجنات العلى كما جمعنا فى هذا المنتدى اخوكم عصام عبدالرحمن رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.