بحث حسب الطالب وحسب الصف

[saffar]

السلام عليكم ايها الاخوه الاعزاء 

في المرفق شيت فيها البيانات والشيت الثاني للبحث بالطالب بحيث بجلب جميع بيانات الطالب من شيت البيانات (فيها كود لكن غير صحيح)

والشيت الثاني البحث بالصف واحد اعمده التطبيقات مرتبه بالطلبة في الصف المواد في الاعلى ودرجة كل طالب في التطبيق

Excel.xlsm

[سليم حاصبيا]

لا أعلم اذا كان هذا المطلوب (لرؤية كافة الصفوف امسح الخلية D2 )

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address(0, 0) = "D2" Then
using_adV_filter
End If
Application.EnableEvents = True

End Sub
'++++++++++++++++++++++++++++++++
Sub using_adV_filter()
Dim D As Worksheet
Dim S As Worksheet
Dim adv_rg As Range
Dim Cret As Range
Set D = Sheets("Data")
Set S = Sheets("Search class")
 S.Range("A6").CurrentRegion.Clear
Set adv_rg = D.Range("A5").CurrentRegion
Set Cret = S.Range("D1:D2")
adv_rg.AdvancedFilter 2, Cret, S.Range("A6")

End Sub

saffar.xlsm

[saffar]

شكرا استاذ سليم 

ارفقت الملف فيه مثال هل بالامكان البحث بكثر من معيار 

الشيت الثاني موضح في المثال الرفق

saffar.xlsm

[خيماوي كووول]

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

ابحث بأي شي تبغيه .. في الخلية C2 .. اكتب .. الاسم .. رقم الطالب الصف المادة العنوان ..

saffar1.xlsm

[saffar]

شكرا لك استاذ على الاجابة ارفقت سابقا مثال في شيتين للمطلوب 

اذا بالامكان اضافة رقم الطالب في البحث 

والشيت الثاني بان يبحث ويجلب البيانات بالصف بحيث تكون المواد في الاعلى كما في المرفق الاخير

ان شاء الله يكون الشرح واضح