السلام عليكم
برجاء شرح الكود التالي الخاص بالبحث وكيفية التعديل فيه
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
شكرا جزيلا