قاعدة بيانات لمدرسة مطلوب كود بحث

[xctwmkluert]

السلام عليكم

برجاء المساعدة

انا صممت ملف بسيط لعمل قاعدة بيانات لمدرسة مع المصاريف

ولكن محتاج شيت منفصل للبحث بحيث ابحث عن اي اسم في المستند كله 

ونتيجة البحث تكتب في شيت البحث بكل التفاصيل لتكون جاهزة للطباعة

 

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

مرفق الملف المطلوب باسم SCHOOL

 

والملف المراد عمل كود البحث مثله باسم  FIND

 

برجاء المساعدة  وجزاكم الله خيرا

SCHOOL.xlsx find.xls

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

الماكرو الصحيح للمصنف الأول find.xls

حاول تعديله لبتناسب مع المطلوب

Sub NEW_MACRO()
    Range("C2").CurrentRegion.Offset(1).ClearContents
    Dim My_Adr$
i = 1
w = InputBox("Find", "Find What:", "")
If w = vbNullString Then Exit Sub
For Each sh In Worksheets
    If sh.Name = "Sheet" Then Exit Sub
        With sh.Range("C7:C500")
              Set a = .Find(w)
               If Not a Is Nothing Then
                  My_Adr = a.Address
                  f = My_Adr
                  Do
                        i = i + 1
                        x = a.Row
                        y = a.Column
                            With Sheets("sheet").Cells(i, 5)
                              .Value = My_Adr
                              .Offset(, -2) = Sheets(sh.Name).Cells(x, y - 2)
                              .Offset(, -1) = Sheets(sh.Name).Cells(x, y - 1)
                              .Offset(, 1) = Sheets(sh.Name).Cells(x, y + 3)
                            End With
                        Set a = .FindNext(a)
                        My_Adr = a.Address
                        If f = My_Adr Then Exit Do
                  Loop
              End If
        End With
Next sh
End Sub

 

[xctwmkluert]

اولا جزاك الله كل خير علي تعبك وبارك الله فيك

 

برجاء لو توضيح بسيط كيف التعديل لاني ليس عندي خبرة في المجال لو ممكن التوضيح في عدة نقاط وانا حاتبع الخطوات 

 

شكرا جزيلا لحضرتك