المساعدة في اضافة كود ترحيل للدرجات

[salamsh]

السلام عليكم

الاساتذة الافاضل في منتدى اوفيسنا

تحية طيبة.

الرجاء المساعدة في كود لترحيل الدرجات من اليوزرفورم الى الصفحة المخصصة مع وضع امكانية البحث  بخاصيتي الاسم والرقم

 مع فائق الامتنان والتقدير للجميع درجات.rar

[ياسر خليل أبو البراء]

إليك الطلب الاول وهو ترحيل البيانات من الفورم إلى ورقة2

قمت بتغيير مسميات مربعات النصوص ليناسب عمل الكود ... توفيراً للوقت

Private Sub UserForm_Initialize()
    Dim Cell As Range
    For Each Cell In ورقة2.Range("C6:J6")
        ComboBox1.AddItem Cell.Value
    Next Cell
End Sub

Private Sub CommandButton1_Click()
    Dim I As Long
    Dim Found

    If ComboBox1.Value = "" Then MsgBox "لابد من اختيار الفصل الدراسي", 64: Exit Sub
    Found = Application.Match(ComboBox1.Value, ورقة2.Rows(6), 0)
    If IsNumeric(Found) Then
        With ورقة2
            .Cells(3, "D") = Val(TextBox1)
            .Cells(3, "F") = Val(TextBox2)
            .Cells(3, "I") = Val(TextBox3)
            .Cells(3, "K") = Val(TextBox4)
            For I = 7 To 18
                .Cells(I, Found) = Val(Me.Controls("TextBox" & I - 2))
            Next I
            .Cells(20, Found) = TextBox17
        End With
    End If
End Sub

 

Marks.rar

[salamsh]

بارك الله فيك استاذ ابو البراء لكن الترحيل هنا يتم الى ورقة 2  والمطلوب الى ورقة4

فائق التقدير والاحترام وشكرا  لمساعدتك اخي الكريم

[ياسر خليل أبو البراء]

وضح شكل النتائج المتوقعة من عملية الترحيل ..

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

عموماً ورقة4 بهذا الشكل مبهمة وغير واضحة على الإطلاق

يرجى تحديد كل عملية ترحيل إلى أي خلية؟

[salamsh]

الاستاذ الفاضل شكري وامتناني لك ولكل من حاول المساعدة

الترحيل كالاتي .. الرقم والاسم  يكون بدلالة البحث علما ان المسافة بين كل اسم واخر هي 6  صفوف

             م1 باتجاه م 1   &   م2  باتجاه  م2  وهكذا للبقية  وهذا رسم لتوضيح الطلب

مع  الود

[ياسر خليل أبو البراء]

ما زال هناك لبس ..هل اسم الطالب مسجل بالفعل ويتم من خلال الفورم تعبئة الدرجات والبيانات

أم أن البيانات كلها يتم ترحيلها بما فيها الاسم ؟؟

وماذا عن الأسماء الموجودة وليس لها درجات ؟؟

أرجو أن توضح آلية الملف بشكل جيد ..لأنه لا يفترض بنا أن نعرف تفاصيل ملفك أكثر منك

[salamsh]

كل الاسماء  موجودة اساسا وليس لها درجات مع التقدير وشكرا لسعة صدرك وصبرك

[salamsh]

ارجو المساعدة  مع التقدير للجميع