تصحيح كود استدعاء بيانات

[ابو عبدالرحمن البغدادي]

السلام عليكم

ارجو التفضل بحل الخلل الموجود وهو :

عند كتابة الكود في شيت البحث المفروض تأتي البيانات الخاصة بالمدرسة الموجودة في شيت البيانات الرئيسية عند كتابة رقم االكود ولكن البيانات تأتي ناقصة

تصحيح الكود.rar

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

أخي الكريم أبو عبد الرحمن

إليك الكود التالي عله يفي بالغرض

...

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim LR1 As Long, LR3 As Long, T As Long
    If Target.Cells.Count <> 1 Then Exit Sub
    
    If Target.Address = "$A$2" Then
        With Application
            .ScreenUpdating = False: .Calculation = xlManual: .EnableEvents = False
        End With
        
            Sheets(3).Range("A5:F1000").ClearContents
            LR1 = Sheets(1).Range("A" & Rows.Count).End(xlUp).Row
            LR3 = Sheets(3).Range("B" & Rows.Count).End(xlUp).Row + 1
            
            For T = 2 To LR1
                If Sheets(1).Range("U" & T) = Sheets(3).Range("A2").Value Then
                    Sheets(3).Range("A" & LR3) = LR3 - 4
                    Sheets(3).Range("B" & LR3) = Sheets(1).Range("G" & T).Value
                    Sheets(3).Range("C" & LR3) = Sheets(1).Range("I" & T).Value
                    Sheets(3).Range("D" & LR3 & ":E" & LR3) = Sheets(1).Range("M" & T & ":N" & T).Value
                    Sheets(3).Range("F" & LR3) = Sheets(1).Range("AR" & T).Value
                    LR3 = LR3 + 1
                End If
            Next T
            
        With Application
            .EnableEvents = True: .Calculation = xlAutomatic: .ScreenUpdating = True
        End With
    End If
End Sub

 

[ابو عبدالرحمن البغدادي]

السلام عليكم ورحمة الله وبركاته

- اعتذر لما اكتب الاسم ورقم الباسورد لغرض الدخول الى الملف ؟؟؟ ولكن كيف دخلت الى    الملف شغل محترف

  الاسم : عبدالملك

 الرقم : 112233

- تم نسخ الكود ولصقته ولكن لم احصل على النتيجة ، ماذا اعمل

- ملاحظة : عندي كود يعمل وهو : عند كتابة اسم المدرسة يأتي رقم الكود تلقائي في شيت البيانات الرئيسية استناداً على البيانات الموجودة في شيت الاكواد - ارجو ابقاء الكود القديم لانه يعمل بشكل ممتاز

 

تم تعديل سبتمبر 16, 2015 بواسطه ابو عبدالرحمن البغدادي

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

الكود الذي أرفقته يعمل بشكل جيد معي

قم باستبدال الكود الموجود بالكامل بشكل مبدئي للتأكد من عمل الكود .. ثم ناقش الكود الآخر .. وأنا صراحة ال أحبذ العمل في حدث تغيير ورقة العمل وخصوصاً أنك تقوم بأكثر من مهمة في نفس الوقت

عموماً حاول مرة أخرى وإن شاء الله يشتغل معاك

بالنسبة لدخول الملف قمت فقط بإزالة تمكين الماكرو ففتح معي بشكل طبيعي ..الموضوع مش محتاج محترف عشان يدخل الملف ولما دخلت الملف أزلت الحدث في فتح المصنف وبس خلاص ..

يرجى عند رفع ملف إزالة كلمات السر تماماً .. راجع التوجيهات في صدر المنتدى في الموضوعات المثبتة

[ابو عبدالرحمن البغدادي]

السلام عليكم

جزيت خيرا - الكود ممتاز وتم العمل على احسن وجه

 

تبقى شغله استاذي - بالنسبة الى شاشة الدخول ورقم السري كيف اجعله لا يقدر احد بالدخول - يعني اريد حماية والحفاظ على البيانات

 

تم تعديل سبتمبر 16, 2015 بواسطه ابو عبدالرحمن البغدادي

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

موضوع الحماية موضوع شائك خصوصاً أن حماية الإكسيل ضعيفة ..إلا إذا قمت بتحويل ملفك إلى ملف تنفيذي

قم بالبحث في المنتدى عن هذا الأمر ستجد أكثر من موضوع يتناول الامر ..

غير هذه الطريقة لا أعرف طريقة أخرى مضمونة

فكل السبل تؤدي إلى الكسر ..