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

[جرح العراقي]

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

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

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

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

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

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

Book1.xlsx

[سليم حاصبيا]

جرب هذا الملف (صفحة TOC)

 

ADD_Hyper_Link.xlsm

[جرح العراقي]

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

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

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

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

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

///// رد

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

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

ADD_Hyper_Link.xlsm

[نبيل عبد الهادي]

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

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

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

 

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

[جرح العراقي]

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

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

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

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

[Ali Mohamed Ali]

السلام عليكم أستاذ جرح هل تقصد هكذا

 

البحث بأسم الشيت.xlsm

[جرح العراقي]

استاذ علي محمد شكرا لك

ممكن كيف عملت تبويبة اختيار الشيتات ؟

 

[Ali Mohamed Ali]

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

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

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

 

[Ali Mohamed Ali]

تمام أستاذى سليم بارك الله فيك

[جرح العراقي]

شكرا لك استاذ سليم

[ابوعبدالواجد]

السلام عليكم :

ممكن استفسار

كيف عمل شيت جديد بدل الطريقة الاعتيادية

 

[Ali Mohamed Ali]

عذرا عن التأخر

تفضل أخى

فتح شيت جديد.xlsm