أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
هانى على ali mohamed ali-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة منع ادخال البيانات بعدة شروط اكسيل اسئله واجابات


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





كود ترحيل من صفحة الى عدة صفحات من رأسى الى أفقى بإسم الصفحة

السلام عليكم اساتذتى الكرام ..أرجو التكرم على مساعدتى بترحيل البيانات من صفحة Main الى كل اسم صفحة موجود بالعمود C من صف ..



30-04-2020 03:43 مساء
هانى على
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2018
رقم العضوية : 4794
المشاركات : 476
الجنس : ذكر
تاريخ الميلاد : 1-4-1980
يتابعهم : 5
يتابعونه : 4
قوة السمعة : 855
عدد الإجابات: 8
 offline 

السلام عليكم اساتذتى الكرام ..أرجو التكرم على مساعدتى بترحيل البيانات من صفحة Main الى كل اسم صفحة موجود بالعمود C من صفحة Main

والبيانات التى يجب ترحيلها من صفحةMain هى بيانات Car No. الموجودة بالعمود D من نفس الصفحة على ان يتم الترحيل على كل صف منفصل فى الصفحة المرحل اليها بناءا على Transfer Type الموجود بالعمود B من صفحة Main مع التاريخ الموجود بالعمود A بحيث كلما اختلف التاريخ مع Transfer Type يجب النزول فى الترحيل الى الصف التالى

وتم عمل نتائج الترحيل المطلوبة بكل صفحة كمثال
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
arOUI_1

 9LbrY_2
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

 
 
  Transportatio .xlsm   تحميل xlsm مرات التحميل :(3)
الحجم :(2072.995) KB


30-04-2020 04:56 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10444
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36522
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif كود ترحيل من صفحة الى عدة صفحات من رأسى الى أفقى بإسم الصفحة
وعليكم السلام أخي العزيز هاني
أنت لك باع طويل في الإكسيل ويجب عليك أن ترينا محاولاتك من أجل الوصول لحل ..
عموماً إليك الكود التالي مع بعض الملاحظات في الملف المرفق (وأرجو إرفاقه مرة أخرى بعد التصحيح ليستفيد منه الأعضاء)
* يراعى دائماً الدقة في كتابة البيانات .. فعلى سبيل المثال في أوراق العمل المراد الترحيل إليها ستجد أن كلمة HI ACE بها مسافة زائدة في آخر الكلمة ، لذا يجب إزالة هذه المسافة لكي لا يحدث خطأ في تنفيذ الكود ..
* كذلك ملحوظة فيما يخص اسم ورقة العمل  Limousin Travel في القائمة المنسدلة بها مسافة في أول الكلمة أما اسم الورقة فليس بها مسافة ، لذا يجب أن تقوم إما بحذف المسافة الزائدة في اسم ورقة العمل في القائمة المنسدلة أو وضع مسافة في أول اسم ورقة العمل في التبويب نفسه.

أخيراً إليك الكود عسى أن يكون المطلوب إن شاء الله
Sub Test()
    Dim x, y, ws As Worksheet, sh As Worksheet, rng As Range, r As Long, m As Long
    
    UseSpeedyCode True
        Set ws = ThisWorkbook.Worksheets("Main")
        For r = 3 To ws.Cells(Rows.Count, 1).End(xlUp).Row
            If Evaluate("ISREF('" & ws.Cells(r, 3).Value & "'!A1)") Then
                 Set sh = ThisWorkbook.Worksheets(ws.Cells(r, 3).Value)
                 m = sh.Cells(Rows.Count, 18).End(xlUp).Row + 1
                 sh.Cells(m, 1).Value = ws.Cells(r, 1).Value
                 sh.Cells(m, 18).Value = ws.Cells(r, 2).Value
                 sh.Cells(m, 19).Resize(1, 2).Value = ws.Cells(r, 7).Resize(1, 2).Value
                 
                 x = Application.Match(ws.Cells(r, 5).Value, sh.Rows(1), 0)
                 If Not IsError(x) Then
                    Set rng = sh.Cells(1, x).Offset(1, -1).Resize(1, 4)
                    y = Application.Match(ws.Cells(r, 6).Value, rng, 0)
                    If Not IsError(y) Then
                        sh.Cells(m, x + y - 2).Value = ws.Cells(r, 4).Value
                    End If
                 End If
            End If
        Next r
    UseSpeedyCode False
    
    MsgBox "Done...", 64
End Sub

Public Function UseSpeedyCode(goFast As Boolean)
    Dim calc As Long
    With Application
        .ScreenUpdating = Not goFast
        .EnableEvents = Not goFast
        If goFast Then
            calc = .Calculation
            .Calculation = xlCalculationManual
        Else
            .Calculation = calc
        End If
    End With
End Function

30-04-2020 05:59 مساء
مشاهدة مشاركة منفردة [2]
هانى على
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2018
رقم العضوية : 4794
المشاركات : 476
الجنس : ذكر
تاريخ الميلاد : 1-4-1980
يتابعهم : 5
يتابعونه : 4
قوة السمعة : 855
عدد الإجابات: 8
 offline 
look/images/icons/i1.gif كود ترحيل من صفحة الى عدة صفحات من رأسى الى أفقى بإسم الصفحة
رائع احسنت استاذ ياسر هذا بالفعل ابداع وتم ضبط الملف طبقاً لملاحظات حضرتك والكود يعمل تمام وبكل كفاءة وتم تعديل الملف بالمشاركة الأولى
ولكن لدى ملاحظة ياريت لو يمكن عملها بالكود وقد اوضحت هذا سلفا وايضا سيتضح لحضرتك من خلال الصورة فلا اريد ان يتم الترحيل على صفوف منفصلة طالما نفس التاريخ ونفس Transfer Type
وياريت لو ممكن عندما يتم الضغط على زر الترحيل لا يتم ترحيل البيانات السابق ترحيلها مرة اخرى فقط يتم ترحيل البيانات الجديدة

Zsqqv_1
 
 
 


30-04-2020 07:49 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10444
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36522
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif كود ترحيل من صفحة الى عدة صفحات من رأسى الى أفقى بإسم الصفحة
بارك الله فيك أخي الكريم هاني ..
ما هو المنطق الذي ستعتمد عليه في عملية عدم ترحيل البيانات المكررة ..؟ لأن التاريخ بالفعل قد يكون مكرر لديك .. النقطة تحتاج إلى تفاصيل أكثر وتوضيح لأنها غير مفهومة بالنسبة لي

30-04-2020 08:22 مساء
مشاهدة مشاركة منفردة [4]
هانى على
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2018
رقم العضوية : 4794
المشاركات : 476
الجنس : ذكر
تاريخ الميلاد : 1-4-1980
يتابعهم : 5
يتابعونه : 4
قوة السمعة : 855
عدد الإجابات: 8
 offline 
look/images/icons/i1.gif كود ترحيل من صفحة الى عدة صفحات من رأسى الى أفقى بإسم الصفحة
جزاك الله كل خير استاذنا الكريم على الإهتمام وبارك الله فيك
بالفعل قد يكون التاريخ مكرر وايضاً نوع النقل فيمكن عمل أكثر من نشغيلة فى نفس اليوم .. فانا اريد عند الترحيل لابد ان يكون مثلا كل نوع نقل يكون مجمع فى صف منفصل بنفس اليوم
بمعنى لو هناك تم عمل تشغيلات نقل مختلفة فى نفس اليوم فيجب ان تكون كل واحدة على حده بصف منفصل بعد الترحيل
فاذامثلا كان هناك عدد 2 أتوبيس و1 ميكروباص و1 كوستر فى يوم واحد سفر ( Dep.) وتم بنفس اليوم تشغيلة مختلفة اخرى وصول(Arrival) بمثلا مع اختلاف انواع المركبات فليكن كل نوع على صف منفصل بمجميع اعداد السيارات التى تمت بهذه التشغيلة
بالخلاصة : اود ان لا ارى نفس نوع التشغيلة بنفس اليوم على صفين منفصلين بالصفحة المرحل اليها بمعنى ان لا تتكرر نفس التشغيلة بنفس اليوم على صفين منفصلين فقط يجب تجميع كل تشغيلات النوع الواحد خلال نفس اليوم بالمركبات المختلفة سواء كانت اتوبيس او ميكروباص او ليموزين او كوستر بصف واحد
أتمنى ان يكون الأمر واضح الأن بارك الله فيك استاذنا العزيز

30-04-2020 10:01 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10444
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36522
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif كود ترحيل من صفحة الى عدة صفحات من رأسى الى أفقى بإسم الصفحة
ليس لدي فكرة عما يمكن تنفيذه في هذه النقطة ولكن كفكرة يمكن الاعتماد عليها أن يكون الاعتماد على التاريخ وعلى النوع Arrival أو Deparature فقط .. وتستخدم WorksheetFunction.Countif لتتاكد أنها تساوي 1 فقط فإذا كانت أكبر من 1 يدل على أنها مكررة ولا يتم ترحيلها

أو أفضل أن تضع عمود مساعد يكون بمثابة رقم مميز لكل عملية .. ننتظر مشاركات الأخوة الأعضاء ربما يفيدوك في حل المشكلة

30-04-2020 10:12 مساء
مشاهدة مشاركة منفردة [6]
هانى على
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2018
رقم العضوية : 4794
المشاركات : 476
الجنس : ذكر
تاريخ الميلاد : 1-4-1980
يتابعهم : 5
يتابعونه : 4
قوة السمعة : 855
عدد الإجابات: 8
 offline 
look/images/icons/i1.gif كود ترحيل من صفحة الى عدة صفحات من رأسى الى أفقى بإسم الصفحة
بارك الله فيك استاذنا الكريم احسن الله اليك ... ولكنى لا اريد بالفعل ترحيل المكرر ولكن فى نفس الوقت اريد تجميع اعداد سيارات التشغيل لهذا المكرر ولكن فى نفس اليوم قد يتكرر التاريخ وايضا يتكرر نوع التشغيلة سواء كانت وصول او سفر ولكن مع اختلاف نوعيات السيارات سواء كانت مثلا اتوبيس أو ميكروباص او غير ذلك
فى النهاية اود شكر حضرتك على هذا العمل الجبار انه فعلا كود ممتاز جعله الله فى ميزان حسناتك




الكلمات الدلالية
الصفحة ، بإسم ، أفقى ، رأسى ، صفحات ، ترحيل ، صفحة ،


 










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

الساعة الآن 12:15 صباحا