اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

ممكن كود للبحث عن اسم معين داخل ملف فيه مجموعة شيتات


إذهب إلى أفضل إجابة Solved by Ali Mohamed Ali,

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

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

في الملف المرفق توجد مجموعة شيتات تصل عددها الى اكثر من ( 200 شيت ) ( كل شيت له اسم معين ) مثلا

اول شيت اسمه (Mohammed) 

ثاني شيت اسمه (ِAhmed) .... وهكذا الى اخر شيت 

المطلوب لو سمحتم عند البحث عن اسم معين في شيت خاص للبحث يرسلني الى الشيت المراد البحث عنه

مثلا انا في شيت البحث واريد البحث عن Ahmed يقوم باظهار الشيت الخاص به اي يرسلني له مباشرة

Book1.xlsx

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

شكرا لسرعة الرد

لكن اريد نافذة اي شيت خاص بالبحث وليس عمل لنك للاسم مباشرة

لو كان عندي اكثر من 500 اسم عملية ربط كل اسم بالشيت تكون متعبة

يعني اعمل بحث لاسم محمد يذهب بي الى شيت محمد 

وهكذا لباقي الاسماء

///// رد

يا اخي هو انت رح تريط كل هذه الصفخات بأسمائها يدوياً ؟؟؟!!!!      (لماذا اذاً الماكرو)    مجرد ان تضغط زر Refresh يقوم الماكرو بهذا العمل اوتوماتيكياً

حتى ولو كان عندك اكثر من 500 صفحة يكثير

ADD_Hyper_Link.xlsm

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

لاثراء الموضوع اكثر وبعد اذن استاذنا الفاضل سليم جرب الملف المرفق البحث في اوراق عمل متعددة من خلال فورم بحث

الشرح موجود داخل الملف

الكود المستخدم للعلامه عبدالله باقشير

 

بحث في اوراق عمل متعددة.xlsm

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

شكرا لك استاذ نبيل 

فعلا حل راقي لكن ليس هو المقصود

قصدي انو نعمل نافذة او فورما للبحث وندخل اسم احمد ويذهب بنا الى الشيت الخاص بـ ( احمد ) 

البحث على عنوان الشيت وليس على محتويات التي تكون داخل الشيت

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

السلام عليكم أخى جرح- هل هذا طلبك ؟

 لقد تم بوضع هذا الكود بعد عمل الكمبوبوكس

Private Sub ComboBox1_Change()
Dim arr As Variant, i As Long
Dim Sh As Worksheet
For Each Sh In Worksheets
If ComboBox1.Value = Sh.Name Then
Sh.Activate
End If
Next
End Sub
Private Sub ComboBox1_Click()
End Sub
Private Sub ComboBox1_GotFocus()
Dim arr As Variant, i As Long
Dim Sh As Worksheet
For Each Sh In Worksheets
If Sh.Name <> "TOC" Then
i = i + 1
ReDim arr(i, 1)
arr(i, 1) = Sh.Name
ComboBox1.AddItem arr(i, 1)
End If
Next
End Sub

 

 

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

اخي علي 

تلاحظ ان الكود يهذا الشكل الذي وضعته يكرر الصفحات داحل الكومبو مع كل مرة  (ولا حاجة لل Array) في هذا الحالة

لذلك اقترح لك هذا الكود

Private Sub ComboBox1_DropButtonClick()
Dim i%, Sh As Worksheet
ComboBox1.Clear
For Each Sh In Worksheets
    If Sh.Name <> "TOC" Then _
    ComboBox1.AddItem Sh.Name
Next
End Sub

 

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

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information