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

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


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



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





نسخ الاسماء

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



03-11-2018 11:07 صباحا
مالك ماريه
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-12-2017
رقم العضوية : 2523
المشاركات : 491
الجنس : ذكر
تاريخ الميلاد : 13-3-1990
يتابعهم : 3
يتابعونه : 5
قوة السمعة : 701
الاعجاب : 29
 offline 

السلام عليكم ورحمة الله وبركاته ارجو المساعده في هذا الشيت ارجو عمل كود يقوم بنسخ الأسماء من شيت أسماء الطلاب الى شيت القوائم ويقوم بنسخ الأسماء تحت بعضها من الصف الأول الى الصف السادس مع ترك صف فارغ بين كل صف دراسى وجزاكم الله خير وهذا هو نموذج للحل لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  نسخ الاسماء.rar   تحميل rar مرات التحميل :(6)
الحجم :(44.038) KB








03-11-2018 11:20 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6174
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 383
قوة السمعة : 17040
الاعجاب : 140
 offline 
look/images/icons/i1.gif نسخ الاسماء
وعليكم السلام
جرب الكود التالي عله يفي بالغرض إن شاء الله
Sub Test()
    Dim a, ws As Worksheet, sh As Worksheet, c As Integer, lr As Long, m As Long
    
    Set ws = Worksheets(3): Set sh = Worksheets(1)
    m = 17: sh.Range("C16:C10000").ClearContents
    
    For c = 2 To 17 Step 3
        lr = ws.Cells(Rows.Count, c).End(xlUp).Row
        a = ws.Cells(6, c).Resize(lr - 5).Value
        
        sh.Range("C" & m).Resize(UBound(a, 1), UBound(a, 2)).Value = a
        m = sh.Cells(Rows.Count, "C").End(xlUp)(3).Row
    Next c
End Sub






03-11-2018 03:46 مساء
مشاهدة مشاركة منفردة [2]
مالك ماريه
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-12-2017
رقم العضوية : 2523
المشاركات : 491
الجنس : ذكر
تاريخ الميلاد : 13-3-1990
يتابعهم : 3
يتابعونه : 5
قوة السمعة : 701
الاعجاب : 29
 offline 
look/images/icons/i1.gif نسخ الاسماء
سلمت يمينك استاذنا الفاضل كود فى قمة الروعة وهو ده المطلوب وجزاكم الله خير






03-11-2018 03:51 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6174
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 383
قوة السمعة : 17040
الاعجاب : 140
 offline 
look/images/icons/i1.gif نسخ الاسماء
وجزيت خيراً أخي الكريم مالك والحمد لله أن تم المطلوب على خير

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






03-11-2018 04:16 مساء
مشاهدة مشاركة منفردة [4]
ali mohamed ali
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 909
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 46
قوة السمعة : 4110
الاعجاب : 58
 Online 
look/images/icons/i1.gif نسخ الاسماء
أحسنت استاذ ياسر كود رائع جعله الله فى ميزان حسناتك



توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله



03-11-2018 04:32 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6174
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 383
قوة السمعة : 17040
الاعجاب : 140
 offline 
look/images/icons/i1.gif نسخ الاسماء
أحسن الله إليك أخي الحبيب علي ومشكور على تشجيعك الدائم






03-11-2018 09:41 مساء
مشاهدة مشاركة منفردة [6]
مالك ماريه
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-12-2017
رقم العضوية : 2523
المشاركات : 491
الجنس : ذكر
تاريخ الميلاد : 13-3-1990
يتابعهم : 3
يتابعونه : 5
قوة السمعة : 701
الاعجاب : 29
 offline 
look/images/icons/i1.gif نسخ الاسماء
بارك الله فيك استاذى الفاضل اسلوب راقى فى الحوار المتبادل واسعدكم الله فى الدارين  وجزاكم الله عنا خير الجزاء






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
كود لنسخ نطاق محدد من الاكسيل الى الورد بنفس التنسيق - حسام خطاب الصقر
84 1953 منصور القباطي
النسخة الحديثة و العجيبة من Internet.Download.Manager.v6.30.10 stenour
18 1252 fouadkbm
برنامج EMA - نسخة 2018م - مجانى - حسام خطاب الصقر
229 26779 abo arwa
نسخ البيانات من الليست بوكس Kamel meraghni
9 1161 YasserKhalil
كيفية نقل أو نسخ ورقة الى ملف اخر - حسام خطاب الصقر
15 756 المبتدأ

الكلمات الدلالية
الاسماء ،


 







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



الساعة الآن 10:35 مساء

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