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



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







30-04-2020 03:43 مساءً

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


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


وتم عمل نتائج الترحيل المطلوبة بكل صفحة كمثال
Transportatio .xlsm
arOUI_1

9LbrY_2
Transportatio .xlsm

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





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

أخيراً إليك الكود عسى أن يكون المطلوب إن شاء الله
CODE
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

أثارت هذه المشاركة إعجاب: هاوي برمجه، هانى على، ali mohamed ali، ابونور، مالك ماريه،



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

Zsqqv_1
 
 





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




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




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

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

أثارت هذه المشاركة إعجاب: هانى على،



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

أثارت هذه المشاركة إعجاب: YasserKhalil،



look/images/icons/i1.gif كود ترحيل من صفحة الى عدة صفحات من رأسى الى أفقى بإسم الصفحة
  01-05-2020 10:33 مساءً   [7]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-09-2017
رقم العضوية : 576
المشاركات : 102
الدولة : مصر
الجنس :
تاريخ الميلاد : 14-11-1974
قوة السمعة : 649
الاعجاب : 0

وعليكم السلام ورحمة الله وبركاته
تم التعديل على كود الأستاذ ياسر خليل وان شاء الله يكون المطلوب

Transportatio2 .xlsm
 
 
  Transportatio2 .xlsm   تحميل xlsm مرات التحميل :(17)
الحجم :(78.414) KB


أثارت هذه المشاركة إعجاب: هانى على، ali mohamed ali، ابراهيم الحداد، YasserKhalil، هاوي برمجه، مالك ماريه،



look/images/icons/i1.gif كود ترحيل من صفحة الى عدة صفحات من رأسى الى أفقى بإسم الصفحة
  01-05-2020 10:58 مساءً   [8]
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2018
رقم العضوية : 4794
المشاركات : 476
الجنس :
تاريخ الميلاد : 1-4-1980
قوة السمعة : 882
الاعجاب : 8
أحسنت استاذى الكريم أبو نور وهو ده بالفعل المطلوب انه حقاً تعديل ممتاز بارك الله فيك وزادك الله من فضله ووسع الله فى رزقك وأكرمك الله فى أولادك وفرج الله عنك كربات يوم القيامة كما فرجت عنى كربات الدنيا والفضل بالطبع لكم اساتذتى الكرام بعد ربنا فى حل مشكلتى
بارك الله فيك استاذى العزيز ياسر خليل دائما نجدك بجانبنا فى حل مشكلاتنا وأشكرك كثيراً استاذى الكريم أبو نور انك لم تخذلنى جعل الله هذا العمل ان شاء الله فى ميزان حسناتك وتقبل الله جميع أعمالكم

أثارت هذه المشاركة إعجاب: ali mohamed ali، YasserKhalil، هاوي برمجه، ابونور،



اضافة رد جديد اضافة موضوع جديد



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
طلب تعديل في ترحيل بيانات بشروط خاصة في الترحيل بكار للأبد
0 2 بكار للأبد
محتاج كودترحيل saad mohamed
0 64 saad mohamed
تموذج ترحيل وبحث وتعديل على البيانات مالك ماريه
147 12016 sharawee707
ترحيل بيانات من خلايا مختلفه من ملفات الى ملف واحد مع كتابة الملاحظات التى تخص ترحيل البيانات Lotfy
7 234 YasserKhalil
فورم ترحيل ايات القران الكريم من التكست بوكس الى خلية الاكسل باى عدد من الكلمات مجدى يونس
2 192 مجدى يونس

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








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

الساعة الآن 03:56 PM.