خطأ في كود استدعاء الأسماء .. جلب الأسماء الجديدة وتخطي الأسماء الموجودة مسبقاً

[محمد الورفلي1]

 

السلام عليكم

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

 

خطاء في كود استدعاء.rar

 

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

أخي الفاضل محمد

ما الذي تحاول فعله من خلال الملف ؟

هل يتم الاستدعاء للأسماء فقط أم أن الدرجات يتم استدعائها لأني اطلعت على الملف ولم أجد درجات ؟؟

من المنطقي ان يتم الاستدعاء من صفحة البيانات وأن يكون هناك الدرجات مسجلة بالصفحة الرئيسية .. وإلا عند الاستدعاء لصف آخر ستظل الدرجات كما هي !!!

[محمد الورفلي1]

السلام عليكم

 

استاذ ياسر   في هذة الصفحة يتم استدعاء الاسماء فقط وثم يتم فيها تعبئة الدرجات يدوياً .... الفكرة هي عند التحاق طالب بعد الفصل الدراسي الثاني او " الترم الثاني " ويكون اسم الطالب مثلاً    اسلام   عند الاستدعاء لهذا الطالب ووضع درجاته ونضغط علي مفتاح الابجدة يتم وضعه في صف مثلاً رقم (5 ) الامر ممتاز الي هنا  (( المشكلة عند وصول طالب اخر وعند استدعاء.....  الكود يحضر لي الطالب الجديد و الطالب  اسلام مره اخرى   ويضعه في اخر الصف بدون نقل درجاته فتصبح درجات الطالب اسلام موضوعة لطالب آخر   اسف على الاطالة

 

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

وعليكم السلام أخي الكريم محمد الخازمي

إليك الكود التالي بدلاً من كود الاستدعاء الخاص بك

Sub GrabDataIfNotFound()
    Dim SH As Worksheet, I As Long, Cell As Range, Grd$
    Grd = Sheets("ورقة1").Range("C3").Value
    Set SH = Sheets("ورقة1")
    
    With Sheets("الاعدادات")
        For I = 2 To .Cells(Rows.Count, 2).End(3).Row Step 4
            If .Cells(I, 2).Value = Grd Then
                If SH.Columns(3).Find(.Cells(I, 2).Offset(, -1).Value, LookIn:=xlValues, lookat:=xlWhole) Is Nothing Then
                    SH.Cells(Rows.Count, 3).End(3).Offset(1).Value = .Cells(I, 2).Offset(, -1).Value
                End If
            End If
        Next I
    End With
End Sub

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

تقبل تحياتي

Grab Data If Not Found.rar

[محمد الورفلي1]

السلام عليكم

بارك الله فيك

 

شكراً علي المساعدة استاذ ياسر وشكراً على تعديل العنوان اصبحا مناسب جداً لطلبي

 

لو سمحت طلب آخر  ممكن شرح الكود حتى نتعلم الطريق

تم تعديل مايو 23, 2015 بواسطه محمد الخازمي