بحث عن شيت باسم الشيت ( مساعده )

[محمد عبد الناصر]

السلام عليكم ورحمة الله

 

عايز مساعده فى الملف المرفق ده  بحث عن شيت باسم الشيت وشكراااااااااااا

gg.rar

تم تعديل أبريل 13, 2015 بواسطه mxfouad

[ياسر خليل أبو البراء]

جرب الكود بهذا الشكل .

Sub FindSheet()
    Dim X
    Dim SH As Worksheet
    X = InputBox("اكتب اسم الشيت المراد البحث عنه", "Find Sheet")
    For Each SH In Worksheets
        If SH.Name Like X Then SH.Activate: Exit For
    Next SH
End Sub

[محمد عبد الناصر]

الف الف الف الف وكمان الفين شكرا يا استاذ يااااااااااااااسر يا محترم

[محمد عبد الناصر]

طيب حضرتك  انا عندى مثلا 40 شيت او اكتر وعايز ابحث عن رقم موجود فى صفحه فيهم ليها كود دى؟؟؟؟

تم تعديل أبريل 13, 2015 بواسطه mxfouad

[زياد عبد الجليل]

بارك الله فيك استاذ ياسر

[ياسر خليل أبو البراء]

طيب حضرتك  انا عندى مثلا 40 شيت او اكتر وعايز ابحث عن رقم موجود فى صفحه فيهم ليها كود دى؟؟؟؟

لم أفهم مطلوبك

[صلاح الصغير]

و هذا ابداع اخر من ابداعات

 

الاستاذ / عبد الله باقشير

بحث واستدعاء ورقة عمل.rar

[محمد عبد الناصر]

بوص حضرتك انا دلوقتى عندى 20 شيت كل شيت فيهم خاص بموظف مختلف وكل موظف ليه فى الصفحه الخاصه بيه رقم وظيفى عايز كود يدور بالرقم الوظيفى يعنى لما اكتب الرقم الوظيفى بتاع الموظف وادوس على الامر يودينى للصفحه الى فيها الرقم ده