اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

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

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

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

ولكنى اريد ان يكون الكود موجود مثلا فى شيت رقم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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
×
×
  • اضف...

Important Information