جستجو در میان شیت های اکسل در مورد یک متن

[alikaraj66]

با سلام یک فایل اکسل می باشد که دارای 300 شیت است
هر شیت اطلاعات آموزش یک پرسنل می باشد که مثلا درس بدو خدمت در این تاریخ ... به مدت 70 ساعت گذرانده شده که توسط سیستم گزارش گیری شده
در بین این شیت ها می خواهم جستجو کنم درس بدو خدمت
در نتیجه جستجو می خواهم این نتیجه را به من بدهد

نام شخص بدو خدمت
نام شخص بدو خدمت

[iranweld]

با سلام

یک فایل با تعداد کمتری شیت رو ضمیمه کنید که ستون و سطر و شیت مورد نظر برای جستجو مشخص شود

[alikaraj66]

فایل ضمیمه گردید با تشکر

[iranweld]

با سلام

یک فایل اولیه تهیه گردید بررسی و مشکلات را بیان کنید

Private Sub CommandButton1_Click()
Dim employee As String, total As Integer, sheet As Worksheet, i, J As Integer, rng As Range


employee = Range("i4").Value


For Each sheet In Worksheets

    For i = 26 To 50
    
    
    
        If sheet.Range("aa" & i).Value = employee Then
        
        MsgBox sheet.Range("z11").Value & " " & sheet.Name
           
             
    End If
        
    Next i
    
   
   
Next sheet



End Sub 

[Ali Parsaei]

با سلام یک فایل اکسل می باشد که دارای 300 شیت است
هر شیت اطلاعات آموزش یک پرسنل می باشد که مثلا درس بدو خدمت در این تاریخ ... به مدت 70 ساعت گذرانده شده که توسط سیستم گزارش گیری شده
در بین این شیت ها می خواهم جستجو کنم درس بدو خدمت
در نتیجه جستجو می خواهم این نتیجه را به من بدهد

نام شخص بدو خدمت
نام شخص بدو خدمت

سلام،
خيلي خوب توضيح نداده ايد چه مي خواهيد!
ولي طبق برداشتي که از عنوان اصلي مطلب دارم، شما مي توانيد دگمه هاي ctrl+f را کليک کنيد و در پنجره باز شده متن مورد نظر خود را در قسمت find what تايپ کرده و سپس دگمه options را بزنيد تا گزينه هاي جديدي در دسترس قرار گيرد و بين گزينه هاي جديد نمايان شده قسمت within را از sheet به workbook تغيير داده و سپس جستجو را آغاز کنيد. مي توانيد اسامي افراد را جستجو کنيد ولي بهتر است شماره استخدام که يک شماره منحصر به فرد براي هر نفر است را جستجو کنيد.
البته اگر منظورتان را درست فهميده باشم.

[majid_mx4]

با سلام

ضمن تشکر از تمامی دوستان خوبم که زحمت کشیدن بعد نیست این فایل را هم به جمع پاسخها اضافه کنیم
لطفا فایل ضمیمه را بررسی نمایید.

خلاصه : کپی از شیتها بر اساس مقدار مشخص شده

با تشکر میر