البحث في جميع أوراق العمل دفعة واحدة

[fofolofo2003]

عمل زر بورقة العمل للبحث

searsh

بدل اللجوء للطرقة التقليدية باختيار قائمة تحرير ثم بحث

[حسام نور]

مرفق مثال أرجو أن تجد فيه الفائده .... وشكراً

Search.zip

[AliALwazeer]

مشكور اخي وماقصرت.

بس انا بغيت زيادة على الموضوع وهو انه اذا عندي اكثر من خمس ورقة عمل هل يمكن عمل بحث لهم بنفس الطريقة.

وشكرا مرة ثانية والف................

[حسام نور]

AliALwazeer

في المرفقات مثال متقدم للبحث بأوراق العمل أرجو أن تجد به طلبك ( المثال طرح مسبقاً من قبل أحد الأعضاء بالمنتدى )

والله الموفق

find.zip

[محمد حجازي]

السلام عليكم ...

تحياتي للأخ حسام نور ، وبالفعل فقد استوحيت من مثالك الطريقة الموجودة في الكود التالي:

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
End Sub

تحياتي

[حسام نور]

أكثر من رائع أخي محمد ... إضافه مميزه أشكرك عليها