xctwmkluert

السلام عليكم

برجاء شرح الكود التالي الخاص بالبحث  وكيفية التعديل فيه  

Sub Macro1()
    Columns("C:F").Select
    Range("F1").Activate
    Selection.ClearContents
    Range("B16").Select
i = 1
w = InputBox("Find", "Find What:", "")
Cells(1, 3) = "Voucher No."
Cells(1, 4) = "Date"
Cells(1, 5) = "Particular"
Cells(1, 6) = "Amount"
For Each sh In Worksheets
If sh.Name = "Sheet" Then End
With sh.Range("C1:C500")
Set a = .Find(w)
If Not a Is Nothing Then
f = a.Address
Do
i = i + 1

Workbooks("find").Worksheets("sheet").Cells(i, 5) = a
x = a.Row
y = a.Column
Workbooks("find").Worksheets("sheet").Cells(i, 3) = Workbooks("find").Worksheets(sh.Name).Cells(x, y - 2)
Workbooks("find").Worksheets("sheet").Cells(i, 4) = Workbooks("find").Worksheets(sh.Name).Cells(x, y - 1)
Workbooks("find").Worksheets("sheet").Cells(i, 6) = Workbooks("find").Worksheets(sh.Name).Cells(x, y + 3)
Set a = .FindNext(a)
Loop While Not a Is Nothing And a.Address <> f
End If
End With
Next sh
End Sub
 

شكرا جزيلا

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

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

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

السلام عليكم

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

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

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

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

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

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

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

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

SCHOOL.xlsx find.xls