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

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

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




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





نسخ الاسماء

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



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

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







03-11-2018 11:20 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5247
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 15
يتابعهم : 0
يتابعونه : 344
قوة السمعة : 15102
الاعجاب : 5655
 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
المشاركات : 352
الجنس : ذكر
تاريخ الميلاد : 13-3-1990
يتابعهم : 3
يتابعونه : 3
قوة السمعة : 465
الاعجاب : 178
 offline 
look/images/icons/i1.gif نسخ الاسماء
سلمت يمينك استاذنا الفاضل كود فى قمة الروعة وهو ده المطلوب وجزاكم الله خير

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




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

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

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




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

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


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


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





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






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
برنامج EMA 2018- احدث نسخه - حسام خطاب الصقر
120 10437 aymanagaibi
النسخة الحديثة و العجيبة من Internet.Download.Manager.v6.30.10 stenour
16 798 محمد الدسوقى
برنامج EMA - نسخة 2018م - مجانى - حسام خطاب الصقر
185 22841 engm.yasser
برنامج EMA - نسخة 2018م - مجانى - حسام خطاب - 17-7 الصقر
60 3168 سامح ال
نسخة فوتوشوب محمولة Adobe Photoshop CS3 Yasser Elaraby
10 802 wadi55

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


 







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



الساعة الآن 05:38 مساء

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