بحث

[waledms]

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

المرفق سجل به أسماء طلاب المدرسة وبه تكست بوكس يبحث عن اسم طالب ..... المطلوب أن يتم البحث عن طريق كتابه رقم المسلسل وليس الإسم...... أى بمجرد كتابه رقم ما فى التكست بوكس.. يظهر إسم الطالب  

 جزاكم الله خيرا

سجل المدرسة.xlsm

[ابراهيم الحداد]

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

اجعل الكود هكذا

Private Sub TextBox1_Change()
Dim LastRow As Long
LastRow = Range("B1000").End(xlUp).Row
If ActiveSheet.TextBox1.Text <> "" Then
Range("$A$2:$C$" & LastRow).AutoFilter field:=1, Criteria1:=TextBox1.Value
End If
End Sub

 

[Ali Mohamed Ali]

أحسنت استاذ ابراهيم جزاك الله كل خير -كود ممتاز

[waledms]

جزاك الله خيرا