ترحيل مرتبة الموظف وأسمة الى أوراق عمل أخرى حسب شرط معين

[سعد الفقير]

السلام عليكم ورحمة الله وبركاتة.

 

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

 

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

AutoFilter Multi Criteria YasserKhalil V3.rar

[ياسر خليل أبو البراء]

أخي الفاضل حاول تبسط طلبك بعض الشيء

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

أعتقد قد يكون من الأسهل وضع كل وظيفة في جداول في أعمدة متجاورة وليست الجداول متتالية كما في الملف

حاول تعيد تصميم الملف لعلك تجد المساعدة

[سعد الفقير]

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

[سعد الفقير]

تم تعديل الملف ووضع كل تخصص في ورقة عمل مختلفة حسب مقترحكم اخي ياسر

AutoFilter Multi Criteria YasserKhalil V3.zip

تم تعديل أبريل 29, 2015 بواسطه تركي١

[سعد الفقير]

up

[ياسر خليل أبو البراء]

أخي الفاضل

يرجى أن تضع شكل النتائج المتوقعة ..

هناخد على سبيل المثال ورقة العمل A التي يراد جلب أسماء المشرفين فيها

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

 

في عمود الاسم : يوجد الاسم والاسم كتااااااااابة .. هعتبر دا لغز ممكن تحله

 

في أعمدة التوقيت لم تذكر المطلوب ولكن أعتقد أنه لن يكون هناك مطلوب في هذه الأعمدة حيث أنه لا يوجد بيانات متعلقة بهذه الأعمدة ..

 

سؤال آخر .. هل هناك تخصصات أخرى ستقوم بعمل أوراق عمل لها ؟؟

 

سؤال آخر .. ولا كفاية كدا جاوب على اللي فات يا كبير

[سعد الفقير]

اهلا اخي ياسر.

 

 

 على سبيل المثال ورقة العمل A التي يراد جلب أسماء المشرفين فيها

ارغب بان يكون الترقيم تسلسلي . وتجلب مرتبة الموظف والاسم فقط.في عمود الاسم اما بخصوص الاسم كتابة يبقى فارغا.

 

في أعمدة التوقيت تبقى فارغة

 

 

سؤال آخر .. هل هناك تخصصات أخرى ستقوم بعمل أوراق عمل لها ؟؟  نعم فلكل تخصص ورقة عمل منفصلة فكما هو واضح بالملف المرفق  .

 

المشرفين لهم الورقة A وبامكاني اختيار اي خلية عمل للمشرفين ارغب في ادراجها اما    أ, ب ,ج

تخصص كهرباء ورقة B وبامكاني اختيار اي خلية عمل لتخصص الكرباء  ارغب في ادراجها اما    أ, ب ,ج

تخصص نجار ورقة  c  وبامكاني اختيار اي خلية عمل لتخصص نجار  ارغب في ادراجها اما    أ, ب ,ج

تخصص مراقب ورقة D  وبامكاني اختيار اي خلية عمل لتخصص مراقب  ارغب في ادراجها اما    أ, ب ,ج

 

 

أدراج اسماء العاملين في تخصص ما حسب الخلية التي يعمل بها اما أ , ب , ج هذة النقطة مهمة بالنسبة لي.

 

 

شاكرين لك اخي ياسر . دنته بتخوف هههههههههه

تم تعديل أبريل 29, 2015 بواسطه تركي١

[ياسر خليل أبو البراء]

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

بالنسبة للخلية أ و ب و ج .. لم أفهم المطلوب

 

عموما جرب الملف التالي .. تم عمل كود واحد كل أوراق العمل بحيث عندما تقوم بالنقر على زر الأمر يقوم الكود باستدعاء كل البيانات الخاصة بكل مهنة

Sub SheetA()
    Dim WS As Worksheet, SH As Worksheet
    Dim lRow As Long, Cell As Range
    Set WS = Sheets("SQ"): Set SH = Sheets("A")
    lRow = 28
    Application.ScreenUpdating = False
        For Each SH In Worksheets
            If SH.Name <> "SQ" And SH.Name <> "ATTEND" Then
                SH.Range("B28:J230").ClearContents
                With WS
                    For Each Cell In WS.Range("J2:J" & .Cells(Rows.Count, "J").End(xlUp).Row)
                        If Cell.Value = SH.Range("A27").Value Then
                            SH.Cells(lRow, "B") = lRow - 27
                            SH.Cells(lRow, "C") = Cell.Offset(, -6)
                            SH.Cells(lRow, "D") = Cell.Offset(, -3)
                            lRow = lRow + 1
                        End If
                    Next Cell
                End With
            End If
            lRow = 28
        Next SH
    Application.ScreenUpdating = True
End Sub

تقبل تحياتي

AutoFilter Multi Criteria YasserKhalil V1.rar

[سعد الفقير]

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

طبيعة العمل لدي ثلاث شفتات فهناك من يعمل في الشفت أ وهناك من يعمل في الشفت ب وهناك من يعمل في الشفت ج .

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

V2.zip

تم تعديل أبريل 30, 2015 بواسطه تركي١

[ياسر خليل أبو البراء]

أخي الفاضل تركي

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

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

فالكود مناسب للملف المرفق وليس لملفك ..فعند تجربة الكود وإعطاء النتائج يرجى إخبارنا بالنتائج هل صحيحة أم لا في الملف الذي أرفقه ...

 

Exract Data Based On Conditions YasserKhalil.rar

[سعد الفقير]

عذرا أخي ياسر فنحن نتعلم منكم ونأسف منكم. اعذرني مرة اخرى اخي ياسر لسوء الفهم فمنكم نتعلم.

 

 

بالنسبة للملف الذي ارفقتة يعمل وهذا هو المطلوب جزيت خيرا.

 

 

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

[ياسر خليل أبو البراء]

أخي الفاضل تركي1

يرجى أولا تغيير اسمك للغة العربية لسهولة التواصل

 

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

المشكلة أن الكود يتعامل مع أوراق العمل كلها باستثناء ما تم استثناؤه ..

في هذا السطر تم الاستثناء

If SH.Name <> "SQ" And SH.Name <> "ATTEND" Then

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

أترك لك مهمة تعديل الكود ..

وأي استفسار آخر إن شاء الله ستجدني أجيبك

[سعد الفقير]

اخي ياسر جزيت خيرا . المعلم لابد ان يكون صبور مع تلميذة . فلا تعتقد باننا وصلنا لحجم معرفتكم بالبرمجة فأنا مبتدأ.

 

 

أضفت جميع مسميات اوراق العمل بعد

 

If SH.Name <> "SQ" And SH.Name <> "ATTEND" Then

 

ولكن مازال الكود لا يعمل . فهل علمتنا جزيت خيرا او اقفل هذا الموضوع.

تم تعديل أبريل 30, 2015 بواسطه سعد1212

[ياسر خليل أبو البراء]

الأخ الفاضل سعد

أنا لا أستاذ ولا حاجة .. أنا مجرد متعلم مثلك تماماً ..

ونقطة أخرى لم حكمت عليا أنني غير صبور معك ؟ هل لأني طلبت شيء بسيط ..

أحب أن أنوه إلى شيء هام جداً أخي الكريم سعد ..أنني في معظم مشاركاتي أوجه الأعضاء لموضوع التوجيهات ، وحضرتك لو متابع المشاركات هتعرف كدا كويس

طيب ايه السبب : عشان نقدر نوصل لأفضل أداء في أقل وقت وأقل جهد (معادلة مهمة جداً)

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

دا اللي أنا أقصده

فلما حضرتك ترفق ملف للعمل عليه  ، وييجي عضو يقدم المساعدة وياخد وقت في التفكير في حل المشكلة ويقدم لك الحل بعد ما غاب يشتغل في الملف ساعة أو أكتر في بعض الأحيان (إحنا مش صواريخ) .. فلما حضرتك بكل بساطة تيجي تغير الملف المرفق وتغير شكل الطلب اللي طلبته في البداية ....

تفتكر يكون رد فعل العضو دا ايه !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

أرجو أن تكون قد فهمت مقصدي ..

وإذا كنت قد أسأت إليك فأقدم اعتذاري

تقبل تحياتي

[سعد الفقير]

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

 

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

[سعد الفقير]

فما هي توجيهاتكم لنا اخي ابو ياسر

[ياسر خليل أبو البراء]

الأخ الفاضل سعد

أرجو ألا يكون في صدرك شيء مني ، فما أردت إلا التنظيم لطلبات الأعضاء ..

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

وللعلم يزعجني جدا الموضوعات التي تطول بدون داعي !!

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

....

أما بالنسبة لموضوع الآن ، فأنا احترت ، لأنه بعد 16 مشاركة لم افهم المطلوب ..........................

بإمكانك طرح موضوع جديد ، ولكن يرجى إغلاق هذا الموضوع بتحديدك لأفضل إجابة حتى يظهر الموضوع مجاب

وإن شاء الله نلتقي في موضوع جديد بمواصفات جديدة مطابقة لقواعد المنتدى