البحث باليوزرفورم في جميع اوراق العمل

[1anass]

السلام عليكم

من فضلكم اريد البحث باليوزرفورم  في جميع اوراق الملف 

مثال إذا كانت المعطيات في الورق 1 و 2 و اليوزرفوم في الورق 3 يعطينا النتائج دون التنقل اللى الورقتين 

شكرا لكم 

V2.xlsm

[1anass]

شكرا على الاهتمام

هل يمكن لهذا الكود ان يفي بالغرض 

For x = 1 To Sheets.Count
    If Sheets(x).Range("A1") = 1 Then MsgBox Sheets(x).Name
Next

 

[حسين مامون]

اخي الكريم 

في مثل هذا البحث من الاحسن تصميم فورم يحتوي على combobox لادراج اسماء الشيتات و listbox لاستدعاء بيانات من الشيت الذي تختاره في combobox .

وtsxtbox حسب العدد المطلوب لاظهار النتيجة المختارة من listbox

وهذا رأيي فقط

تحياتي

[1anass]

شكرا اخي الكريم  

نعم رأيك صحيح يستخدم في اغلب الحالات 

لكن هذا التصميم هو المطلوب في عملي

شكرا على اهتمامك اخي الفاضل