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

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


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



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





عمل ترحيل

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



06-01-2019 05:02 مساء
كريم نظيم
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 06-01-2019
رقم العضوية : 10846
المشاركات : 66
الجنس : ذكر
تاريخ الميلاد : 5-11-1991
يتابعهم : 11
يتابعونه : 0
قوة السمعة : 93
الاعجاب : 4
 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]
ابوالمجد
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 25-12-2018
رقم العضوية : 10538
المشاركات : 31
الجنس : ذكر
تاريخ الميلاد : 21-9-1974
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 112
الاعجاب : 1
 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





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



توقيع :كريم نظيم

سبحــآآن آللـہ ۆ بحمده سبحــآآن آللـہ آلعظيّـم

سُبْحَانَ اللَّهِ وَبِحَمْدِهِ عَدَدَ خَلْقِهِ وَرِضَا نَفْسِهِ وَزِنَةَ عَرْشِهِ وَمِدَادَ كَلِمَاتِهِ




13-01-2019 09:59 صباحا
مشاهدة مشاركة منفردة [3]
Yasser Elaraby
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1077
الجنس : ذكر
الدعوات : 13
مشاركات مكتبة الميديا: 25
يتابعهم : 2
يتابعونه : 578
قوة السمعة : 7619
الاعجاب : 161
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif عمل ترحيل
المشاركة الأصلية كتبت بواسطة:ابوالمجد
[/code]

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



توقيع :Yasser Elaraby
663013020




المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
عملاق تصفح الإنترنت مع حجب الإعلانات المزعجة Brave Browser YasserKhalil
11 99 عبدالجيد
عمل فورم من خلال الفرام لاستدعاء الصور والتحكم فى مقاساتها الجزء 13 مجدى يونس
7 42 مجدى يونس
شرح كيفية عمل فورم بالترتيب بالمسلسل او الاسم الجزء 12 مجدى يونس
3 70 مجدى يونس
طبيعة عمل دالة Offset Eslam Abdullah
5 176 محمد الدسوقى
كيفية عمل فورم من خلال الفرام شركة مجدى يونس لبيع السلع المستوردة اضافة الوقت الجزء 10 مجدى يونس
2 77 مجدى يونس

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


 







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



الساعة الآن 01:37 مساء

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