السلام عليكم ورحمة الله وبركاته
أخي الفاضل / عبدالله المجرب
وفقني الله وإياك لما يحب ويرضى وجزاك الله خير الجزاء على ما قدمته لي من خدمة تشكر عليها.
فقد وجدت ضالتي بفضل الله ثم بفضل تجاوبك مع موضوعي.
وأود أن أفيد الأخوة بأن الكود الخاص بعملية البحث داخل أوراق المستند كان في المرفق الذي تم رفعه من قبل الأخ أبو ريان جزاه الله خيرا وهو على النحو التالي:-
Sub MySearsh()
Dim Searsh As String
Dim FirstValue As String
Dim NextValue As String
Searsh = Application.InputBox(prompt:="ÃÏÎá ÞíÃÉ ÇáÈíË", Title:="ÈíË Úä ßáÃÉ", Type:=2)
For Each Sh In Worksheets
With Sh
If .Cells.Find(What:=Searsh, After:=ActiveCell) Is Nothing Then GoTo 1
.Activate
With .Cells.Find(What:=Searsh, After:=ActiveCell)
.Activate
FirstValue = .Address
End With
Do
If .Cells.FindNext(After:=ActiveCell) Is Nothing Then GoTo 1
If MsgBox("åá ÊÑíÏ ÇáÈíË Úä äÊíÌÉ ÃÎÑÌ", vbYesNo, "ÇáÈíË Úä ÇáÊÇáí") = vbNo Then Exit Sub
With .Cells.FindNext(After:=ActiveCell)
.Activate
NextValue = .Address
End With
Loop Until FirstValue = NextValue
End With
1 Next Sh
MsgBox ("تم إنهى عملية البحث حيث لم تعد توجد نتائج للبحث")
End Sub
بارك الله فيكم وجعل ما تقدمونه في موازين حسناتكم.
لي عودة بمشيئة الله لأضيف شرح مصور لكيفية إضافة الكود بالورقة الخاصة بالبحث.
