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

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


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





نقل بيانات من شيت لأخر بشرط

السلام عليكم ورحمة الله وبركاته معي ملف اريد نقل البيانات من شيت1 الى شيت 2 بحيث يتم النقل بترك صف فارغ وهو باللون الاص ..



29-06-2020 07:26 مساء
نصر الإيمان
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 446
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 4
قوة السمعة : 885
 offline 

السلام عليكم ورحمة الله وبركاته
معي ملف اريد نقل البيانات من شيت1 الى شيت 2 
بحيث يتم النقل بترك صف فارغ وهو باللون الاصفر بعد الصف الاول لكل طالب وهكذا كما بالملف...
من فضلك لا تقوم برفع الملف مضغوط ,طالما حجمه صغير تجنباً لعدم اهدار وقت الأساتذة
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
MjU5NTU4MQ505011
MzA5OTcwMQ202012


 
 
  نقل من شيت لأخر بشرط.xlsm   تحميل xlsm مرات التحميل :(4)
الحجم :(14.525) KB


29-06-2020 09:03 مساء
مشاهدة مشاركة منفردة [1]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif نقل بيانات من شيت لأخر بشرط
Try This File
changr the names Of sheets to Main and Salim

Option Explicit

Sub Transfer_data()
Dim S As Worksheet, M As Worksheet
Set M = Sheets("Main"): Set S = Sheets("Salim")
Dim t%, n%, Lr%, RG As Range
  
  With S.Range("A5")
    .CurrentRegion.Clear
     M.Range("A5").CurrentRegion.Copy
    .PasteSpecial
    .Cells(1, 1).Select
  End With
Lr = S.Cells(Rows.Count, "E").End(3).Row
n = 3: t = 2
Do While n * t < Lr

    If RG Is Nothing Then
        Set RG = S.Cells(n * t, 5).Resize(, 13)
    Else
        Set RG = Union(RG, S.Cells(n * t, 5).Resize(, 13))
    End If
    t = t + 1
Loop

 RG.EntireRow.Insert
 RG.Offset(-1).Interior.ColorIndex = 6
End Sub

 
 
 
  IMAN.xlsm   تحميل xlsm مرات التحميل :(10)
الحجم :(35.392) KB


29-06-2020 10:53 مساء
مشاهدة مشاركة منفردة [2]
نصر الإيمان
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 446
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 4
قوة السمعة : 885
 offline 
look/images/icons/i1.gif نقل بيانات من شيت لأخر بشرط
جزاك الله خيرا استاذ سليم




الكلمات الدلالية
بشرط ، لأخر ، بيانات ،


 










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

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