blueray

السلام عليكم ورحمة الله وبركاته أخي الفاضل / عبدالله المجرب وفقني الله وإياك لما يحب ويرضى وجزاك الله خير الجزاء على ما قدمته لي من خدمة تشكر عليها. فقد وجدت ضالتي بفضل الله ثم بفضل تجاوبك مع موضوعي. وأود أن أفيد الأخوة بأن الكود الخاص بعملية البحث داخل أوراق المستند كان في المرفق الذي تم رفعه من قبل الأخ أبو ريان جزاه الله خيرا وهو على النحو التالي:- 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 بارك الله فيكم وجعل ما تقدمونه في موازين حسناتكم. لي عودة بمشيئة الله لأضيف شرح مصور لكيفية إضافة الكود بالورقة الخاصة بالبحث.

السلام عليكم ورحمة الله وبركاته أشكر الأخ كيماس على جهودة التي يبذلها لنشر العلم والمعرفة؛ جعلها الله في ميزان حسناته وجزاه عنا خير الجزاء. ثانياً:- أنا لدي استفسار أمل منكم التكرم بايجاد الحل ويتمثل في الآتي:- لدي مستند اكسل به 32 ورقة إحدى هذه الأوراق بأسم بحث سريع وبداخلها وضعت شرح للمستخدم بأن يقوم بإدخال القيمة ( رقم تسلسلي لجهاز أو رقم إداري " الرقم عبارة عن مجموعة أرقام أو أرقام وحروف " ) المطلوب البحث عنها بحيث يكون مجال البحث شامل للأوراق من 1 إلى 28 لكي يستطيع أن يوجد لي الرقم الذي أبحث عنه موجود بأي ورقة ولو أمكن يقوم بالإنتقال إلى الورقة الموجود بها الرقم وتحديداً لخلية الرقم الذي تم البحث عنه. طبعاً كل ورقة بها بيانات كبيرة من الأرقام التسلسلية والإدارية لأجهزة حاسبات وشاشات وطابعات واجهزة أخرى. أمل سرعة الرد على طلبي ممن لديه الحل مع توضيح خطوات الحل وجزاكم الله خيرا.