logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
بكار للأبد لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة خطأ برمجي والماكرو لا يعمل run time error 438 اكسيل اسئله واجابات



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




موضوع مغلق


  • تمت الإجابة
03-03-2022 10:28 مساءً
معلومات الكاتب ▼
تاريخ الإنضمام : 08-06-2020
رقم العضوية : 19493
المشاركات : 40
الجنس :
تاريخ الميلاد : 11-11-1966
قوة السمعة : 51
الاعجاب : 0
توزيع التلاميذ على الفصول.xlsxالسلام عليكم
ارجو المساعدة في ترحيل التلاميذ من ورقة1 الى ورقة2 بشرط عند كتابة رقم الفصل يتم ترحيل الاسماء التى امامها رقم 1 في ورقة1 الى ورقة2 ولكم جزيل الشكر
 
 
  توزيع التلاميذ على الفصول.xlsx   تحميل xlsx مرات التحميل :(7)
الحجم :(17.367) KB





look/images/icons/i1.gif ترحيل بشرط يحدد المستخدم في خلية
  03-03-2022 10:47 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10522
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36735
الاعجاب : 177
وعليكم السلام أخي الكريم
جرب الكود التالي عله يفي بالغرض إن شاء الله
CODE
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

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



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




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

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



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

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






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









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

الساعة الآن 07:38 AM