ارجو التعديل فى كود للبحث

[إبراهيم ابوليله]

الاخوه الكرام

هذا كود وجدته فةى المنتدى للاخ الفاضل رجب جاوييش

حاولت التعديل عليه ليناسب طلبى ولكنى فشل

فهذا الكود يعمل جيدا حينما يتم وضعه فى نفس الشيت المراد العمل عليه

ولكنى اريد ان يكون الكود موجود مثلا فى شيت رقم1

والزر الخاص بتفعيل الكود موجود فى شيت رقم2

وعند الضغط على الزر يتم الانتقال الى شيت رقم 1 ثم الى الخليه المرFIND.rarاد البحث عنها

[عبدالله المجرب]

السلام عليكم

جرب هذا التعديل

Sub ragab()

'   كود البحث فى نطاق محدد عن الارقم والتواريخ

On Error Resume Next

Dim sdate As Date, cl As Range

sdate = InputBox("أدخل التاريخ الذى تريد تحديد الخلية المقابلة له")

For Each cl In Sheet1.Range("D1:D25")

If sdate = cl Then Sheet1.Select: cl.Select: MyArr = MyArr & cl: Exit For

Next

If MyArr = "" Then MsgBox "لاتوجد نتائج لهذا البحث"

End Sub

[يوسف عطا]

ربما يفيدك أن تنسخ الموديول و تغير إسم الشيت فى الكود المنسوخ إلى إسم الشيت الذى تريده ثم تنشئ زر جديد وتضعه فى الشيت الجديد

[إبراهيم ابوليله]

الاخ عبد الله

بارك الله فيك

وحينما رأيت الكود الذى تفضلته باقتراحه

جائتنى فكره وهى ان اضع فى بدايه الكود

Sheet1.Select

Sub ragab()

' كود البحث فى نطاق محدد عن الارقم والتواريخ

On Error Resume Next

Sheet1.Select