تهیه یک ماکرو یا تابعی برای بازخوانی از دیگر شیتها

[h-vafa]

سلام دوستان

من یک فایل اکسل باید درست کنم که این فایل در موقع باز شدن یک سلول خاص (مثلا سلول a1 ) در شیت های دیگه رو بتونه توی شیت اول نشون بده

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

تعداد شیت ها هم بیشتر از 100 شیت هست

به نظر خودم باید ماکرو نوشته بشه... اما هر کاری کردم نشد....


لطفا یک راهنمایی کنید

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[khakzad]

سلام
کد زیر رو اجرا کنید:

Sub gozaresh()
For i = 2 To Worksheets.Count
    Sheets(1).Cells(i, 1) = Sheets(i).Range("a1")
    
Next
End Sub

[h-vafa]

خیلی ممنون خاکزاد جان

کارم رو خیلی جلو انداختید.............

[h-vafa]

دوباره یه کمک دیگه می خوام

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

تنها مشخصه ای که داره اینه که فرمول سام توش استفاده میشه، که جمع مقادیر سلولهای بالاییشه؟
میشه کاری کرد که سلول جمع بره بالای همه سلول ها و توی همه شیت ها جاش مشخص و یک جا باشه، اما واسه پرینت فرم درست و رسمی و زیبایی نمیشه...

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

با تشکر از اساتید گرامی