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

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

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




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





عمل ترحيل

السلام عليكم ....... مرفق لحضرتكم شيت محتاج التعديل عليه بحيث فيه يتم الترحيل الصف a7 لحد e7 اما باقي الصفوف زاي a8 ..



06-01-2019 05:02 مساء
كريم نظيم
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 06-01-2019
رقم العضوية : 10846
المشاركات : 9
الجنس : ذكر
تاريخ الميلاد : 5-11-1991
يتابعهم : 10
يتابعونه : 0
قوة السمعة : 14
الاعجاب : 2
 offline 

السلام عليكم .......

مرفق لحضرتكم شيت محتاج التعديل  عليه بحيث فيه يتم الترحيل الصف a7 لحد e7 اما باقي الصفوف زاي a8  لحد e8 ..... ....  الرجاء التعديل عليه يتم الترحيل  من صفحه plant الي صفحه rportمن رول 17a لحد رول  18E  لان قد يكون العميل ممكن يشتري اكثر من صنف في فاتوره واحده  لو اشتري صنف واحد يتم ترحيل الصفe7  a7 b7 c 7 لو اشتري اكثر من صنف يتم ترحلمهم معاهم
 
 
 
  الترحيل.rar   تحميل rar مرات التحميل :(4)
الحجم :(43.477) KB







06-01-2019 06:36 مساء
مشاهدة مشاركة منفردة [1]
ابوالمجد
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 25-12-2018
رقم العضوية : 10538
المشاركات : 25
الجنس : ذكر
تاريخ الميلاد : 21-9-1974
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 78
الاعجاب : 34
 offline 
look/images/icons/i1.gif عمل ترحيل
استخدم الكود بالشكل ده
Sub TransferUsingArray()
    Dim Arr, Brr As Variant
    Dim lr As Long
    With Sheets("plant")
        lr = .Range("A" & Rows.Count).End(xlUp).Row
        Arr = Array(.Range("A1"), .Range("E4"), .Range("B4"), .Range("B3"))
        Brr = Range("A7:E" & lr)
    End With
    
     With Sheets("Report")
        lr = .Cells(Rows.Count, "A").End(xlUp).Row + 1
        .Range("A" & lr).Resize(UBound(Brr), 4).Value = Arr
        .Range("E" & lr).Resize(UBound(Brr), 3).Value = Brr
    End With
    Sheets("plant").Activate
Sheets("plant").Range("A1") = Range("A1") + 1
    MsgBox "Done...", 64
End Sub

أثارت هذه المشاركة إعجاب: كريم نظيم، Yasser Elaraby،




06-01-2019 07:02 مساء
مشاهدة مشاركة منفردة [2]
كريم نظيم
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 06-01-2019
رقم العضوية : 10846
المشاركات : 9
الجنس : ذكر
تاريخ الميلاد : 5-11-1991
يتابعهم : 10
يتابعونه : 0
قوة السمعة : 14
الاعجاب : 2
 offline 
look/images/icons/wub.gif عمل ترحيل
 
                           
                                   شكراً لكم من أعماق قلبي على عطائكم الدائم


تم تحرير المشاركة بواسطة :كريم نظيم
بتاريخ:06-01-2019 07:16 مساء






13-01-2019 09:59 صباحا
مشاهدة مشاركة منفردة [3]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 896
الجنس : ذكر
الدعوات : 11
يتابعهم : 2
يتابعونه : 510
قوة السمعة : 6574
الاعجاب : 1733
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif عمل ترحيل
المشاركة الأصلية كتبت بواسطة: ابوالمجد »

[/code]

جزاك الله خيرا استاذ ابو المجد وزادكم علما
تحياتي لك
 

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


توقيع :Yasser Elaraby
663013020




المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
دوره متكامله في الأكسس من خلال مشروع عملي شرح و تحليل قاعدة البيانات بكار للأبد
23 1018 السعيد الجزائري
كورس كامل مجاني لتعلم الـ VBA بالأمثلة العملية والتطبيقية (موضوع حصري) YasserKhalil
119 9330 sobhy30003
ملف تعلمت منه الكثير - مهارات عملية في إكسل بكار للأبد
54 1214 Osmanko
عرض ورقة العمل على الفورم Display Worksheet On UserForm YasserKhalil
54 3033 عبدالله الصاري
حصري : لعمل كود التفعيل على برامج الاكسل Spreadsheet Tools LockXLS 2018 6.1.7 بكار للأبد
12 813 ammar110

الكلمات الدلالية
ترحيل ،


 







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



الساعة الآن 03:56 مساء

أعلن هنا
أعلن هنا
أعلن هنا