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

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




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





نسخ الاسماء

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



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

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







03-11-2018 11:20 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4860
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 324
قوة السمعة : 13970
الاعجاب : 5194
 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

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




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

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




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

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

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




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

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


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


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





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






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
نسخ البيانات الى صفحات مختلفة khaled alborene
17 123 khaled alborene
لا كراك لا سيريال نسخة مفعلة وكاملة Internet.Download.Manager.v6.30.9 Full stenour
11 595 jjebril
تعديل الكود_ليصبح نسخ البيانات فى الشيتات بدون فراغات Galal ELGammal
6 52 Galal ELGammal
برنامج EMA - نسخة 2018م - مجانى - حسام خطاب - 17-7 الصقر
38 1958 Alharith ABD Alrahman
برنامج أدوبي إليستريتور نسخة محمولة Yasser Elaraby
3 511 يوسف الجويلى

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


 







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



الساعة الآن 06:39 مساء

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