المساعدة فى انشاء برنامج سجل مدرسي

[محمد قاسم 12]

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

خالص تحياتى وتقديرى .. 

فى الملف المرفق ارجوا المساعدة فى استدعاء البيانات من شيت data

الى شيت سجل قـــيد بيانـــات .. 

وذلك عن طريق الكود لكى لا يثقل عمل الملف ..

بارك الله فيكم اخوتى واساتذتى الكرام

للرفع 2.xlsm

[أ / محمد صالح]

يمكنك استعمال هذا الإجراء

وربطه بشكل أو زر في شيت سجل قيد بيانات

Sub mas_getdata()
Dim sh As Worksheet, n As Long, lr As Long, lr2 As Long
Set sh = Sheets("data")
lr = sh.Cells(Rows.Count, 2).End(xlUp).Row
Application.ScreenUpdating = 0
Range("b17:s218").ClearContents
For n = 9 To lr
If sh.Range("f" & n) = [e2] And sh.Range("g" & n) = [e3] Then
lr2 = Cells(Rows.Count, 2).End(xlUp).Row + 1
lr2 = IIf(lr2 < 17, 17, lr2)
For c = 2 To 19
Cells(lr2, c) = sh.Cells(n, Cells(1, c))
Next c
End If
Next n
Application.ScreenUpdating = 1
MsgBox "Done by mr-mas.com"
End Sub

ملحوظة: تم استخدام الأرقام في الصف الأول في الكود فلا يجب مسحها

يمكن إخفاء الصف

بالتوفيق