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

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


اعلان هنا
صقور الاكسيل


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





ترحيل بيانات من ورقة الى اخرى بنسق ورقة ثابتة

السلام عليكم ورحمة الله وبركاته المطلوب ترحيل البيانات من ورقة الاسماء الى استمارة جديدة تاخذ تصميمها من الورقة ((استما ..



26-01-2018 08:14 صباحا
محمد مصطفى محمود
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 30-12-2017
رقم العضوية : 2898
المشاركات : 3
الجنس : ذكر
تاريخ الميلاد : 8-2-2003
قوة السمعة : 19
الاعجاب : 0
 offline 

السلام عليكم ورحمة الله وبركاته
المطلوب ترحيل البيانات من ورقة الاسماء الى استمارة جديدة تاخذ تصميمها من  الورقة ((استمارة))

وتاخذ اسمها من الخلية E4 في ورقة الاسماء وترحيل بعض الخلايا كما في الكود الموجود حاليا

حاولت اغير لكن يوجداختلاف حيث الاستمارة السابقة تاخد لكل اسم صف واحد بينما هذه الاستمارة تاخذ ثلاث صفوف لكل اسم يرحل  كما واضح في الاستمارة 
وفقكم الله ...... ولكم وافر احترامي

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  ترحيل بيانات بورقة جديدة حسب الاستمارة.rar   تحميل rar مرات التحميل :(14)
الحجم :(54.214) KB





26-01-2018 02:55 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8649
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25478
الاعجاب : 177
 offline 
look/images/icons/i1.gif ترحيل بيانات من ورقة الى اخرى بنسق ورقة ثابتة
وعليكم السلام ورحمة الله وبركاته أخي الكريم محمد
جرب الكود ولا تنسانا بصالح دعائك
Sub Create_Sheet_By_Tamplate_Transfer_Using_Arrays_AutoFill_xlFillCopy()
    Dim ws          As Worksheet
    Dim sh          As Worksheet
    Dim a1          As Variant
    Dim a2          As Variant
    Dim m           As Long
    Dim i           As Long
    Dim x           As Long
    Dim r           As Long

    Application.ScreenUpdating = False
        Set ws = ThisWorkbook.Sheets("الاسماء")
        Set sh = ThisWorkbook.Sheets("استمارة")
        m = 7
    
        Application.DisplayAlerts = False
            On Error Resume Next
                ThisWorkbook.Sheets(ws.Range("E4").Value).Delete
            On Error GoTo 0
        Application.DisplayAlerts = True
    
        sh.Copy After:=Sheets(Worksheets.Count)
        Set sh = ThisWorkbook.Sheets(Worksheets.Count)
        sh.Name = ws.[E4].Value
    
        a1 = Array("F6", "E5", "K5", "K6")
        a2 = Array("E6", "E7", "F4", "E4")
    
        For i = LBound(a1) To UBound(a1)
            sh.Range(a1(i)).Value = ws.Range(a2(i)).Value
        Next i
    
        x = Application.WorksheetFunction.CountA(ws.Range("B2:B" & ws.Cells(Rows.Count, 2).End(xlUp).Row))
        sh.Range("A8:L10").AutoFill Destination:=sh.Range("A8:L" & x * 3 + m), Type:=xlFillCopy
        sh.Columns(2).NumberFormat = "@"
    
        For i = 9 To x * 3 + m - 1 Step 3
            r = r + 1
            sh.Cells(i, 1).Value = r
            sh.Cells(i, 2).Value = CStr(ws.Cells(r + 1, 1).Value)
            sh.Cells(i, 3).Value = ws.Cells(r + 1, 2).Value
        Next i
    
        Application.Goto sh.Range("A1"), True
    Application.ScreenUpdating = True
    
    MsgBox "Done...", 64, "YasserKhalil ExcelLover"
End Sub




26-01-2018 03:00 مساء
مشاهدة مشاركة منفردة [2]
ناصر سعيد1
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
الجنس : ذكر
تاريخ الميلاد : 2-2-1990
قوة السمعة : 627
الاعجاب : 3
 offline 
look/images/icons/i1.gif ترحيل بيانات من ورقة الى اخرى بنسق ورقة ثابتة
اللهمّ اغفرلوالداي و والد زوجتك وارحمه وعافه واعف عنه وأكرِم نُزله وأوسع مُدخلَهُ واغسلْهُ بالماء والثلج والبَرد ونقِّه من الخطايا كما ينقّى الثوب الأبيض من الدنس




26-01-2018 03:03 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8649
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25478
الاعجاب : 177
 offline 
look/images/icons/i1.gif ترحيل بيانات من ورقة الى اخرى بنسق ورقة ثابتة
اللهم آمين اللهم آمين
وجزاك الله خيراً أخي العزيز ناصر سعيد ، ومشكور على دعواتك الطيبة المباركة




26-01-2018 04:30 مساء
مشاهدة مشاركة منفردة [4]
محمد مصطفى محمود
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 30-12-2017
رقم العضوية : 2898
المشاركات : 3
الجنس : ذكر
تاريخ الميلاد : 8-2-2003
قوة السمعة : 19
الاعجاب : 0
 offline 
look/images/icons/i1.gif ترحيل بيانات من ورقة الى اخرى بنسق ورقة ثابتة
السلام عليكم ورحمة الله وبركاته
ما شاء الله استاذ ياسر جزاكم الله خيرا
شكرا لجهودكم وجعلها الله في ميزان حسناتكم
ونسال الله سبحانه ان يغفر لامواتكم  ويرحمهم برحمته الواسعة




26-01-2018 10:25 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8649
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25478
الاعجاب : 177
 offline 
look/images/icons/i1.gif ترحيل بيانات من ورقة الى اخرى بنسق ورقة ثابتة
وعليكم السلام أخي الكريم محمد
وجزيت خيراً بمثل ما دعوت لي والحمد لله أن تم المطلوب على خير

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






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
ترتيب البيانات في مصفوفة أحادية Sort Data In 1D Array Using QuickSort Procedure YasserKhalil
5 940 YasserKhalil
استدعاء بيانات الطلاب لفصل معين لمادة معينة (درس للمستوى المتقدم) YasserKhalil
19 2395 YasserKhalil
تعديل على كود الترحيل واستدعاء بيانات من شيت لاخر وعمل قائمة منسدله ابو طيبه
14 507 ابو طيبه
جلب تقرير بيانات الطلاب الذين سددوا المصروفات الدراسية أبو سجده
6 313 YasserKhalil
تعديل وتطابق اظهار البيانات بالليست بوكس كورقة الإكسيل المبتدأ
7 133 المبتدأ

الكلمات الدلالية
ترحيل ، بيانات ، ورقة ، اخرى ، بنسق ، ورقة ، ثابتة ،


 







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

الساعة الآن 01:09 صباحا

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