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

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


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


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

Preview




ترحيل بيانات

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



09-09-2017 01:41 مساء
abuhamsa
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 148
المشاركات : 5
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 7-3-1978
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 18
الاعجاب : 0
 offline 
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريبالسلام عليكم اخى الكريم عندى مشكلة فى كود الترحيل من شيت آخر العام الى شيت نتيجة أخر العام  عند الترحيل يغير راس الجدول  فكنت عاوز الترحيل يكون من اول الصف 11  ونفس الامر عند الترحيل من شيت نصف العام الى نتيجة نصف العام   ولكم جزيل الشكر
 
 
 
  كنترول 2018 - 22222.rar   تحميل rar مرات التحميل :(7)
الحجم :(1320.558) KB





09-09-2017 01:50 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8997
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26666
الاعجاب : 672
 offline 
look/images/icons/i1.gif ترحيل بيانات
وعليكم السلام أخي الكريم
أهلاً بك في المنتدى ونورت بين إخوانك

يرجى إرفاق الملف بعد ضغطه .. مع وضع بعض النتائج المتوقعة ليسهل فهم الموضوع وتقديم المساعدة




09-09-2017 02:40 مساء
مشاهدة مشاركة منفردة [2]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8997
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26666
الاعجاب : 672
 offline 
look/images/icons/i1.gif ترحيل بيانات
أخي الكريم
إذا قمت بطرح موضوع فحاول أن توضح كافة التفاصيل خصوصاً إذا كان الملف يحتوي على أوراق عمل كثيرة ، لذا حدد هدفك وليكن الموضوع مركز على نقطة واحدة فقط وليس أكثر من ذلك
حدد ورقة العمل المطلوب الترحيل منها والورقة المطلوب الترحيل إليها وشرط الترحيل وحاول وضع بعض النتائج المتوقعة
ويرجى مستقبلاً إذا قمت بطرح موضوع وإرفاق ملف أن يكون الملف محتوياً على أوراق العمل المطلوب العمل عليها فقط لتتضح الصورة بشكل أفضل .. 
تقبل تحياتي




09-09-2017 03:06 مساء
مشاهدة مشاركة منفردة [3]
abuhamsa
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 148
المشاركات : 5
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 7-3-1978
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 18
الاعجاب : 0
 offline 
look/images/icons/i1.gif ترحيل بيانات
اتمنى ان يفى هذا الملف بالغرض  لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب والترحيل يكون من شيت (شيت نصف العام) الى شيت( نتيجة نصف العام)  وايضا بنفس الطريقة من شيت (شيت اخر العام) الى شيت (نتيجة اخر العام)
 
 
  ترحيل بيانات.rar   تحميل rar مرات التحميل :(15)
الحجم :(183.755) KB





09-09-2017 03:59 مساء
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8997
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26666
الاعجاب : 672
 offline 
look/images/icons/i1.gif ترحيل بيانات
تفضل أخي الكريم الكود التالي لنصف العام
Sub Transfer_NonAdjacent_Columns_Using_Arrays()
    Dim ws          As Worksheet
    Dim sh          As Worksheet
    Dim arr         As Variant
    Dim temp        As Variant
    Dim i           As Long
    Dim j           As Long
    Dim k           As Long

    Set ws = Sheets("شيت نصف العام")
    Set sh = Sheets("نتيجة نصف العام")

    Application.ScreenUpdating = False
        arr = ws.Range("A11:AU" & ws.Range("A" & Rows.Count).End(xlUp).Row).Value
        ReDim temp(1 To UBound(arr, 1), 1 To 13)
        
        For i = 1 To UBound(arr, 1)
            k = k + 1
            For j = 1 To UBound(temp, 2)
                temp(k, j) = arr(i, Choose(j, 1, 3, 2, 7, 11, 15, 21, 27, 31, 33, 36, 40, 46))
            Next j
        Next i
    
        If k > 0 Then sh.Range("A11").Resize(k, UBound(temp, 2)).Value = temp
    Application.ScreenUpdating = True
End Sub


ادرس الكود وحاول التعديل عليه لآخر العام بنفسك ...




09-09-2017 04:08 مساء
مشاهدة مشاركة منفردة [5]
abuhamsa
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 148
المشاركات : 5
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 7-3-1978
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 18
الاعجاب : 0
 offline 
look/images/icons/wub.gif ترحيل بيانات
بارك الله فيك استاذ ياسر وزادك من علمه وفضله




09-09-2017 04:39 مساء
مشاهدة مشاركة منفردة [6]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8997
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26666
الاعجاب : 672
 offline 
look/images/icons/i1.gif ترحيل بيانات
بارك الله فيك أخي الكريم والحمد لله الذي بنعمته تتم الصالحات






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
كود ترحيل واستدعاء من صفحات متعددة abouelhassan
1 65 abouelhassan
ترحيل فواتير من ورقة عمل لأخرى (كود للمبتدئين) Transfer Bill Data To Another Sheet YasserKhalil
9 649 YasserKhalil
ترحيل الفواتير حسب اسم الشهر ali mohamed ali
19 1688 ali mohamed ali
فورم ترحيل بيانات واستدعاء وحفظ صور مجدى يونس
8 1164 مجدى يونس
كود ترحيل بقائمتين منسدلتين abouelhassan
8 141 abouelhassan

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


 








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

الساعة الآن 08:07 مساء

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