لیستی از یک ثابت در چندین شیت

[qomamir]

با عرض سلام و خسته نباشید چند شیت دارم که دارای اطلاعاتی با آدرس های ثابت است. مثلا a2 نام و نام خانوادگی و a5 شماره پرسنلی
می خوام توی یک شیت جدید تمام سلول های a2 و a5 همه شیت ها لیست بشه. مثلا

در شیت جدید، دو ستون داشته باشه که:
علی احمدی 20 (از شیت اول)
رضا احمدی 25 (از شیت دوم)
.
.
.
(از تمام شیت ها)

با تشکر از تمامی دوستان.

[AmirAkbar]

دوست عزیز اگر امکان داره فایل قرار بدید .. یا بخشی از فایل برای نمونه ..

[qomamir]

با تشکر از توجه شما دوست عزیز
فایل نمونه پیوست شد

[mohammad_ashooryan]

با تشکر از توجه شما دوست عزیز
فایل نمونه پیوست شد
با سلام
ميتوانيد از فرمول Indirect استفاده كنيد.
فرمول سطر اول رو بنويسيد
بعدش فرمول رو درگ كنيد پايين.
5911

[generalsamad]

با سلام
ميتوانيد از فرمول Indirect استفاده كنيد.
فرمول سطر اول رو بنويسيد
بعدش فرمول رو درگ كنيد پايين.
5911

با سلام
یه سوال
اگه نام شیتها به این صورت نبود و نامهای متفافتی داشت اونوقت چطور میشه این کار رو کرد؟
ممنون

[mohammad_ashooryan]

با سلام
یه سوال
اگه نام شیتها به این صورت نبود و نامهای متفافتی داشت اونوقت چطور میشه این کار رو کرد؟
ممنون
با سلام
من vba بلند نيستم. ولي از توي اينترنت تونستم كد ليست كردن شيتهاي يه فايل اكسل رو از لينك زير پيدا كنم.
http://excel-macro.tutorialhorizon.com/vba-excel-get-the-names-of-all-worksheets-in-a-excel-workbook/
و توي فايل اعمال كردم.
5924

[Ali Parsaei]

با سلام
یه سوال
اگه نام شیتها به این صورت نبود و نامهای متفافتی داشت اونوقت چطور میشه این کار رو کرد؟
ممنون
سلام،
اون وقت مي شود از ماکرو کمک گرفت، براي نمونه فايل ارسالي شما من کد زير را نوشته ام (البته فقط براي اسامي است و شماره ها هم شبيه همين مي شود):


Sub Macro1()
Dim C As Range
For Each C In Range("A1:A20")
If C.Row < Sheets.Count Then
C = Sheets(C.Row).Range("A2").Value
End If
Next
End Sub

[AmirAkbar]

با سلام
ميتوانيد از فرمول Indirect استفاده كنيد.
فرمول سطر اول رو بنويسيد
بعدش فرمول رو درگ كنيد پايين.
5911

جالب بود .. مرسی :)

[qomamir]

ممنون از توجه دوستان