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

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


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





ترحيل بشرط يحدد المستخدم في خلية

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


موضوع مغلق


03-03-2022 10:28 مساء
صقر
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 08-06-2020
رقم العضوية : 19493
المشاركات : 39
الجنس : ذكر
تاريخ الميلاد : 11-11-1966
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 51
 offline 

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريبالسلام عليكم
ارجو المساعدة في ترحيل التلاميذ من ورقة1 الى ورقة2 بشرط عند كتابة رقم الفصل يتم ترحيل الاسماء التى امامها رقم 1 في ورقة1 الى ورقة2 ولكم جزيل الشكر
 
 
  توزيع التلاميذ على الفصول.xlsx   تحميل xlsx مرات التحميل :(8)
الحجم :(17.367) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
وعليكم السلام أخي الكريم
جرب الكود التالي عله يفي بالغرض إن شاء الله
Sub Test()
    Dim a, v, ws As Worksheet, sh As Worksheet, lr As Long, i As Long, k As Long
    Application.ScreenUpdating = False
        Set ws = ThisWorkbook.Worksheets(1)
        Set sh = ThisWorkbook.Worksheets(2)
        v = sh.Range("E1").Value
        If v = Empty Or Not IsNumeric(v) Then MsgBox "Enter Proper Grade First", vbExclamation: Exit Sub
        lr = ws.Cells(Rows.Count, "B").End(xlUp).Row
        a = ws.Range("B4:C" & lr).Value
        ReDim b(1 To UBound(a), 1 To 2)
        For i = LBound(a) To UBound(a)
            If a(i, 2) = v Then
                k = k + 1
                b(k, 1) = k
                b(k, 2) = a(i, 1)
            End If
        Next i
        If k > 0 Then
            sh.Range("A7:B" & Rows.Count).ClearContents
            sh.Range("A7").Resize(k, UBound(b, 2)).Value = b
        End If
    Application.ScreenUpdating = True
End Sub
عرض الإجابة




03-03-2022 10:47 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10444
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36522
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif ترحيل بشرط يحدد المستخدم في خلية
وعليكم السلام أخي الكريم
جرب الكود التالي عله يفي بالغرض إن شاء الله
Sub Test()
    Dim a, v, ws As Worksheet, sh As Worksheet, lr As Long, i As Long, k As Long
    Application.ScreenUpdating = False
        Set ws = ThisWorkbook.Worksheets(1)
        Set sh = ThisWorkbook.Worksheets(2)
        v = sh.Range("E1").Value
        If v = Empty Or Not IsNumeric(v) Then MsgBox "Enter Proper Grade First", vbExclamation: Exit Sub
        lr = ws.Cells(Rows.Count, "B").End(xlUp).Row
        a = ws.Range("B4:C" & lr).Value
        ReDim b(1 To UBound(a), 1 To 2)
        For i = LBound(a) To UBound(a)
            If a(i, 2) = v Then
                k = k + 1
                b(k, 1) = k
                b(k, 2) = a(i, 1)
            End If
        Next i
        If k > 0 Then
            sh.Range("A7:B" & Rows.Count).ClearContents
            sh.Range("A7").Resize(k, UBound(b, 2)).Value = b
        End If
    Application.ScreenUpdating = True
End Sub

03-03-2022 10:58 مساء
مشاهدة مشاركة منفردة [2]
صقر
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 08-06-2020
رقم العضوية : 19493
المشاركات : 39
الجنس : ذكر
تاريخ الميلاد : 11-11-1966
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 51
 offline 
look/images/icons/i1.gif ترحيل بشرط يحدد المستخدم في خلية
الاخ ابو البراء تحية حب وتقدير
يبدو اننى لم اوضح المطلوب
المطلوب هو ترحيل جميع الاسماء المكتوب امامها رقم الفصل يعنى كل اسم امامه في الخلية c في ورقة1 مكتوب امامه رقم 1 يتم ترحيله وهكذا اذا كتبت 2 في الخلية E1 يتم ترحيل كل الاسماء التى امامها الرقم 2 وشاكر لكم وارجو من الله ان يجزيكم خير الجزاء

03-03-2022 11:32 مساء
مشاهدة مشاركة منفردة [3]
صقر
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 08-06-2020
رقم العضوية : 19493
المشاركات : 39
الجنس : ذكر
تاريخ الميلاد : 11-11-1966
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 51
 offline 
look/images/icons/i1.gif ترحيل بشرط يحدد المستخدم في خلية
اعتذر شديد الاعتذار الكود يعمل جيداً والعيب عندى انا مكنتش مركز اعتذر للجميع والفشكر استاذ ياسر وارجو المعذرة لعدم تركيزى بس اعمل ايه قلة نوم ارجو ات تسامحونى على الازعاج وجعله الله في ميزان العزيز ابو الراء

04-03-2022 05:01 صباحا
مشاهدة مشاركة منفردة [4]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10444
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36522
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif ترحيل بشرط يحدد المستخدم في خلية
بارك الله فيك أخي الكريم والحمد لله أن تم المطلوب على خير
والحمد لله الذي بنعمته تتم الصالحات



الكلمات الدلالية
ترحيل ، بشرط ، يحدد ، المستخدم ، خلية ،


 










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

الساعة الآن 05:37 صباحا